Блок-схема и паскальопределить, лежит ли точка (x, y) внутри круга с центром в начале координат и радиусом 5. ввести число. если оно больше 8, разделить его на 4, если меньше или равно 8, то умножить на 5.
1) Если использовать последний Паскаль АВС, который умеет вычислять степень (Power), то вот вариант программы: var n:integer; s:real; {вообще, он целый, но мой компилятор не пропускает, почему-то считает, что результат вычислений будет real} begins:=0; n:=1; while s<5 do begin s:=3*power(n,4)-730*n; {для старого Паскаля напиши так: s:=3*sqr(sqr(n))-730*n} n:=n+1 end; writeln(n) end.
2) var n,s:real; begin s:=0; n:=1; while s<=10 do begin s:=exp(n)-1000*Ln(n); n:=n+1 end; writeln(n) end.
Если вводить футболистов с клавиатуры и их не больше, например, 25 человек, то программа может быть такая: Program futbol; var fio: array [1..25] of string; gol: array [1..25] of integer; i,j: integer; f: string; begin writeln ('Введите фамилии игроков, забивших голы'); writeln ('Окончание ввода - пустая строка'); j:=0; repeat readln(f) newfio:=true; for i:= 1 to j do begin if fio[i]=f then begin gol[i]=gol[i]+1; newfio:=not newfio; end; if newfio then begin j:=j+1; fio[j]:=f; end; while not f='';
for i:= 1 to j do begin if gol[i]>2 then writeln fio[i]; end; end.
var
n:integer;
s:real; {вообще, он целый, но мой компилятор не пропускает, почему-то считает, что результат вычислений будет real}
begins:=0;
n:=1;
while s<5 do
begin
s:=3*power(n,4)-730*n; {для старого Паскаля напиши так: s:=3*sqr(sqr(n))-730*n}
n:=n+1
end;
writeln(n)
end.
2)
var n,s:real;
begin
s:=0;
n:=1;
while s<=10 do
begin
s:=exp(n)-1000*Ln(n);
n:=n+1
end;
writeln(n)
end.
Program futbol;
var fio: array [1..25] of string;
gol: array [1..25] of integer;
i,j: integer;
f: string;
begin
writeln ('Введите фамилии игроков, забивших голы');
writeln ('Окончание ввода - пустая строка');
j:=0;
repeat
readln(f)
newfio:=true;
for i:= 1 to j do begin
if fio[i]=f then begin
gol[i]=gol[i]+1;
newfio:=not newfio;
end;
if newfio then begin
j:=j+1;
fio[j]:=f;
end;
while not f='';
for i:= 1 to j do begin
if gol[i]>2 then writeln fio[i];
end;
end.