Программирование задач с массивами и строками. (язык программирования Turbo Pascal.)

Практическая работа. № 5
на выполнение работы по предмету «Информатика»

Тема: Язык программирования Turbo Pascal.
Вид занятия: Практическая работа.
Наименование работы: Программирование задач с массивами и строками.
Характер работы: частично-поисковый.
Цель занятия: Познакомиться с методикой разработки и программирования задач с массивами и строками.
Оснащение рабочего места: ПК с установленной средой программирования Turbo Pascal.
Норма времени: 2 часа.
Предписание: Соблюдать меры безопасности при работе с ПК (см. инструкцию на рабочем месте).
Допуск к работе.
Письменно подготовьте ответы на следующие вопросы:
Что называют подпрограммой.
Какой вид имеет заголовок процедуры
Какой вид имеет заголовок функции.
Выполнение работы
Запустите компьютер и дождитесь окончания загрузки операционной системы.
Запустите оболочку программирования Turbo Pascal щелчком на ярлычке Паскаль находящемся на рабочем столе.
Дайте команду File(New (Файл(Новый) а затем File(Save (Файл(Сохранить) и введите имя файла, состоящее из первых трех букв фамилии, записанных английскими буквами и цифры 9. Введите текст программы из приложения № 1. Проверьте программу на наличие ошибок.
Работа с введенной программой
Измените текст программы так чтобы на экран выводился минимальный элемент массива.
Создайте новый файл и сохраните его способом, описанным ранее (в названии файла используйте цифру 10). Введите текст программы из приложения № 2. Запустите процесс проверки текста программы. Проверьте работоспособность программы. Для проверки используйте данные из приложения и свои личные данные.
Пригласите преподавателя для проверки работы. Произведите выход из программы.
Произведите завершение работы компьютера и приведите рабочее место в порядок
Приложение №1
Программа служит для ввода массива чисел и вывода максимального элемента массива.
Program ex;
Var a:array[1..5] of real;
amax:real;
i, imax:byte;
Begin
WriteLn('Vvedite 5 chisel:');
for i:=1 to 5 do Read(a[i]);
ReadLn;
amax:=a[1];
imax:=1;
for i:=2 to 5 do
if a[i]>amax then
begin
amax:=a[i];
imax:=i;
end;
WriteLn('Ishodnie dannie:');
for i = 1 to 5 do Write(a[i]:5:2);
WriteLn;
WriteLn('Maksimalniy element raven ', amax:5:2,', ego nomer raven ', imax);
End.
Приложение 2.
Программа служит для ввода полных фамилии, имени, отчества и года рождения и вывода фамилии инициалов и возраста, например: Ivanov Ivan Ivanovith 1956 ( Ivanov I.I. 52
Program stroka;
Var st,strez,strab:string[40];
c1, c2, c3, n, old, code: word;
Begin
Writeln(Vvedite familiyu, imya, othsestvo i god roshdeniya rasdelennie probelami.’);
Readln(st);
While st<>’’ do
Begin
c1:=Pos( ,st);
strez:=Copy(st,1,c1+1)=’.’;
strab:=Copy(st,c1+2,Length(st)-c1-1);
c2:=Pos( ,strab);
strez:=strez+strab[c2+1]+’.’;
Delete(strab,1,c2+1);
c3:=Pos( ,strab);
Delete(strab,1,c3);
Val(strab,n,code);
old:=2008-n; Str(old,strab);
strez:=strez+’ +strab;
Writeln(strez);
Writeln(Vvedite familiyu, imya, othsestvo i god roshdeniya rasdelennie probelami.’);
Readln(st);
End;
End.