2606 (Turbo Pascal)

if Max[i]<Elem[i,k] then Max[i]:=Elem[i,k]; end;

for i:=1 to 9 do begin

Min[k]:=Elem[1,k]; for k:=1 to 9 do

if Min[k]>Elem[i,k] then Min[k]:=Elem[i,k]; end;

for i:=1 to 9 do

begin

for k:=1 to 9 do

write (LM,Elem[i,k]:5:1); writeln (LM,Max[i]:9:1);

end; writeln (LM); for k:=1 to 9 do

write (LM,Min[k]:5:1); writeln (LM); Close(LM);

end.

5. Результат:

Открываем файл Matr.txt, находящийся в корневом каталоге диска D.

Лабораторная работа № 4. Построение графика функции

1. Условие задачи.

Нарисовать график функции RN = Ab Sin(Ab) на отрезке [c, d ].

13

2. Постановка задачи. Вводимые переменные: с – начало отрезка;

d – конец отрезка;

c, d – вещественные числа;

mg,mv – масштабы по вертикали и по горизонтали. Проверка исходных данных.

Необходимо учитывать, что переменные c, d должны соответствовать следующим условиям: d > c. Если данные не соответствуют этим условиям, необходимо повторить ввод данных.

1. Для решения этой задачи рассчитаем значение промежуточной переменной shag – шаг по формуле:

shag = d20− c ,

2. Выводимые переменные Ab, RN. Организуем цикл, в котором переменная цикла

Ab должна меняться в пределах от Ab = c до Ab = d c шагом shag. Начальное значение

Abнач = c, Abслед = Ab + shag, пока Ab ≤ d .

Затем рассчитаем масштаб по горизонтали и вертикали по формулам:

б) График

14

Алгоритм

15

4. Текст программы:

Program Grafic;

{Автор}

Uses Graph, Crt; {подключение графического модуля}

Const

GraphDriver:Integer=1;

GraphMode:Integer=1;

Var c, d, RN, Ab, mg, mv, shag:Real;

Procedure VVOD (Var Z,Y:Real);{Объявление процедуры ввода.} Begin

WriteLn ('Введи начало и конец отрезка'); ReadLn (Z,Y);

If Z>Y then VVOD (Z,Y);

End;

Function f(k:Real):real; {Объявление функции для вычисления значений данной в условии задачи функции.}

Begin

f:=k*abs(Sin(k));

End;

Begin

VVOD (c,d); {Вызов процедуры ввода.} shag:=(d-c)/20;

writeln ('Ab ','RN'); Ab:=c;

while Ab<=d do

Begin

RN:=f(Ab); {Вызов функции.} writeln (Ab:5:2,RN:6:2); Ab:=Ab+shag;

End;

write ('Введи mg,mv'); readln (mg,mv);

InitGraph (GraphDriver,GraphMode,' ');{Обращение к графическому модулю}

Line (10,10,10,190); {рисует линию между точками (10, 10) и (10, 190)}

Line (10,190,310,190); Ab:=c;

RN:=f(c);

MoveTo (10+round(c*mg), 190-round(RN*mv));

{устанавливает курсор в точку с координатами (10+round(c*mg),190-round(RN*mv)}

16

while Ab<=d do

Begin

Ab:=Ab+shag;

RN:=f(Ab);

LineTo (10+round(Ab*mg), 190-round(RN*mv));

{рисует линию от текущего положения курсора до точки с координатами{10+round(Ab*mg),190-round(RN*mv)}

End;

if KeyPressed then CloseGraph;

{если нажать клавишу, то закроется графический режим}

end.

5. Результат:

Введи начало и конец отрезка 1 5 Ab Rn

1.000.84

1.20 1.12

…………………

…………………

5.004.79

Пример графической процедуры, позволяющей построение прямоугольной диаграммы:

Bar (10+round(Ab*mg), 190, 10+round((Ab+shag)*mg), 190-round(f(Ab+shag)*mv));

{рисует закрашенный прямоугольник с диагональными точками 10+round(Ab*mg), 190 и 10+round((Ab+shag)*mg), 190round(f(Ab+shag)*mv)}

17

Лабораторная работа № 5. Строковые типы и операции над ними

Объявление строковой величины: var Fam:string; Операции над строковыми переменными:

x: = length(Fam); – подсчитывает количество символов в слове Fam;

k: = pos('н',Fam); – определяет номер позиции символа «н» в слове Fam;

VR: = Copy(Fam,N,Z); – вырезает из слова Fam Z символов, начиная с символа номер N.

Пример. Fam:=’Иванов’; For k:=1 to 4 do Begin

VR:=copy(Fam,k,3);

writeln(VR);

end;

Результат:

ива

ван

ано

нов

Выполнение лабораторной работы рассмотрим на конкретном примере.

1. Условие задачи:

Подсчитать количество химических формул, в которые входят две молекулы кислорода.

2. Постановка:

Вводимые переменные: FHE[i] – элемент массива химических формул. Промежуточные переменные: i – номер формулы , R – номер символа, VR – вырезка

из FHE[i].

Выводимые переменные: kol – количество формул. Представление результата:

kol =……

18

3. Алгоритм:

начало

i = 1

Введи формулу

FHE[i]

i = i + 1

i > 20

kol = 0

i = 1

длина FHE[i]

R = 1

Вырезка двух символов

нет да

VR=’O2’

kol = kol+1

R = DF

R = R + 1

нет да

R > DF–1

I = I + 1

4. Текст программы:

Program Him;

19

{составил ……}

var FHE:array[1..20] of string[15]; DF, i, R, kol:word; VR:string[2];

begin

for i:=1 to 20 do

begin

write('введи формулу '); readln(FHE[i]);

end;

kol:=0;

for i:=1 to 20 do begin

DF:=length(FHE[i]);

R:=1; repeat

VR:=copy(FHE[i],R,2); if VR='O2' then

begin kol:=kol+1; R:=DF;

end;

R:=R+1; until R>DF-1;

end;

Write(kol);

end.

5. Результат

Введи формулу C2H5OH Введи формулу H2O

……………………………

введи формулу СO2 kol = 12

Библиографический список

1.Немногих С. А. TurboPascal. Программирование на языке высокого уровня. СПб.:

Питер, 2007. – 544 с.

2.Павловская Т. А. Паскаль. Программирование на языке высокого уровня. СПб.:

Питер, 2007. – 393 с.

3.Меняев М.Ф. Информатика и основы программирования. М.: Омега-Л, 2007. – 458 с.

20