1.
Program P1;
var a,b:real;
function s(d:real):integer;
var p,i:integer;
begin
p:=0;
for i:=1 to round(d) do
p:=p+1;
s:=p;
end;
begin a:=5.6;
write (s(a));
end.
надо написать имена глобальных и локальных переменных и что будет выводится на экран после выполнения программы.
2.
Program p2;
var a,b:integer;
procedure P(a: integer; var x: integer);
begin x:=2*a; end;
begin a:=10; b:=15;
{ вызов процедуры P}
end.
Надо определить какие из приведеных ниже обращений к процедуре Р верны и вычеслить значение переменых a и b для каждого верного вызова
а) P(b,b);
b)P(5,a,b);
c)p(a+1,b);
d)P(a,b+1);
3.напишите процедуру, которая для вещественных чисел a и b , выводит на экран одно из следующих сообщении:
ПОЧТИ РАВНЫ- если |a-b|<=0,01;
МЕНЬШЕ-если a-b<-0,01;
БОЛЬШЕ-если a-b>0,01;
Ребята это вопрос жизни и смерти.Помогите, если не трудно и не составит труда.
ВЕК буду помнить....
