Содержание
Задача
Пример программы, позволяющей вычислять площади трех геометрических фигур: прямоугольника, треугольника и круга.
Решение
Площадь прямоугольника: area = a * b
Площадь треугольника: area = sqrt(s * (s – a) * (s – b) * (s – c)), где s = (a + b + c) / 2
Площадь круга: area = pi * sqr(d) / 4
Пользователь осуществляет выбор фигуры, площадь которой он хочет получить, путем ввода цифр 1, 2 или 3.
Для выбора ветви вычисления используется конструкция if-else, которая включает вторую конструкцию if-else, а та, в свою очередь, — третью:
Программа на языке Паскаль:
При вводе сторон треугольника должно быть соблюдено правило: сумма любых двух сторон должна быть больше третьей. Иначе возникает ошибка.
Ответы на вопрос
var c,a,b,i,j,l: integer; begin cls;
write(‘введите через пробел отрезок’); read(a,b); for i: =a to b+1 do begin j: =2; l: =round(sqrt(i)); while (i mod j 0) and (j l) then begin write(c,’ ‘); c: =i; end; end; end.
знаки той же арифметики, если эмоции- те же смайлики.
Ответ оставил Гуру
Program
Var a,b,s
Begin
Readln(a,b)
S:=s+a
End;
Writeln(s)
End.
По такому же принципу находит и площадь.
Ответ оставил Ser012005
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var (a,b):=ReadReal2(‘введите длину и ширину прямоугольника:’);
write(‘S=’,a*b,’; P=’,2*a+2*b);
end.
Если тебя не устраивает ответ или его нет, то попробуй воспользоваться поиском на сайте и найти похожие ответы по предмету Информатика.