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

Лабораторная работа №24.

Цель работы:

1) Получить необходимые навыки при использовании операторов в среде Turbo Pascal;

2) Научиться создавать, корректировать и выполнять простые программы с использованием подпрограмм.

!!! Выучите формальные и фактические параметры.

Задача 1. Составьте программу, в которой при помощи функции находится max(2x, 3x-10,max(x при заданных с терминала x,a.

uses crt;

type mas=array[1..4] of real;

function Max(d:mas;n:integer):real;

var i:integer;mx:real;

begin mx:=d[1]; for i:=2 to n do

if d[i]>mx then mx:=d[i];

max:=mx;

end;

var x,t:integer;

mx:real;

a,b,c:mas;

begin clrscr;

write('ВВедите x,t');

readln(x,t);

a[1]:=sqr(x)-x;

a[2]:=exp(3*ln(x))-sqr(x)-3*x;

c[3]:=Max(a,2);

writeln('Max(x^2-x,x^3-x^2-3x)=',c[3]:6:2);

b[1]:=t-x;

b[2]:=x-t;

c[4]:=Max(b,2);

writeln('Max(a-x,x-a)=',c[4]:6:2);

c[1]:=2*x;

c[2]:=3*x-10;

mx:=Max(c,4);

writeln('Max(2x,3x-10,max(x^2-x,x^3-x^2-3x),max(a-x,x-a))=',mx:6:2);

readln;

end.

Задача 2. Составьте программу, в которой при помощи функции находится максимальный элемент для массивов А(22), Р(12), Т(33), затем общий максимальный элемент, затем при помощи процедуры все отрицательные элементы каждого из трех массивов замените на модуль первого элемента соответствующего массива для массивов А(22), Р(12), Т(33). Предусмотреть вывод на экран исходных и измененных массивов.

uses crt;

type mas=array[1..33] of integer;

var a,p,t,m:mas;

i,maxi:integer;

procedure WWOD(var d:mas;n:byte);

begin for i:=1 to n do

d[i]:=random(101)-50;

end;

procedure WIWOD(var d:mas;n:byte);

begin

for i:=1 to n do

write(d[i]:5);

end;

function Max(var d:mas;n:byte):integer;

var mx:integer;

begin mx:=d[1];

for i:=2 to n do

if d[i]>mx then mx:=d[i];

max:=mx;

end;

procedure zamena(var d:mas;k:byte);

begin

for i:=1 to k do if d[i]<0 then d[i]:=abs(d[1])

end;

begin clrscr;

randomize;

WWOD(a,22); WWOD(p,12); WWOD(t,33);

writeln;

writeln ('Massiv A');

WIWOD(a,22);

m[1]:=Max(a,22);writeln;

writeln('Maksimal A=',m[1]);

writeln;

writeln ('Massiv P');

WIWOD(p,12);

m[2]:=Max(p,12);writeln;

writeln('Maksimal P=',m[2]);

writeln;

writeln ('Massiv T');

WIWOD(t,33);

m[3]:=Max(t,33);writeln;

writeln('Maksimal T=',m[3]);

maxi:=Max(m,3);

writeln('Max=',maxi);writeln;

zamena(a,22);

writeln('Noviy A');

WIWOD(a,22);

zamena(p,12);writeln;

writeln('Noviy P');

WIWOD(p,12);

zamena(t,33);writeln;

writeln('Noviy T');

WIWOD(t,33);

readln;

end.

Задача 3. В матрице А(4,8) определить с помощью функции разность между максимальным и минимальным элементом каждой строки и записать в дополнительный столбец в основной программе. Предусмотреть вывод начального массива и массива после дозаписи.

Дата добавления: 2015-06-26