СодержаниеСодержание
Задача 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 г.
|
