Developing.ru

Надо решить пару програм, а я в этом чайник

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;


Ребята это вопрос жизни и смерти.Помогите, если не трудно и не составит труда.
ВЕК буду помнить....

1.
Глобальные a,b
Локальные p,i
Вывод 5
2.Верны a,c
a)
a=10;
b=30;
c)
a=10
b=22



3.

Большое спасибо.
Вы меня выручли, практически спаслиот смерти

Как меня умиляют вопросы типа "Что выведется на экран после выполнения этой программы?". Копируем код в файл и запускаем его, в чем вопрос-то?
Аналогично во втором случае - подставить 4 разных варианта и запустить. Какие не выдают ошибку - те и верные.

&quot писал(а):Вывод 5

в первой задаче (round - это округление,
вывод 6

Хыиуду,

&quot писал(а):Как меня умиляют вопросы типа "Что выведется на экран после выполнения этой программы?".

ну, зря Вы так... имеется в виду - ответить на вопросы БЕЗ применения Pascal'ь компилятора и IDE... чисто "прокрутив" код в уме...
На такие вопросы вообще без компьютера на бумажке можно (и нужно!) отвечать...

Serge_Bliznykov писал(а):Хыиуду,
ну, зря Вы так... имеется в виду - ответить на вопросы БЕЗ применения Pascal'ь компилятора и IDE... чисто "прокрутив" код в уме...
На такие вопросы вообще без компьютера на бумажке можно (и нужно!) отвечать...

Вы правы, но тут-то человек задал этот вопрос на форуме, ожидая готовый ответ. Какая в принципе разница, исполнится ли этот код компилятором Паскаля или мозгами посетителей форума, в любом случае получится вполне конкретный вывод

Serge_Bliznykov писал(а):в первой задаче (round - это округление,
вывод 6

Опс и вправду я немного неправильно прочитал... мне показалось что a=5.4

&quot писал(а):Вы правы, но тут-то человек задал этот вопрос на форуме, ожидая готовый ответ. Какая в принципе разница, исполнится ли этот код компилятором Паскаля или мозгами посетителей форума, в любом случае получится вполне конкретный вывод

ага. а с такой точки зрения я не посмотрел - про тех, кто задачу решает думал, а про автора вопроса и позабыл...
Тогда, безусловно согласен с Вашим мнением!

Medved, бывает... ;-)))

помогите решить задачу. дана трех значная цыфра.если поменять места первой и второй цыфры,что получится