1. Составьте блок-схему алгоритма и программу вычисления площади параллелограмма по одной из сторон и высоте.

2. Составьте программу вычисления площади и периметра квадрата.

3. Составьте программу вычисления кинетической энергии тела.

 

1. Составьте блок-схему алгоритма и программу выводана экран всех нечетных двузначных чисел.

2.  Составьте блок-схему алгоритма и программу вычисления суммы всех трехзначных чисел, кратных 5.

 

 

 

 

 

— Правильный ответ на вопрос найдете ниже

Ответ:

1)program s_parallelogramm;vara,h,s: real;begin write(‘Основание = ‘); readln(a); write(‘Высота = ‘); read(h); if ((a=0) or (a<0)) or ((h=0) or (h<0)) then writeln(‘Ошибка! Значения основания и высоты должно быть натуральными числами’) else begin s:=a*h; writeln(‘Площадь (S) параллелограмма = ‘, s); end;end.

2)program sp_kvadrata;vara,p,s: real;begin write(‘Сторона квадрата = ‘); readln(a); p:=4*a; s:=sqr(a); writeln(‘Периметр (P) квадарата = ‘, p); writeln(‘Площадь (S) квадарата = ‘, s);end.

3)program e_kinet;varm,v,e: real;begin write(‘Масса тела (m, кг) = ‘); readln(m); write(‘Скорость тела (v, км/ч) = ‘); readln(v); e:=m*sqr(v)/2; writeln(‘Кинетическая энергия (Ек, Дж) = ‘, e);end.

1)program vivod_chisel;vari, a: integer;begin a:=11; for i:=1 to 45 do begin write(a:3); a:=a+2; end;end.

2)program sym_trex_chisel_krat5;varmas: array[1..900] of integer;i,a,sym: integer;begin a:=100; sym:=0; for i:=1 to 900 do begin mas[i]:=a; if mas[i] mod 5 = 0 then sym:=sym+mas[i]; a:=a+1; end;writeln(‘Сумма трехзначных чисел, кратных 5 = ‘, sym);end.

Ответ: некоторые программы не оптимальны и запутаны, но ответы выдают верные.