Пример решения задачи

Индивидуальное задание

Если последнее число из трех введенных чисел равно 1, то найти сумму этих чисел, если равно 2, то найти их разность, иначе напечатать первое число.

Описание работы

1. Выберите алгоритм решения задачи

2. Используя таблицы, приведенные в приложении лабораторной работы 3, выберите стандартные функции, необходимые для решения задачи. Если стандартных функций не существует, получите требуемую функцию, используя математические преобразования.

3. Выберите форму представления данных. Используйте следующие типы переменных: INTEGER, REAL, BOOLEAN, CHAR.

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

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

Внимание! Оператор цикла при решении задач не использовать!

5. Для этого необходимо войти в программу-оболочку TP7, как указано выше. Загрузить в редактор Турбо-Паскаль новый (NEW) файл. Для этого нажмите одновременно клавиши [ALT]+[F] , установите курсор на подменю «NEW» и нажмите клавишу [ENTER].

6. Сохраните набранный текст программы. Нажмите клавишу [F2]. На запрос системы укажите, где и с каким именем будет сохранена ваша программа. Например, C:\ Lr2.PAS, если программа сохраняется на жесткий диск или A:\ Lr2.PAS, если программа сохраняется на дискету.

7. После того, как программа набрана, откомпилируйте ее. Нажмите одновременно клавиши [ALT]+[F9]. Если в программе есть ошибки, то в левом верхнем углу появится сообщение об ошибке, а курсор укажет место ошибки. Если в программе ошибок нет, то появится сообщение об успешной компиляции.

8. После компиляции программу необходимо выполнить. Для этого нажмите одновременно клавиши [CTRL]+[F9]. Для просмотра результатов одновременно нажмите клавиши [ALT]+[F5].

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

10. Выведите полученные результаты на печать.

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

Program iff ;

Uses Crt ;

Var

a, b, c, sum, razn : integer ;

Begin

{вводим числа : a, b, c }

Read (a, b ,c) ; Writeln (a, b ,c) ;

If c = 1 Then

Begin

Sum := a + b +c ; Writeln (Sum) ;

End ;

If c = 2 Then

Begin

Razn := a - b - c ; Writeln (Razn) ;

End ;

Writeln (a) ;

End .

Примеры решения задач

Дано 50 вещественных чисел. Найти величину наибольшего из них.

Program max ;

Uses crt ;

Label 4, 9 ;

Const n = 50 ; { Количество заданных чисел }

Var x, max : real ; i : integer ;

{ x - очередное число, i - его номер, max - наибольшее число среди уже введенных чисел }

Begin

Clrscr ;

Read(max) ;

i := 1 ;

4 : i := i + 1 ;

if i > n then goto 9 ;

Read(x) ;

if i > max then max := x ;

goto 4 ;

9 : Writeln(‘ max = ’, max) ;

Repeat until keypressed

End .