|
|||
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. Составить программу решения квадратного уравнения: ax2+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. Что такое составной оператор. Когда он используется?
|
|||
|