2015-08-12
197Выполнил:
Студент гр.11ОЭ1б __________________________ И.С.Балакирева
подпись, дата
Принял:
Доцент кафедры ИКТ _________________________
подпись, дата
Пенза
Лабораторная работа №3
Разработка циклических программ с заданным числом повторений
Цель работы
Целью работы является освоение процесса разработки циклических программ с заданным (известным) числом повторений на языке Turbo Pascal.
Задание на лабораторную работу
1. Освоить функции интегрированной среды Turbo Pascal для подготовки текста программы, компиляции и запуска на выполнение (п. 1.5.1 - 1.5.2).
2. Составить программу по заданному варианту Вариант №3
Порядок выполнения работы
1. Получить вариант задания (п. 1.9).
2. Изучить функции системы Turbo Pascal для подготовки текста программы, компиляции и запуска на выполнение. Освоить функции редактора для подготовки текста программы (п. 1.5.1 - 1.5.2).
3. Изучить структуру Pascal-программы, операторы определения переменных стандартных типов и операторы ввода-вывода значений переменных указанных типов (п. 1.6 - 1.7).
4. Подготовить файл с исходным текстом программы и отладить программу с использованием среды Turbo Pascal (п. 1.5, 1.8).
5. Устно ответить на контрольные вопросы (п. 1.11).
6. Оформить отчет (п. 1.10).
Вариант №3
а) Вычислить 
.
Program lab3a;
Var
X,I,s,n:integer;
Begin
Writeln(‘wwod znachenia x’);
Read(x):
Writeln(‘wwod znachenia n’);
Read(n):
S:=0;
For I:=1 to n do
S:=s+(i*x)
Writeln (‘symma ryada =’,s);
Readln
End.
б) Подсчитать сумму нечетных элементов кортежа
Program lab3b;
Const n=5;
Var
i,p:integer;
a:array[1..n] of integer;
Begin
Writeln(‘wwod znachenia n’);
Read(n);
For I:=1 to n do
Writeln (‘a[‘I’]=’);
Read (A[1]);
end
P:=1;
For;I:=1 to n do
If(a[i]<0)then
P:=p*a[i];
Writeln(‘proizwedenie =’,p);
Readln
End.
в) Найти минимальный элемент матрицы n´m.
Program lab3с;
uses crt;
var
n:real;
Ar:array[0..9]of integer;
I,min: integer;
b:array[1..n] of real;
begin
for i:=1 to 9 do begin
writeln(‘Ar[‘,i,’I =');
read(Ar[i]);
end
writeln;
min:=Ar[1];
for i:=2 to 9 do
if Ar[i]<min then
min:=Ar[i];
writeln(min);
readln;
readln;
end.
Вывод: в ходе работы мы освоили процесс разработки циклических программ с заданным (известным) числом повторений на языке Turbo Pascal.
