Паскаль для школьников
| Информационный Канал Subscribe.Ru |
Здравствуйте уважаемые подписчики.
Программирование на Паскале для школьников
Выпуск № 2 (14 июня 2003 года)
Условные операторы.
_______________________________________
ТЕОРИЯ
Условные операторы предназначены для исполнения одного из возможных действий, в зависимости от
условия. Условным является оператор if.
Ветвление бывает двух видов
Ветвление
полной формы
If <условие> then <оператор1>
else<оператор2>;
Обратить внимание, что перед словом else точка с запятой не ставится!!!
Ветвление
в неполной форме
If
<усло
If
<условие> then
<оператор>;
Оператор
_______________________________________
ПРАКТИКА
1.
Найти из
двух чисел
наибольшее.
Program poiskmax;
var a,b,max:integer;
begin
writeln(‘Введите a, b’);
readln(a,b);
if a>b
then max:=a
else max:=b;
writeln(‘
Максимальное число равно ‘,max);
readln;
end.
2.Вычислить значение функции
х2 +
5 , при х>3
х – 8 , при х ≤ 3
program
no2;
var
x,y:real;
begin
writeln(‘Введите
x’);
if x>3 then y:=sqr(x)+5
else
y:=x-8;]
writeln(‘Ответ:y= ‘,y:8:3);
readln;
end.
________________________________________
А вот вам задача на дом:
Написать программу подсчета суммы только четных из трех чисел.
P.S. (a mod 2 =0 – положительное число)
Желаю удачи.
________________________________________
Ну, все на сегодня я думаю, хватит.
Жду ваши вопросы и пожелания на s_bal@rambler.ru .
С уважением $ereg@ .
| http://subscribe.ru/
E-mail: ask@subscribe.ru |
Отписаться
Убрать рекламу |
| В избранное | ||
