Хелпикс

Главная

Контакты

Случайная статья



Begin. fori:=1 tok do



 

Практическая работа № 12 Решение задач с использованием подпрограмм процедур и функций.

Цель работы: сформировать умения использовать вспомогательные программы для конструирования программ в Pascal

Вариант 1.

3. Дана программа определите:

Program n_3;

Var x, y, z: integer;

Procedure tr(a: integer;

Var b: integer);

Begin

a: =a+10; b: =a*a;

End;

Begin

Writeln('x= '); Read(x);

Tr(x, y); Tr(y, z); Y: =y+z;

Write('Y=', y)

End.

имя программы  
тип подпрограммы  
имена и тип формальных переменных  
имена и тип фактических переменных  
результат работы программы при х=2  

4. Напишите программу вычисления выражения:  . Используйте функцию для возведения числа в степень

function VozvStep(a, k: integer): integer;

var

i: integer;

begin

result: =1;

fori: =1 tok do

result: =result*a;

end;

Практическая работа № 12 Решение задач с использованием подпрограмм процедур и функций.

Цель работы: сформировать умения использовать вспомогательные программы для конструирования программ в Pascal

Вариант 2.

3. Данапрограммаопределите:

Program n_3;

Var x, y: integer;

P: Longint;

Function F(n: integer): Longint;

Begin

N: =n*1000000; f: = n+n;

End;

Begin

Writeln('x= '); Read(x);

Writeln('y= '); Read(y);

P: =F(x)+F(y)+F(x+y);

Write('p=', p)

End.

имя программы  
тип подпрограммы  
имена и тип формальных переменных  
имена и тип фактических переменных  
результат работы программы при x=1, y=2  

4. Напишите программу вычисления выражения:  . Используйте функцию для возведения числа в степень

function VozvStep(a, k: integer): integer;

var

i: integer;

begin

result: =1;

fori: =1 tok do

result: =result*a;

end;



  

© helpiks.su При использовании или копировании материалов прямая ссылка на сайт обязательна.