вещ a,c,s,h;
цел x;
алг
нач
нц пока да
вывод "1 известно катет ";
вывод "2 известно гипотенуза ";
вывод "3 известно высота ";
вывод "4 известен квадрат ";
вывод "5 выход ";
вывод "Ваш выбор: ";
ввод x;
выбор
при x=1:
вывод "Катет = ";
ввод a;
c:=sqrt(2*a*a)
вывод "Гипотенуза =", c, "Катет =", a;
при x=2:
вывод "Гипотенуза =";
ввод c;
a := sqrt(c*c/2);
вывод "Гипотенуза =", c, "Катет =", a;
при x=3:
вывод "h = ";
ввод h;
c := 2*h*sin(45*3.14/180);
a := h* cos(45*3.14/180);
вывод "Гипотенуза =", c, "Катет =", a;
при x = 4:
вывод "S = ";
ввод s;
a:=sqrt(2*s);
c:=sqrt(2*a*a);
вывод "Гипотенуза =", c, "Катет =", a;
при x = 5:
стоп;
все
кц
кон
1.
var x,y:integer;
begin
write('x = ');
readln(x);
if x>0
then y:=1
else if x=0 then y:=0 else y:=-1;
writeln('y = ',y);
end.
Пример:
x = -5
y = -1
2.
var a,b,c,x1,x2,d:real;
begin
writeln('Введите a, b, c:');
readln(a,b,c);
d:=b*b-4*a*c;
if d>0
then begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln('x1 = ',x1,' x2 = ',x2);
end
else if d=0 then begin
x1:=-b/(2*a);
writeln('x = ',x1);
end
else writeln('Корней нет');
end.
Пример:
Введите a, b, c:
2 5 -3
x1 = 0.5 x2 = -3
3.
var a,b,c:real;
begin
writeln('Введите a, b, c:');
readln(a,b,c);
if (a<=b)and(b<=c)
then begin
b:=a; c:=a;
end
else begin
a:=-a; b:=-b; c:=-c;
end;
writeln('a = ',a,' b = ',b,' c = ',c);
end.
Пример 1:
Введите a, b, c:
2 5 9
a = 2 b = 2 c = 2
Пример 2:
Введите a, b, c:
2 9 5
a = -2 b = -9 c = -5
Информацыоное общество,алгаритм и его формальное исполнение
Const n = 7;
var
a:array [1..n] of integer;
i:integer;
begin
writeln('Первоначальный массив');
for i:=1 to n do
begin
a[i]:=5+random(31);
writeln(a[i]);
end;
writeln('Преобразованный массив');
for i:=1 to n do
begin
if a[i]>15 then a[i]:=8;
if a[i]= 5 then a[i]:=0;
writeln(a[i]);
end;
end.
