Задания для практических занятий

1. Составить прграмму, которая запрашивает имя пользователя и выдает адресованное ему сообщение.

2. Составить программу - шутку «Римфоплет». Программа предлагает пользователю ввести римфы к определенным словам и затем выводит на экран стихотворение, вставляя в пропущенные места готового шаблона римфы, выведенные пользователем.

3. Составить программу подготовки штампов – репортажей о строительстве различных объектов. Программа запрашивает необходимые сведения (название объекта, где он строится, когда началось строительство, как оно ведется и.т. п.) и, используя зараннее заложенный шаблон, выводит на экран готовый репортаж.

4. Составить программу вывода на экран отчета о сделанных покупках в книжном магазине.

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

А:= . . . , В:= . . ., А+В = . . ., А : В = . . . .

6. Что будет напечатано программой?

Program ffdd;

Var b,c,d:real;

Begin

read(b,c);

D:=sqrt(sqr(b)-4*c);

Writeln (‘x1=’, (-b+d)/2,’ x2=’,(-b-d)/2)

End.

Если в качестве исходных данных заданы числа 1.0 и –2.0?

7. Можно ли для ниже приведенной программы задать в качестве исходных данных числа 5.0,6.2?

Program utr;

Var a: integer; b: real;

Begin

Read(a,b);

Writeln(a*b);

End.

8. Составить программу вычисления значения функции y( x ) = x² – 7x + 8 для заданного с клавиатуры значения аргумента х. Обеспечить выведение результатов в виде: y(. . . ) = . . . .

Тема 6. Операторы языка Pascal

Операторы языка Паскаль описывают алгоритмические действия, которые необходимо выполнить для решения задачи. Их можно разбить на две группы: простые и структурированные.

Простые операторы:

• оператор присваивания := (I: =(A+B+C)/C; F: = False; Str: = ’Qk ’);

• оператор обращения к процедуре (Tabin (n, M) - для обращения к процедуре необходимо указать ее имя со списком фактических параметров);

• оператор безусловного перехода Goto (нарушает нормальное выполнение прграммы и переводит его на указанную метку; современный стиль программирования не рекомендует использования этого оператора);

• пустой оператор ( ; ).

Структурированные операторы:

составной оператор Begin end (Совокупность последовательно выполняемых операторов, заключенных в операторные скобки Begin и End). Допускает вложенность, т.е. может содержать внутри себя другие составные операторы:

Begin

. . .

Begin

. . .

. . .

. . . End;

end;

• условный оператор if . . then;

• оператор выбора Case . . of;

• оператор цикла for . . do;

• оператор цикла repeat . . until;

• оператор цикла while . . do;

• оператор действия над записями With.

Раздел 6.1 Линейная алгоритмическая структура

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

Пример: Написать программу для перевода значения температуры, заданной в шкале Цельсия в значения соотвествующие шкалам Фаренгейта (используется в англоязычных странах) и Кельвина. Коэффициенты для формул соотвествия:

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

Рис. 2 Блок – схема алгоритма задачи о преобразовании значения температуры

Текст программы:

Program preobraz;

Uses CRT;

Var C, F, K: Extended;

Begin

Writeln (‘Соотвествие между температурными шкалами’);

Writeln (‘Цельсия, Фаренгейта, Кельвина’);

Writeln;

Writeln( ‘ Введите значение температуры по Цельсию’);

Readln (C);

Writeln;

F:=1.8*C+32;

K:=C+273,15;

Writeln (‘Температура по Цельсию’, C);

Writeln (‘Температура по Фаренгейтy’, F);

Writeln (‘Температура по Кельвина’, K);

Writeln;

Writeln (‘Нажмите <ENTER>’);

Readln;

End.