Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Программирование на Pascal.doc
Скачиваний:
14
Добавлен:
06.09.2019
Размер:
3.69 Mб
Скачать

Практическая работа № 1 тема: "составление линейных и диалоговых программ"

Ход работы.

  1. Cоздать на диске А (на своей дискете) каталог PR1. В ходе выполнения практической работы все программы необходимо сохранять на диске A:\PR1\

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

Организация ввода-вывода в паскале.

Задача 1. Составить программу-диалог на чистом экране, установить цвет фона, цвет текста, диалог должен проходить в центре экрана. Вопросов и ответов должно быть не менее 3. Имя программы - dialog.pas

Задача 2. Вывести информацию на экран:

2009 год Группа А

Мы изучаем

Борланд-Паскаль

ПКЖТ г.Петрозаводск

Имя программы - modul.pas

Стандартные функции. Линейные программы

Задача 3. Найти значение функции Y(X) при заданном X. Затем вычислить:

  • Y1 - целую часть числа путем отбрасывания дробной части числа Y;

  • Y2 - ближайшее меньшее целое к Y;

  • Y3 - округление Y в сторону ближайшего целого;

  • Y4 - дробная часть числа Y.

Вариант 1. при x=4.741

Вариант 2. при x=2.312

Вариант 3. при x=12.7409

Вариант 4. при x=32.872

Имя программы - func1.pas

Задача 4. Напишите линейные программы для вычисления по данным формулам. Выберите подходящие имена; все имена считайте вещественными; дайте описание констант.

  • Вариант 1. Период колебания маятника длиной L вычисляется по формуле

где g - ускорение свободного падения (9, 81 м/с2)

  • Вариант 2. Сила притяжения F между телами массами m1 и m2, находящимися на расстоянии r друг от друга, равна

где  - гравитационная постоянная. =6.67310-11 м3/(кгс2)

  • Вариант 3. Периметр p правильного n-угольника, описанного около окружности радиусом r, равен p=2nrtg(/n).

  • Вариант 4. Объем цилиндра с радиусом основания R и высотой H равен

V=R2H

Имя программы - pr-line.pas

Задачи на составление алгоритма и написание по нему программы:

  1. Хозяин хочет оклеить обоями длинную стену в своем доме. Длина стены равна А метров, высота В метров. Рулон обоев имеет длину 10,5 метров, ширину 50 см. Сколько будут стоить обои для всей стены, если цена одного рулона К рублей?

  2. Четыре человека обедали в ресторане. Официант подал им счет на Х рублей каждому. Первый решил оставить чаевых 8% от счета, второй 9%, третий 10%, четвертый 15%. Сколько всего чаевых получит официант?

  3. Каждую неделю Юра получает деньги на мелкие расходы. Их них он тратит Х рублей на конфеты. Это составляет одну четверть от того, что он получает еженедельно. Юра сберегает одну треть того, что остается после покупки конфет. Составьте программу, которая выведет на экран сумму, накопленную Юрой за год.

Контрольные вопросы к зачету

  1. Для чего используется оператор присваивания?

  2. Что происходит при присваивании в памяти компьютера?

  3. Что происходит при выполнении оператора READ?

  4. Как разделяется вводимая информация?

  5. Чем отличается READ от READLN?

  6. Что входит в список печати оператора WRITE?

  7. Как отделяются элементы списка?

  8. Как задать форматированный вывод? Пример.

  9. Модуль?

  10. Для чего используется модуль CRT?

  11. Операции Паскаля.

  12. DIV, MOD?

  13. Формула возведения в степень?