Напишите, что печатает следующая программа icon

Напишите, что печатает следующая программа



НазваниеНапишите, что печатает следующая программа
Дата конвертации03.06.2012
Размер12.98 Kb.
ТипПрограмма

Вариант 1

Напишите, что печатает следующая программа.


Program P1;

Var a,b,c, d: integer;

Function func (x,y,z;integer):integer;

Var W: integer;

Begin

W:=x+y+z;

If y
Func:=W;

End;

Begin

A:=5;

B:=4:

C:=2:

D:= func (a, b, c);

Writeln ('func от ',A, ' , ',B,'и', С,'даст результат',D);

A:=func(b,c,d);

Writeln ('func от ',B, ' , ',C,'и', D,'даст результат',D);

End.



Вариант 2

Напишите, что печатает следующая программа.


Program P2;

Var d,e,f,g,h,i,j,k:integer;

Funcion Sub1(x,y:integer):integer;

Var x,y:integer;

Begin

If x+y=3 then Sub1:=3 else Sub1:=y-x;

End;

Funcion Sub2(p,q:integer):integer;

Var R,S:integer;

Begin

R:=Sub1(p,q);

S:=Sub1(q,p);

Sub2:=R+S;

End;

Begin

g:=4; h:=7; i:=9; j:=5; k:=2; d:=1; e:=3;

f:=Sub1(g,h);

f:=Sub2(i,j);

f:=sub1(g,k);

writeln(g,' ',h,' ',i,' ',j,' ',k,' ',d,' ',e,' ',f);

end.


Вариант 1

Напишите, что печатает следующая программа.


Program P1;

Var a,b,c, d: integer;

Function func (x,y,z;integer):integer;

Var W: integer;

Begin

W:=x+y+z;

If y
Func:=W;

End;

Begin

A:=5;

B:=4:

C:=2:

D:= func (a, b, c);

Writeln ('func от ',A, ' , ',B,'и', С,'даст результат',D);

A:=func(b,c,d);

Writeln ('func от ',B, ' , ',C,'и', D,'даст результат',D);

End.



Вариант 2

Напишите, что печатает следующая программа.


Program P2;

Var d,e,f,g,h,i,j,k:integer;

Funcion Sub1(x,y:integer):integer;

Var x,y:integer;

Begin

If x+y=3 then Sub1:=3 else Sub1:=y-x;

End;

Funcion Sub2(p,q:integer):integer;

Var R,S:integer;

Begin

R:=Sub1(p,q);

S:=Sub1(q,p);

Sub2:=R+S;

End;

Begin

g:=4; h:=7; i:=9; j:=5; k:=2; d:=1; e:=3;

f:=Sub1(g,h);

f:=Sub2(i,j);

f:=sub1(g,k);

writeln(g,' ',h,' ',i,' ',j,' ',k,' ',d,' ',e,' ',f);

end.







Похожие:

Напишите, что печатает следующая программа iconНапишите, что напечатает следующая программа

Напишите, что печатает следующая программа iconТема : Анализ программы, содержащей подпрограммы, циклы и ветвления
Ниже записана программа. Получив на вход число, эта программа печатает два числа, и. Укажите наибольшее из таких чисел, при вводе...
Напишите, что печатает следующая программа iconТема : Анализ программы, содержащей подпрограммы, циклы и ветвления
Ниже записана программа. Получив на вход число, эта программа печатает два числа, и. Укажите наибольшее из таких чисел, при вводе...
Напишите, что печатает следующая программа iconНапишите, что хорошего

Напишите, что печатает следующая программа iconПрограмма курса физика старшая школа Базовый уровень (68 ч (2 ч в неделю))
В настоящей программе, соответствующей Образовательному стандарту среднего (полного) общего образования по физике, предложена следующая...
Напишите, что печатает следующая программа iconПрограмма курса физика старшая школа Профильный уровень (170 ч (5 ч в неделю))
В настоящей программе, соответствующей Образовательному стандарту среднего (полного) общего образования по физике, предложена следующая...
Напишите, что печатает следующая программа iconДвоичная система счисления
Ее алфавит – цифры 0 и Для перевода числа из двоичной системы счисления в десятичную также справедливо правило (6). Представим в...
Напишите, что печатает следующая программа icon1. От разведчика была получена следующая шифрованная радиограмма, переданная с помощью азбуки Морзе
При передаче радиограммы было потеряно разбиение на буквы, но известно, что использовались только следующие буквы
Напишите, что печатает следующая программа iconПрограмма отдыха для настоящих мужчин (08 дней/07ночей)
Программа"али-баба и 40 разбойниц", и в этом новом сезоне 2005 наша Программа поднялясь на небывалую высоту, вобрав в себя все, что...
Напишите, что печатает следующая программа iconПрограмма отдыха для настоящих мужчин (08 дней/07ночей)
Программа"али-баба и 40 разбойниц", и в этом новом сезоне 2005 наша Программа поднялясь на небывалую высоту, вобрав в себя все, что...
Разместите кнопку на своём сайте:
Документы


База данных защищена авторским правом ©podelise.ru 2000-2014
При копировании материала обязательно указание активной ссылки открытой для индексации.
обратиться к администрации
Документы

Разработка сайта — Веб студия Адаманов