program edoki;
var
a,b,c,t,vv,vk,v:real;
begin
write(’Сколько пирожков съел Вася? ’); readln(a);
write(’Сколько пирожков съел Коля? ’); readln(b);
write(’Сколько пирожков должна съесть команда? ’);
readln(с);
vv:=a/10; {скорость Васи}
vk:=b/10; {скорость Коли}
v:=vv+vk; {общая скорость}
t:=c/v;
writeln(’Команда справится за ’,t:3:1,’ минут’);
end.
начало
Ввод а,в,с
vv:=a/10
vk:=b/10
v:=vv+vk
Вывод t
конец
t:=c/v
Однако часто встречаются нелинейные программы, в которых порядок действия отличается от порядка расположения команд.
Ветвление – участок программы, позволяющий выбрать для исполнения, в зависимости от истинности условия, одну из двух групп команд.
Краткая форма условного оператора в общем виде:
If условие then оператор1;
program water;
var t:real;
begin
write(’Введите температуру воды у пляжа ’);
readln(t);
if (t>=19) and (t<=26) then
writeln(’Можно купаться’)
else
writeln(’Купаться нельзя’);
end.
Для этого должны выполняться такие условия:
все ветвления вкладываются в ветвь «нет»;
все они проверяют значения одной и той же
переменной (или выражения);
проверяемое значение должно быть целого типа.
Общий вид записи оператора выбора:
CASE выражение OF
константа 1: оператор 1;
константа 2: оператор 2;
- - - - - - - - - - - - - - - - ;
константа n: оператор n;
END;
Задача: Программа-консультант в магазине
обуви сообщает, какая обувь находится на той
или иной полке, номер которой вводят с
клавиатуры.
case p of
1: writeln(’Сапоги’);
2,4: writeln(’Мужские туфли’);
5..8: begin
writeln(’Женские туфли’);
writeln(’Но там ничего нет: всё продано!’);
end;
3,9..12: writeln(’Кроссовки’)
else writeln(’Полки с таким номером у нас нет’);
end;
program vorony;
var
v,p,pp:integer;
begin
write(’Сколько летит ворон? ’); readln(v);
p:=v mod 10; {находим последнюю цифру}
pp:=v mod 100 div 10; {находим предпоследнюю цифру}
if pp=1 then
writeln(’Летит ’,v,’ ворон’)
else
case p of
1: writeln(’Летит ’,v,’ ворона’);
2..4: writeln(’Летит ’,v,’ вороны’);
else writeln(’Летит ’,v,’ ворон’);
end;
readln;
end.
ВороныВороны.pas
Это сайт презентаций, где можно хранить и обмениваться своими презентациями, докладами, проектами, шаблонами в формате PowerPoint с другими пользователями. Мы помогаем школьникам, студентам, учителям, преподавателям хранить и обмениваться учебными материалами.
Email: Нажмите что бы посмотреть