Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var a: array [1..8,1..5]of integer;
s,i,k: integer;
begin
randomize;
for i: = 1 to 8 do begin
for k: = 1 to 5 do begin
a[i,k]: = random(20)-10;
write(a[i,k]: 3,' ');
if a[i,k] mod 2 = 0 then s: =s+a[i,k];
end;
writeln;
writeln('s=',s);
end.
var a,b,c: real; beginwriteln('введите данные о катетах'); readln(a,b); c: =1/2*a*b; writeln('площадь= ',c: 0: 2); readlnend.
если паскаль абс, то предпоследнюю строку не обязательно.
видим на рисунке прямоугольник
пишем
*длина
*ширина
*координаты центра
*угол поворота
*цвет
*цвет заливки
методы
*площадь
*нарисовать
*повернуть
и тд
как я понял надо составить блок-схему
задаете числа, и задаете периметр и площадь равный 0
условие что все больше 0
если да то дальше если нет то конец
после этого сразу проверка на ваши больше и меньше 0 и тому прочее
если не выполняется какое-то условие то конец,если все вып. то опять условие
с^2=a^2+b^2
если да то выполнить действие s=a*b вывод s end
если нет то p=a+b+c вывод p end
Популярные вопросы