Program N_1; //Название программы Var a,b,c:integer; //Переменные BEGIN Writeln('Введите длину и ширину прямоугольника'); //Вывести данную строку readln(a,b); //Считать a и b if a<b //Если a<b then begin //то найти периметр c:=(a+b)*2; Writeln('Пириметр= ',c) //и вывести его end else begin //Если a>b c:=a*b; //то найти площадь writeln('Площадь= ',c) //и вывести ее. end; END.
Из курса математики мы знаем что периметр треугольника равен сумме его трех сторон, в равностороннем треугольнике они равны , потому
, где а - сторона равностороннего треугольника.
а площадь расчитывается по формуле
Смотрим программы.
1 Программа подходит, формулы в функциях вроде правильно написаны.
2 Программа не подходит, по виду вроде для квадрата формулы
3 Программа не подходит. Формула площади вроде для треугольника( половина основания на высоту), но не для равностороннего и в функции для периметра в аргументах 3 штуки - очевидно это стороны треугольника и предполагается что они разные.
Program N_1; //Название программы
Var a,b,c:integer; //Переменные
BEGIN
Writeln('Введите длину и ширину прямоугольника'); //Вывести данную строку
readln(a,b); //Считать a и b
if a<b //Если a<b
then begin //то найти периметр
c:=(a+b)*2;
Writeln('Пириметр= ',c) //и вывести его
end
else begin //Если a>b
c:=a*b; //то найти площадь
writeln('Площадь= ',c) //и вывести ее.
end;
END.
Из курса математики мы знаем что периметр треугольника равен сумме его трех сторон, в равностороннем треугольнике они равны , потому
а площадь расчитывается по формуле
Смотрим программы.
1 Программа подходит, формулы в функциях вроде правильно написаны.
2 Программа не подходит, по виду вроде для квадрата формулы
3 Программа не подходит. Формула площади вроде для треугольника( половина основания на высоту), но не для равностороннего и в функции для периметра в аргументах 3 штуки - очевидно это стороны треугольника и предполагается что они разные.