Текст программы с использованием структуры if ... then
{ Лабораторная работа 2} { Любые другие комментарии к программе } { Раздел описаний данных} Const a=2.0; b=3.0; Var x,F: real; { Раздел операторов} Begin Writeln(' Введите x'); {Запрос на ввод x} Readln(x); {Ввод значения x} if x>2 then F:= b*(x-2)*(х-2)*(х-2); if x=2 then F:= (a*a-b*b)* sqr(x); if x<2 then F:= a*x; {Вывод результатов} Writeln(' При x = ',x:6:2,' F = ',F:8:3); readln; End.
Текст программы с использованием структуры if... then... else...; {Лабораторная работа 2} { Пример программы с разветвляющейся структурой} { Раздел описаний данных} Const a=2.0; b=3.0; Var x,F: real; { Раздел операторов} Begin Writeln(' Введите x'); {Запрос на ввод x} Readln(x); {Ввод значения x} if x>2 then F:= b*(x-2)*(х-2)*(х-2) else if x=2 then F:= (a*a-b*b)* sqr(x) else F:= a*x; {Вывод результатов} Writeln(' При x= ',x:6:2,' F= ',F:8:3); readln; End.
Варианты самостоятельных заданий Составить блок-схему и написать программу для вычисления значений функции F для заданных значений переменной x и постоянных a, b. (вариант совпадает с номером по журналу общего списка студентов)
Контрольные вопросы: 1. какой алгоритм называется разветвляющимся? 2. как изображаются ветвящиеся структуры на блок-схеме? 3. какие операторы реализуют структуру ветвления? 4. алгоритм работы условных операторов. 5. какие моменты приходилось учитывать в процессе составления алгоритма по заданию? 6. какие типы данных вы использовали а программе?
|
i>6
x < 3
x=3
x <3
x=3
x > 7
x=7
x > 12
x=12
x > 3
x < 0
x > 2
x=2
x <0
x>1
