Способы задания алгоритма.
— словесная (запись на естественном языке);
— графическая (изображения из графических символов);
— программная (тексты на языках программирования).
//PascalABC.NET v3.3 1633
begin
var days: array [1..7] of string:=('Понедельник', 'Вторник', 'Среда', 'Четверг', 'Пятница', 'Суббота', 'Воскресенье');
var n:=ReadLnInteger('Введите номер дня: ');
writeln(n+' день — ' + days[n mod 7]);
end.
Восопользуся Algo на паскале или Delghi 6.0
Формула
y=(2x-17√(x-7))/|3x-12|
Программа
Program y
var x, y: real
BEGIN
write ('Vvedite x');
readln (x);
y=(2*x-17*sqrt(x-7))/abs(3*x-12);
writeln ("y = ", y);
END.
label ra,rb;
var a,b,c: integer;
begin
write('Введите сторону a: ');
readln(a);
ra: write('Введите сторону b: ');
readln(b);
if b>a then
begin
rb: write('Введите сторону c: ');
readln(c);
if c>b then begin
if sqr(c)=sqr(a)+sqr(b) then writeln('Этот треугольник - прямоугольный') else writeln('Этот треугольник - не прямоугольный');
end else begin writeln('Введите число больше, чем ',b); goto rb; end;
end else begin writeln('Введите число больше, чем ',a); goto ra; end;
end.