М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Бекки5
Бекки5
05.06.2022 01:01 •  Информатика

Будь ласка до ть з інформатикою

Створіть проект для розв'язування задачі: Відомі довжини сторін двох прямокутників. Обчислити площі прямокутників та порівняти їх.

Припустимо, що інтерфейс програми (форма з розміщеними на ній компонентами) ми вже зробили. Він буде такий, як на прикріпленому малюнку.

Номерами позначено відповідні текстові поля для вводу і виводу даних (Edit1, Edit2, ... і т.д.). У поля під номерами 1, 2, 3 та 4 ми вводимо значення відповідних розмірів наших прямокутників. При натисканні кнопки у поля під номерами 5 і 6 повинно бути виведене значення площі відповідного прямокутника, а у поле 7 одне зі слів "перший", "другий", "рівні" (в залежності від того, чия площа більша (або вони рівні)).

Ваше завдання полягає в тому, щоб дописати код обробника події для натискання кнопки.

Змінні a1,b1,a2,b2 слугують для зберігання введених розмірів відповідних прямокутників (довжина і ширина).

Змінні s1,s2 - для збереження обчислених значень площ відповідних прямокутників.

Частина коду може бути такою:

procedure TForm1.Button1Click(Sender: TObject);

var a1,b1,a2,b2,s1,s2:real;

begin

// Команди для зчитування, перетворення і зберігання числових даних, введених у поля у відповідних змінних

a1:= ...

b1:= ...

a2:= ...

b2:= ...

// Команди для обчислення площ

s1:= ...

s2:= ...

// Команди для виведення обчислених значень площ у відповідні поля

Edit5.Text:= ...

Edit6.Text:= ...

// Команди для порівняння площ і виведення повідомлення у поле 7

if ... then Edit7.Text:='перший'

else if ... then Edit7.Text:='другий'

else ...

end;

👇
Открыть все ответы
Ответ:
maina342
maina342
05.06.2022
Const 
n=5;

Var
 ar:array[1..n] of integer;
 ar2:array[1..n] of integer;
 i,k:integer;

 function prost(a:integer):boolean;
 var i:integer;
 b:boolean;
  begin
  b:=true;
   for i:=2 to a div 2 do
    if a mod i=0 then
     begin;
      b:=false;
      break;
     end;
   if a=1 then b:=false;
  prost:=b;
 end;

  begin;
 randomize;
 k:=0;
  for i:=1 to n do
   begin;
    ar[i]:=random(101);
    write(ar[i]:4);
   end;
  writeln;
  for i:=1 to n do
  if prost(ar[i]) then
   begin;
    inc(k);
    ar2[k]:=ar[i];
    write(ar2[k]:4);
   end;
end.
4,6(58 оценок)
Ответ:
YuliyaSchool
YuliyaSchool
05.06.2022

1. Например: смотреть д/з, играть в игры, смотреть видео уроки и т.д.

2. Учителя могут искать тесты/контрольные работы что-бы их провести в классе, так же они могут смотреть информацию для какого либо урока. Старшие могут смотреть что то по работе или то что нужно им сделать для своего ребёнка например-призентацию и т.д.

3. По интернету можно смотреть видео уроки, д/з, информацию для доклада/сообщения в школу.

4. Иногда как, бывает хорошо, а бывает плохо, одна причина почему очень неприятно-мошеники в интернете которые всех обманывают.

Вот мой ответ удачи

4,4(91 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ