Задания для самостоятельного выполнения. Выполнил студент группы №_Ф.И.____________

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

Выполнил студент группы №___________Ф.И.______________________

Тема: Основные алгоритмические конструкции и их описание средствами языков программирования

Цель:овладение навыками алгоритмического мышления и понимание методов формального описания алгоритмов.

Теоретические сведения

1. Для начала работы в системе необходимо отыскать в древовидной структуре каталогов ПК файл с именем TURBO.EXEи запустить его.

2. После успешного вызова системы экран приобретет вид, который вы наблюдаете в данный момент. В верхней части этого окна расположена строка содержания, главное меню системы, в нижней - краткая справка о назначении основных функциональных клавиш.

3. Чтобы открыть окно редактирования программного кода в пункте меню FILE необходимо выбрать команду NEW.

4. В верхней части появившегося окна приводится имя дискового файла, в данном случае файл имеет имя NONAME00.PASи два специальных поля, поле перемещения между окнами редактора и поле закрытия окна редактора кода, используемых при работе с мышкой (эти поля выделены квадратными скобками).

5. В окне редактора необходимо прописать код создаваемой вами программы.

Задание 1

Введите текст программы EXР_1.

PROGRAM EXР_1;

BEGIN

Writeln('Первая программа на языке Pascal');

END.

1. Перед запуском программы ее необходимо откомпилировать для проверки на наличие синтаксических ошибок. Чтобы запустить процесс компиляции необходимо выбрать команду COMPILEпункта меню COMPILE. Если компиляция прошла успешно на экране появится следующее сообщение, в противном случае будет выдано сообщение об обнаружении ошибки, которую необходимо исправить перед запуском программы, при этом курсор будет переведен в место обнаружения ошибки.

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

3. Теперь можно запустить программу, для этого необходимо выбрать команду RUNпункта меню RUN. Во время выполнения программы появится черный экран и на шаге ввода значений переменных процессор остановит свою работу, сработает программа прерывания работы процессора, компьютер будет ждать ввода значений переменных. После ввода всех значений программа произведет все вычисления и закончит свою работу, снова отобразив на экране окно редактора кода.

4. Для просмотра результатов вычисления программы нажмем сочетание клавиш ALT+F5. для возврата в окно редактора кода достаточно нажать любую клавишу.

5. Чтобы выйти из системы в пункте меню FILEвыберем команду EXIT,при этом программой будет выведено сообщение о сохранении созданного файла.

6. Сохраните под именем EXР_1. В поле "Save File as" задайте путь сохранения. На диске С:\ или D:\ выберите папку с номером группы наберите имя файла и нажмите Ok.

7. Покажите результат преподавателю.

8. Произвести выход из оболочки Turbo Pascal различными способами.

9. Найдите в текущем каталоге файлы и просмотрите их расширение.

Задание 2.

1. Запустите программу Turbo Pascal и введите тексты следующих программ, согласно образцу. Произведите компиляцию программы: Compile→ Compile либо (Alt+F9), запустите программу: Run→ Run либо (Ctrl+F9). Покажите результат преподавателю.

A. Программа приветствия

Program Hello;

Begin

Writeln(‘Здравствуй, компьютер!’);

Write(‘Привет, ’); writeln(‘студент.’);

End.

B. Найти сумму двух чисел

Program Summa; {заголовок программы}

Var

X,Y,Summa:Integer; {раздел объявления переменных}

Begin {тело программы}

Write(‘Введите числа Х и Y’);

Readln(X,Y);

Summa:=X+Y;

Writeln(‘Сумма чисел X и Y равна ’, Summa);

Readln; {Оператор пустого ввода, заменяет Alt+F5}

End.

C. Задания для самостоятельного выполнения. Выполнил студент группы №___________Ф.И.______________________ - student2.ru
Составить программу, вычисляющую значение переменной m при данных i,j.k:

Program Primer_1;

Var

i, j, k :Integer;

m : Real;

Begin

Write(‘Введите значения для i, j и k =>’);

Readln(i, j, k);

m:=(i + j)/(k + 1);

Writeln(‘Значение для m = ’, m);

End.

D. Даны два вещественных числа. Вывести их двумя способами:

Program Primer_2;

Const

A=4.5;

B=3.5;

Begin

Writeln(‘А= ’, A); {Получаем число с плавающей точкой}

Writeln(‘B= ’, B:5:2); {Получаем число с фиксированной точкой}

End.

E. Программа тестирования знания дат

Program VETVLENIE;

Var

God: Integer;

Begin

Write('Введите год начала Великой Отечественной войны - ');

Readln(God);

If God = 1941 then

Writeln('Ответ верный')

Else

Writeln('Вы ошиблись');

Readln;

End.

F. Программа, составляющая таблицу умножения

Program Tumn;

Var

P1, I : Integer;

Begin

Write('Введи первый сомножитель: ');

Readln(P1);

For I:=1 to 10 do {Организация цикла со счетчиком}

Begin

Writeln(P1,' x ',I, ' = ', P1*I);

end;

Readln;

End.

Задания для самостоятельного выполнения

a) Даны два действительных положительных числа. Найти среднее арифметическое, сумму, разность и произведение этих чисел. Числа вывести на экран с 3 знаками после запятой.

b) Даны два целых числа. Найти среднее арифметическое, сумму, разность и произведение этих чисел.

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

d) Написать программу вычисления значения функции:

y=x2, если 0<x<2; x+4, если-2<x≤0;0, в остальных случаях.

e) Даны три числа a, b, c. Выяснить, верно ли, что a<b<c. Ответ получить в текстовой форме: верно или неверно.

4. Контрольные вопросы

1. Как сохранить новую информацию из нового окна?

2. Как сохранить изменения в файле?

3. Опишите компиляцию и выполнение программ.

4. Из каких разделов состоит программа, написанная на языке программирования Pascal?

5. Какие разделы в программе обязательны?

6. Назовите известные вам арифметические операции и функции.