Программирование ветвящихся алгоритмов

Слайд 2

Задача. Вычислить частное двух чисел. (разделить одно число на другое, так

Задача. Вычислить частное двух чисел.
(разделить одно число на другое,
так как частное

– это результат деления ).

Решение задачи оформим в соответствии с ЭРЗ на компьютере.

Дано: a – первое число;
b – второе число.
Найти: с - частное
Связь: если b≠0, то c=a/b
иначе ′на ноль делить нельзя ′

!!! Всегда ли можно разделить одно число на другое? Нет. Деление невозможно в том случае, когда второе число равно нулю, так как на ноль делить нельзя!

!!! Таким образом, если второе число b не равно нулю, вычисляем частное чисел а и b. Если второе число b равно нулю, то необходимо вывести на экран сообщение «на ноль делить нельзя!».

Слайд 3

program polnvetv; uses crt; var a, b, c: real; begin writeln(‘Программа

program polnvetv;
uses crt;
var a, b, c: real;
begin
writeln(‘Программа на вычисление частного’);
writeln(‘Введите первое

число’);
readln(a);
writeln(‘Введите второе число’);
readln(b);
if b<>0 then
begin
с:=a/b;
writeln(‘Частное равно ’,с)
end
else writeln(‘На 0делить нельзя!’)
End.