Задание 1. Дано число А. Определить какое оно положительное или отрицательное.
Текст программы:
Program Project1;
var a: integer;
begin
writeln('Введите значение a');
readln(a);
if (если) a >=0 then (то) writeln (‘число положительное’) else (иначе)
writeln (‘число отрицательное’);
readln;
end.
Задание 2. Определить значение функции У(х).
Текст программы:
Program Project1;
var x: real;
begin
writeln('Введите значение х');
readln(х);
if х < 0.25 then y:= sqrt(abs(x+35+exp(x-1))) else
then y:= x + sqr(sin(2.6*x)); //логическое условие
writeln(y);
readln;
end.
Задание 3. Определить значение функции У(х).
Текст программы:
var x,y: real; {раздел описания переменных}
begin {начало раздела операторов}
writeln('Введите значение х'); {вывод текста на экран}
readln(х); { ввод значения x }
{1 логическое условие}
if х < 1 then y:= sin(2*x+4.2)/cos(2*x+4.2)-2*x else
{2 логическое условие}
if (2<=x) and (x<=5) then y:= sin(x)+sqrt(6*x) else
{3 логическое условие}
if x>7 then y:= 3.56+(2+x)/(1+sqrt(x));
writeln(y); {вывод результата}
readln; {задержка экрана}
end.
Примеры записи логических выражений на языке Паскаль:
Математическая запись | Запись на языке Паскаль |
0≤х≥5 | (0<=x) and (x<=5) |
5≥х>0 | (5>=x) and (x>0) |
0≤х≤5 или 1≤х≤13 | ((0<=x) and (x<=5))or ((1<=x) and (x<=13) |
Варианты заданий
Рассчитать значение функции У(х). Значение аргумента вводится с клавиатуры.
1. | |||
2. | |||
3. | |||