Turbo Pascal 11-В Любченко Аня и Слободянюк Настя

Что это такое? Язык программирования высокого уровня. Создан в гг. Никлаусом Виртом, профессором швейцарского университета.

Алфавит Turbo Pascal Латинские буквы от А до Z Арабские цифры 0,1,2,3,4,5,6,7,8,9 Знаки препинания., : ; … Знаки арифметических операций + - * \ Знаки логических операций = Специальные символы ( ) { } [ ] ` := (* *)

Структура программы

Командная часть программы (состоит из необязательных разделов) Заголовок программы (необязателен) Program Список используемых модулейUses …; (понадобится, если используются операторы не встроенные в Паскаль, но описанные в отдельных файлах) МеткиLabel …; (понадобится, если мы захотим внутри программы перепрыгивать через операторы при помощи Goto) КонстантыConst …; (понадобится, если используются неизменные величины) ТипыType …; (используется для создания собственных типов) ПеременныеVar …; (нужно, если в программе необходимо запоминать значения и обрабатывать их) ПроцедурыProcedure …; (нужно для создания собственных операторов в программе) ФункцииFunction …; (нужно для создания собственных операторов в программе) Описание логики программы (обязательная для любой программы) Раздел операторовBegin End.

Программа Т.Р. состоит из двух частей: - ЗАГОЛОВОК (содержит название программы, имена переменных и их типы) - БЛОК (тело программы, содержит основные части)

Заголовок Имя программы (пишется латинскими буквами, возможно с использованием цифр) После каждой законченной команды ставится « ; » VAR (variation – описание переменных) Переменные записываются английскими буквами с использованием цифр, не должны совпадать с названием программы. Типы данных Integer- натуральные числа, целый тип Real- вещественный тип, дробные, отрицательные числа Char- символы Array- массив String- строка

Основной блок ограничивается словами Begin и End в конце – «. » Команда ввода и вывода: Read и Write Переменные разных типов не могут входить в материальные отношения друг с другом.

МАССИВЫ

1. Пара слов о массивах Массивы - упорядоченный набор элементов одного типа, обозначенный одним именем.

Алгоритм обработки массива Ввод элементов массива осуществляется в цикле. Обработка элементов массива в цикле. Вывод элементов массива в цикле.

Формат : array[1..N] of Пример: Описать массив целых чисел размерности 100 под именем С C:array[1..100] of integer;

Задача Найти среднюю температуру за неделю

t:array [1..7] of real Обратиться к элементу массива можно по его порядковому номеру (индексу). t[3]=-1.2 – значение температуры в среду t[i] – итый элемент массива

Алгоритм Ввести элемент массива в память компьютера в цикле Найти сумму элементов массива Среднее арифметическое Вывести данные на экран

Program Z_1; (*строка заголовка*) Var (*раздел переменной*) t:array [1..7] of real; (*описание переменной*) t:Integer; (*описание переменной*) sum:real; (*описание переменной*) Sred:real; (*описание переменной*) Begin (*открывающая операторная скобка*) For i:=1 To7 Do Begin (*оператор с параметром*) Write( t[,i,]=); (*оператор вывода*) Readln(t[i]) (*оператор ввода*) End; (*конец*) Sum:=0; (*оператор присваивания*) For i:=1 To 7 Do sum:=sum+t[i]; (*оператор с параметром*) Sred:=sum/I; (*оператор присваивания*) Writeln(sred=,sred:5:2) (*оператор вывода*) End. (*конец*)

Задача Запишите фрагмент вывода элементов из массива, вывод оформить в столбик, поясняющая надпись для каждого элемента обязательна. Запишем программу, которая вводит элементы массива в память компьютера (в столбиках) и вывод элемента массива оформить также в столбик.

Program Z_2; Var A:array [1..5] of Integer; i:integer; Begin Writeln (vvod massiva:45); For i:=1 To 5 Do Begin write( a[,i,]=); readln(a[i]) End; Writeln (vivod massiva:45); For i=1 To 5 Do Begin Write( a[,i,]=); Writeln(a[i]) End; End.

2. Поиск заданного элемента в массиве Алгоритм нахождения количества нулевых элементов в массиве: Ввод элементов массива в цикл. Сравниваем в цикле каждый элемент массива с нулем, если выполняется условие a[i]=0, то увеличить переменную k на 1(k- переменная для подсчёта нулевых элементов). Вывод k.

Program Z_3; Var a:array [..15] Of Integer; k,i:Integer; Begin For i:=1 To 5 Do Begin Write( a[,i,]=); Readln(a[i]) End; For i:=1 To 5 If a[i]=0 Then k:=k+1; Writeln(kolichestvo nulevux elementov massiva=,k) End.

3. Поиск минимального элемента в массиве Алгоритм Первый элемент массива принимается за минимальный. В цикле, начиная со второго элемента все сравниваются с минимальным Если очередной элемент массива меньше минимального, то он принимается за минимальтный.

Program Z_min; Var t:array[1..5] of integer; i,min: integer; ind : integer; Begin For i:= 1 to 5 do begin write(t[,i,]=); readln(t[i]) end; min:=t[1]; ind:=1 for i:=2 to 5 do if t[i]<min then begin min :T[i]; ind :=i end; Write:(min=); End.

Введение данных задачи в окно программы Turbo Pascal