Линейный алгоритм, Алгоритм с ветвлениями, Циклический алгоритм Линейный алгоритм

@denis67765 · Регистрация: 17.02.2014

Линейный алгоритм, Алгоритм с ветвлениями, Циклический алгоритм
Линейный алгоритм
1. Объясни, что будет напечатано программой

Pascal

Program e1;
Var b,c,d:real;
Begin
Read (b,c);
D:=sgrt(sgr(b) – 4*c);
Writeln (`x1=` ,(-b+d)/2, ` x2=` , (-b-d)/2
End

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

@code-n'-help · 19.02.2014, 18:07

D:=sgrt(sgr(b) – 4*c);
Writeln (`x1=` ,(-b+d)/2, ` x2=` , (-b-d)/2
Ну это какая то пародия на дискриминант

Добавлено через 1 минуту

Pascal

var p,a,S:integer;
begin
read(p);
a:=p/3;
S:=(sqrt(3)*a*a)/4
write(S);

Добавлено через 17 секунд

Pascal

end.

Опции темы