Содержание

Задача 1 3

Составить программу для вычисления

используя процедуру

Задача 2 5

С помощью инструкции case спроектировать меню с двумя пунктами: а) ввод данных в файл с клавиатуры; б) ввод данных в файл с клавиатуры, а также добавление данных в файл, чтение исходного и добавленного текстов из файла.

Задача 3 8

Описать переменную экзаменационную ведомость (предмет, номер группы, номер зачетки, ФИО, оценка). Использую массив таких переменных, определить отличников, хорошистов, троечников и двоечников

Задача 4 12

Известна информация о 30 клиентах пункта проката: фамилия, имя, отчество, адрес и телефон. Известно также название предмета, взятого каждым из них напрокат (m-телевизор, x-холодильник и т.п.). Вывести на экран фамилию, имя и адрес каждого из клиентов, взявших напрокат телевизор

Задача 5 14

Задана фраза. Расположить слова в этой фразе в порядке, обратном алфавитному.

Задача 6 16

Дана строка. Найти в ней те слова, которые начинаются и оканчиваются одной и той же буквой.

Задача 7 18

Дана матрица целых чисел размером MxN. Выяснить, имеются ли седловые точки в этой матрице, и, если имеются, указать индекс одной из них.

Список литературы 21

Задача 1

Задание

Составить программу для вычисления

используя процедуру

Решение

program zadacha1;

var

z:real; {искомая функция}

a,b:integer; {аргументы исходной функции z}

function sh(x:integer):real;

var

i:integer; {параметр цикла}

rez1,rez2:real; {результаты возведения экспоненты в степень x}

begin

rez1:=1;

rez2:=1;

for i:=1 to x do

rez1:=rez1*exp(1); {подсчет степени первой экспоненты}

x:=-x;

for i:=1 to x do

rez2:=rez2*exp(1); {подсчет степени второй экспоненты}

rez2:=1/rez2;

sh:=(rez1-rez2)/2; {подсчет значения функции sh}

end;

begin

write('Input a:');{Ввод a и b}

readln(a);

write('Input b:');

readln(b);

if b=0 then begin writeln(‘Divizion by zero’); readln; end

else z:=(sqr(sh(a))+sh(a-b))/(sh(a)+sqrt(sh(a*a-b*b)));{Подсчет z}

writeln('Z=',z:10:6);{Вывод результата}

readln;

end.

Контрольные наборы данных: 1) 1, 1 2) 0,1 3) 1,0

Протестировав программу, приходим к выводу о правильности кода.

Список литературы

1. Фаронов В.В. Turbo Pascal 7.0. - М.:Нолидж, 2005г.

2. Турбо Паскаль 7.0. - К.:Торгово-издательское бюро BHV, 1997г.

3. Зуев В.А. Турбо Паскаль 6.0 7.0. - М.: Радио и Связь, 1993 г.

4. Файсман А. Профессиональное программирование на Турбо-Паскале. - Info&F - Infomex - KoinKo, 1992 г.

5. Немнюгин С.А. Turbo Pascal. - Спб.: Питер, 2003 г.

Примечаний нет.