1. Відкрийте середовище розробки Lazarus і створіть новий проект. 2. Розмістіть на формі елементи керування для розв’язування задачі:
Відомі довжини сторін двох прямокутників. Обчислити площі прямокутників і
порівняти їх. Визначити, чи є прямокутники квадратами. З’ясувати, чи вміститься
один прямокутник у середину другого. Повідомити отримані результати.
У проекті:
1) складіть обробник події OnClick першої кнопки для обчислення площ
прямокутників і виведення повідомлення про те, у якого прямокутника
площа більша;
2) складіть обробник події OnClick другої кнопки, виконання якого
залежно від установлених прапорців приведе до визначення того, чи є
відповідний прямокутник квадратом;
3) складіть обробник події OnClick третьої кнопки, виконання якого
приведе до визначення, чи вміститься перший прямокутник усередину
другого або другий прямокутник усередину першого залежно від вибраного
перемикача;
4) виконайте складені процедури і переконайтеся, що результати їхньої
роботи правильні.
3. Створіть у власній папці папку Практична 13 і збережіть у ній проект.
Предлагаемое в условии число представляет собой десятичную дробь, т.е. имеет целую и дробную части. Для целой части незначащими будут левые нули и мы будем искать их в первой тетраде. Для дробной части незначащие нули - последние и мы будем их искать в последней тетраде.
Первая тетрада - представление 1(16)=0001(2). Левые три нуля незначащие и их удаляем, остается 1. Последняя тетрада - представление Е(16)=1110(2). Тут один незначащий ноль - правый, остается 111.. Остальные тетрады переписываем без изменения.
12АС,6Е(16)=1 0010 1010 1100 , 0110 111 (2)
Считаем количество нулей в записи: 9. Это и есть ответ.
Комментарии Отметить нарушение
var
s: string;
i, count: integer;
begin
writeln('Vvedite stroky: ');
readln(s);
for i := 1 to length(s) - 2 do
if copy(s, i, 3) = 'abc' then
count := count + 1;
writeln('Kol-vo: ', count);
end.
2.
var
s1, s2: string;
i, len1, len2: integer;
begin
writeln('Vvedite stroky 1: ');
readln(s1);
writeln('Vvedite stroky 2: ');
readln(s2);
len1 := length(s1);
len2 := length(s2);
if len1 > len2 then writeln('1 stroka dlinnee')
else if len1 < len2 then writeln('2 stroka dlinnee')
else writeln('dlini strok ravnie')
end.
3.
var
s1, s2, s3: string;
begin
writeln('Vvedite stroky 1: ');
readln(s1);
writeln('Vvedite stroky 2: ');
readln(s2);
s3 := s1[1] + s1[2] + s2[1] + s2[2];
writeln('Novaja stroka: ', s3);
end.