Презентация по теме "Программирование ветвлений" в главе "Элементы языка программирования Pascal". Может быть использована для повторения структуры оператора условного перехода, конструкций полного и неполного ветвлений, при объяснении материала или в ходе обсуждения задач. Содержит примеры программ на языке программирования Pascal.Презентация по теме "Программирование ветвлений в ЯП PAscal"
Программирование ветвлений.pptx
Программирование ветвлений
Программирование
ветвлений
Программирование ветвлений
Полное ветвление
If <условие>
then <оператор1>
else <оператор2>
Программирование ветвлений
Неполное ветвление
If <условие>
then <оператор>
Программирование ветвлений
Пример
• Вычислите корни квадратного уравнения ax2 +bx + c =
0 с заданными коэффициентами a, b, c (a0).
program kvur;
var a,b,c,d,x,x1,x2:real;
begin
write('введите a: '); read(a); write('введите b: '); read(b);
write('введите c: '); read(c);
d:=sqr(b)-(4*a*c);
writeln('d=',d);
if d<0 then write('Нет корней')
else if d=0 then write('x=',(-b/(2*a)) )
else write('x1=',(-b+sqrt(d))/(2*a), 'x2=',(-b-sqrt(d))/
(2*a));
end.
Программирование ветвлений
Оператор выбора
Case <селектор> of
<список констант 1>: <оператор
1>;
…
<список констант N>: <оператор
N>;
Else <оператор>
end;
Программирование ветвлений
Пример
• Требуется перевести пятибалльную оценку в её наименование:
5 – «отлично», 4 – «хорошо», 3 – «удовлетворительно», 2 –
«неудовлетворительно»
program Marks;
var N: integer;
begin
writeln('Введите оценку');
readln(N);
case N of
5: writeln('отлично');
4: writeln('хорошо');
3: writeln('удовлетворительно');
2: writeln('неудовлетворительно');
else writeln('Неверная оценка')
end;
end.
Материалы на данной страницы взяты из открытых истончиков либо размещены пользователем в соответствии с договором-офертой сайта. Вы можете сообщить о нарушении.
31.10.2017
Посмотрите также:
© ООО «Знанио»
С вами с 2009 года.
О портале
