У вас вопросы?
У нас ответы:) SamZan.net

Тема- Turbo Pscl Простейшие программы

Работа добавлена на сайт samzan.net: 2015-07-10

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 20.2.2025

 

 Разр.

 Адаховский

 

 

190623. ПР. 01. ПЗ

Лист

 

 

Пров.

Кузнецов

 

 

Изм.

Лист

N докум.

Подпись

Дата

Практическая работа № 7

Тема: Turbo Pascal. Простейшие программы.

Цель занятия: научиться решать простейшие задачи в среде Turbo Pascal при помощи математических функций, строить для задач блок-схемы.

Задание. Освоить приемы программирования простейших программ в системе программирования Turbo Pascal.

Порядок выполнения работы

  1.  Наберите в окне редактора текст следующей программы:

Program FirstProgram;

Var a: string;

begin

writeln(‘What is your name?’);

readln(a);

writeln(‘Hello, ’, a, ‘!’);

readln;

end.

  1.  Сохраните имеющийся проект на своем диске, используя меню File/ Save as.
  2.  Запуск приложения:

Перед запуском проекта сначала осуществляется его компиляция. В результате компиляции на диске создается файл с расширением exe.

Если в тексте программы компилятором будут обнаружены ошибки, то курсор установится в место предполагаемой ошибки и в нижней части окна редактирования появится сообщение об обнаруженной ошибке.

Если при компиляции в Вашей программе будут обнаружены ошибки, их необходимо исправить.

Коды типичных ошибок. TP 7.0 генерирует два типа сообщений об ошибках: ошибки компиляции и ошибки выполнения.

Некоторые коды ошибок компиляции, чаще всего встречающиеся в процессе настройки программы, имеют такие номера:

  1.  Unknown identifier (Неизвестный идентификатор). Этот идентификатор не был описан
  2.  Duplicate identifier (повторение идентификатора).
  3.  Syntax error (синтаксическая ошибка).

14 Invalid file name (Недопустимое имя файла). Имя файла неправильное или указан несуществующий путь.

26 Type mismatch (Несоответствие типов).

42 Error in expression (Ошибка в выражении).

62 Division by zero (Деление на нуль).

64 Cannot Read or Write variables of this type (Нет возможности считать или записать переменные данного типа).

85  «;» expected (Ожидается символ «;»).

91  «:=»expected (Ожидается символ «:=»).

  1.  «.» expected (Ожидается символ «.»).
  2.  «..» expected (Ожидается символ «..»).

После запуска программы на экране появиться надпись «What is your name?». Далее компьютер ожидает ввода строки символов. Введите свое имя и нажмите ENTER. На экране напечатается «Hello,» и введенное вами имя. Далее компьютер ожидает нажатия клавиши ENTER.

Запустите на выполнение программу FirstProgram, используя следующие способы:

  1.  выберите в меню Run/Run;
  2.  клавиша ctrl+F9.
  3.  Измените текст программы так, что бы вначале на экране печаталось сообщение: «My name is Pentium!», а уже потом задавался вопрос «What is your name?». Сохраните изменения проекта. Проверьте его работу.
  4.  Составить программу для одной из ниже приведенных задач (номер задания получить у преподавателя):
  5. Записать по правилам изучаемого языка программирования вычисление следующего выражения:

sina*cosb + cosa*sinb.

  1. Найти сумму цифр двухзначного числа.
  2. Даны два целых числа. Найти их среднее арифметическое.
  3. На борту самолета, летящего по маршруту Москва-Лондон, находятся x пассажиров. Три четверти пассажиров имеют билеты второго класса, все остальные – первого. Билет первого класса стоит b рублей. Это в два раза больше стоимости билета второго класса. Сколько денег получила авиакомпания от продажи билетов на этот рейс?
  4. Дан прямоугольник с размерами 543 x 130 мм. Сколько квадратов со стороной 130 мм можно отрезать от него?
  5. С начала суток прошло n секунд. Определить, сколько полных часов прошло с начала суток.
  6. С начала суток прошло n секунд. Определить, сколько полных минут прошло с начала очередного часа.
  7. С начала суток прошло n секунд. Определить, сколько полных секунд прошло с начала очередной минуты.
  8. Дана величина А, выражающая объем информации в байтах. Перевести число А в мегабайты, килобайты и биты.

Подсказка:

1байт=8 бит

1Кбайт = 1024 байт

1Мб = 1024 Кбайт

  1.  Завершите работу File/Exit или сочетанием клавиш Alt+X.

Содержание отчета

В отчете привести тексты и результаты работы программ, созданных во время занятия.

Задание 4:

Рисунок 1: копия «My name is Pentium!»

Рисунок 2:копия «What is your name?».


Задание 5(1)

Рисунок 3:копия sina*cosb + cosa*sinb.

Рисунок 4:копия sina*cosb + cosa*sinb.

Вывод: :  научился решать простейшие задачи в среде Turbo Pascal при помощи математических функций, строить для задач блок-схемы.




1. Физическая природа формирований конфигураций фигур вращения электронных оболочек атомов
2. Theme- Word nd Mening MOSCOW 2000 The word my be described s the bsic unit of lnguge
3. Тема- Расчёт железобетонной балки таврового сечения Вариант 9 Разработал- Студент группы ПГСО
4. Тема- Понятие о срезе и смятии
5. Комплект технологической документации по оптической контактной литографии
6. Тема занятия Культура эпохи Средневековья
7. Тема- Характеристика і особливості оформлення телеграм телефонограм та факсів Мета- Навчитися правильно о
8. Задание 1 Прочитайте текст и переведите его письменно
9. Хороший учитель даст ученику готовую истину а отличный ~ поможет ему открыть её самому
10. Исследование явления гистерезиса с помощью осциллографа