книга DipMaster-Shop.RU
поиск
карта
почта
Главная На заказ Готовые работы Способы оплаты Партнерство Контакты F.A.Q. Поиск
Искусство программирования ( Реферат, 17 стр. )
ИСПОЛЬЗОВАНИЕ ЯЗЫКОВ ПРОГРАММИРОВАНИЯ ( Курсовая работа, 33 стр. )
Исследование термостабильности математической модели белка-порина методом молекулярной динамики ( Отчет по практике, 14 стр. )
Исследование цифровых устройств, реализуемых на СБИС гибкой логики ( Контрольная работа, 9 стр. )
КВАДРАТИЧНАЯ АППРОКСИМАЦИЯ ФУНКЦИИ ЛАГРАНЖА ( Курсовая работа, 32 стр. )
Классификация программных средств бухгалтерского учета ( Контрольная работа, 25 стр. )
Компилятор высокоуровневого языка программирования в виртуальную машину Parrot ( Курсовая работа, 11 стр. )
Компоненты Delphi ( Реферат, 19 стр. )
Компьютерная Графика. Принципы и методы работы в графической программе Macromedia Flash ( Дипломная работа, 66 стр. )
Компьютерная модель робота Phoenix ( Дипломная работа, 79 стр. )
КОНВЕРТОР ФОРМАТОВ ХРАНЕНИЯ ПРОСТРАНСТВЕННЫХ ДАННЫХ. SHAPE-FILE -WKT/WKB; SHAPE-FILE - SVG/GML ( Курсовая работа, 13 стр. )
КОНСТРУИРОВАНИЕ ПРОГРАММ И ЯЗЫКИ ПРОГРАММИРОВАНИЯ ( Курсовая работа, 33 стр. )
КОНСТРУИРОВАНИЕ ПРОГРАММ И ЯЗЫКИ ПРОГРАММИРОВАНИЯ ( Контрольная работа, 153 стр. )
Контрольная работа по дисциплине "Информатика" Задача №2: "Расчет заработной платы работников предприятия"11 ( Реферат, 21 стр. )
Контрольная. Описание программы ( Контрольная работа, 10 стр. )
Контрольная. Программирование ( Контрольная работа, 21 стр. )
Контрольная. Программные средства ( Контрольная работа, 7 стр. )
Контрольная. Программные средства офиса. ( Контрольная работа, 8 стр. )
Контрольная. Составление программ. ( Контрольная работа, 8 стр. )
КУРСОВАЯ РАБОТА ( по дисциплине "Моделирование") "Двоично-десятичный счётчик со сдвиговым регистром" ( Контрольная работа, 12 стр. )
КУРСОВАЯ РАБОТА ( по дисциплине "Моделирование") "Двоично-десятичный счётчик со сдвиговым регистром" 2007-14 ( Контрольная работа, 14 стр. )
КУРСОВАЯ РАБОТА по дисциплине "Микропроцессорные системы" Pin-code ( Реферат, 16 стр. )
КУРСОВАЯ РАБОТА по дисциплине "Моделирование" на тему "Встроенный блок логических наблюдений BILBO" (Задание 2) ( Контрольная работа, 14 стр. )
Курсовая работа по дисциплине "Моделирование" на тему "Регистр хранения числа в прямом и обратном кодах" (Вариант 41) ( Контрольная работа, 12 стр. )
КУРСОВАЯ РАБОТА по дисциплине "Моделирование" на тему "Цифровой таймер" (Вариант 32) ( Контрольная работа, 11 стр. )

Содержание

Задача 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 г.

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

2000-2024 © Copyright «DipMaster-Shop.ru»