В таком виде программа, хотя бы запустится:
program i_2;
const c=2; f=4; g=6;
var r,p: real;
begin
writeln('определение площади треугольника по теореми Герона');
write('нахождение площади');
readln(r);
p:=(c+f+g)/2;
r:=sqrt(p*(p-c)*(p-f)*(p-g))
end.
Но есть куча вопросов:
1) Если c, f, g - стороны треугольника, то что такое - r ?
2) Если r - это площадь, то как мы можем её ввести, если мы хотим её сосчитать?
3) Где вывод полученной информации (writeln(r))?
4) Треугольника со сторонами c=2, f=4 и g=6 существовать не может
Предлагаю отказаться от экзотических обозначений и сделать проверку на существование треугольника, а также добавить получение данных по сторонам от пользователя:
program i_2;
var a,b,c,p,s: real;
begin
writeln('Определение площади треугольника по теореме Герона');
write('Введите стороны треугольника: ');
readln(a,b,c);
if (a + b <= c) or (b + c <= a) or (a + c <= b) then writeln ('Треугольника с
такими сторонами не существует')
else
begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Площадь треугольника равна ',s:0:3)
end
end.
Окажется 2 файла с расширением .doxc
Путь: С:\Экзамен\Фото\ф5.doxc
Самым легким металлом является литий- высказывание
Пусть искомая команда имеет вид: Сместиться на (x, y)
И пусть начальные координаты Чертёжника (0,0).
После выполнения команды Сместиться на (–4, 8)он будет в точке (-4,8).
Далее, после выполненя цикла из 4-х команд:
Координата Х = -4 + 4*[х+(-2)+4]
Координата Y = 8 + 4*[y+(-5)+6]
Чтобы Чертёжник вернулся в исходную точку, его координаты X и Y должны быть равны начальным: X = 0, Y = 0.
То есть нам нужно решить два уравнения:
-4 + 4*[х+(-2)+4] = 0
-4 + 4х - 8 + 16 = 0
4х + 4 = 0
4х = -4
x = -1
8 + 4*[y+(-5)+6] = 0
8 + 4y - 20 + 24 = 0
4y + 12 = 0
4y = -12
y = -3
Значит, Команда1 должна иметь вид: Сместиться на (-1, -3)
