Begin. Задача № 2.

⇐ ПредыдущаяСтр 2 из 2

Begin

Writeln (‘Введите два числа через пробел’);

Readln (a, b);

If a>b Then max:=a Else max:=b;

Writeln (’Максимальное число равно ’,max);

End.

5. Организуйте выполнение программы, используя команды меню среды программирования.

6. При наличии диагностических сообщений об ошибках устраните их.

7. Результаты работы программы предъявите преподавателю.

Задача № 2.

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

2. Используя таблицу 1 (приложение 1) построить блок-схему алгоритма:

3. Запустить среду программирования Паскаль.

4. Записать алгоритм на языке программирования Паскаль. Ввести текст программы в ПЭВМ.

Program chisla;

Var a,b,c:integer;

Begin

Writeln (‘Введите числа a, b, c’);

Readln (a, b, c);

If (a<=b) and (b<=c) Then

Begin

a:=sqr(a);

b:=sqr(b);

c:=sqr(c)

End

Else If (a>b) and (b>c) Then

Begin

c:=a;

b:=a

End

Else

Begin

a:=-a;

b:=-b;

c:=-c

End;

Writeln (a, b, c);

End.

5. Организуйте выполнение программы, используя команды меню среды программирования.

6. При наличии диагностических сообщений об ошибках устраните их.

7. Результаты работы программы предъявите преподавателю.

8. Оформите отчет о работе: сделайте скрин экрана и сохраните в текстовом редакторе.

Задания для самостоятельной работы:

1. Составьте программу, которая вычисляет значение переменной с по формуле c=a+b, если а – нечетное и c=a·b, если а – четное.

2. Вычислить значение функции:

3. Найти наибольшее из трех чисел.

4. Даны три различных числа, найти среднее из них.

5. Даны два числа M и N. Если целое число M делится нацело на N, то вывести на экран частное от деления, в противном случае вывести сообщение M на N не делится.

6. Составьте программу, которая уменьшает первое введенное число в пять раз, если оно больше второго введенного числа по абсолютной величине.

7. Составьте программу, в которой из трех введенных с клавиатуры чисел возводятся в квадрат положительные, а отрицательные остаются без изменений.

8. Составить программу вычисления значения выражения:

1. , где ;

2. ;

9. Составить программу решения квадратного уравнения: ax²+bx+c=0

10. Дано трехзначное число. Проверить равна ли сумма цифр в числе введенному с клавиатуры числу N.

11. Дано четырехзначное число. Верно ли, что число начинается и заканчивается одной и той же цифрой?

12. Дано двухзначное число. Верно ли, что в данном числе сумма цифр больше B, а само число делится на B? В – вводится с клавиатуры.

13. Составьте программу для вычисления выражения:

а) max(x+y+z,xyz)+3;

b) min(x2+y2,y2+z2)-4;

Значения переменных X, y, z вводятся с клавиатуры.

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

1. Как выглядит полный условный оператор? Как он работает?

2. Как выглядит неполный условный оператор? Как он работает?

3. Что такое составной оператор. Когда он используется?

⇐ Предыдущая 12