Вопрос 4

Программирование схемы алгоритма (п. 3.4 вопрос 2 лекции 1))на языке Си++ (консольный режим)

Вопрос 5 Пример использования подпрограмм при программировании в среде Паскаль

Рассмотрим решение вышеприведенной задачи на языке программирования Паскаль с использованием подпрограммы, начиная с пункта 3.4.

4. Составление схемы алгоритма

4. Запись алгоритма на языке программирования Borland Pascal.

Текст основной программы:

{Иванов Иван Иванович АТС-141 а:\lab4.pas 14.09.98} {1}

program lab4; {2}

uses Crt; {3}

const ind=1; {1-вывод в файл с именем filename;

2- на принтер; 3- на экран} {4}

filename='а:\out.pas'; {5}

var u,i,r:real; {6}

f:text; ch:char; {7}

{$I а:\outpr.pas} {8}

begin {9}

outpr(f,ind,filename); {10}

write('напряжение u(B)='); readln(u); {11}

write('ток i(A)='); readln(i); {12}

r:=u/i; {13}

writeln(f, 'Исходные данные: u=', u:3:1, ',В i=', i:3:1',А') {14}

writeln(f, 'Результаты: r=', r:3:1, ',Ом'); {15}

close(f); {16}

writeln('...'); {17}

writeln('Пpогpамма завершена. Нажмите любую клавишу'){18}

ch:=readkey; {19}

end. {20}

Текст подпрограммы вызываемой в основной программе:

{текст программы находится в файле a:\outpr.pas 14.09.2000}{21}

procedure outpr(var f:text;ind:integer;filename:string); {22}

begin {23}

clrscr; {24}

if ind=1 then assign(f,filename) {25}

else if ind=2 then assign(f,'prn') {26}

else assigncrt(f); {27}

rewrite(f); {28}

writeln('Укажите исходные данные:'); {29}

end; {30}