Составьте и запишите компьютерную программу на языке программирования паскаль для решения №6 к параграфу №34 с ! (она была задана на урок 45). значения переменных a b c d взять те же. комментарий по ходу выполнения программы давать вразумительный и к каждой строке кода. №6: запишите алгоритм сложения двух простых дробей (без сокращения дроби) пример выполнения дз: program summadrobi; // это необязательная строчка с названием программы var: a, b, c, d, n, m: integer; // это объявление 6-ти переменных целого типа для хранения данных begin writeln ('сейчас присвоим 4-м переменным значения и найдём сумму 2 дробей: '); // это вывод на экран текста a : = #; b : = #; c : = #; d : = #; … // это присвоение значений в переменные из самой // программы (ввод данных с клавиатуры отсутствует) writeln (‘первая дробь равна: ’ a, '/', b, ‘ вторая дробь равна: ’ с, '/', d); // это уже вывод обработанной информации на экран writeln (‘теперь найдём сумму дробей ’); n : = ? *? ; m : = ? *? ; // это обработка данных перед выводом на экран. вместо «? » и «*» ваше решение writeln (‘конечная несокращённая дробь равна: ’ ? , '/', ? ); // это вывод на экран конечного решения end. в программе обязательны ! комментарий по ходу выполнения программы давать вразумительный, не менее 3-х слов в каждом комментарии. напомню: комментарий делаем после двойного слэша на каждой строке кода например, комментарий к первой строке: //это начало программы комментарий ко второй строке: //это объявление переменных в программе коммент к третьей строке: //эта переменная для хранения числа, а вот эта – для текста
// это необязательная строчка с названием программы
var a, b, c, d, n, m: integer;
// это объявление 6-ти переменных целого типа для хранения данных
begin
writeln ('Сейчас присвоим 4-м переменным значения и найдём сумму 2 дробей:');
// это вывод на экран текста
a := 2; b := 5; c := 3; d := 7;
// это присвоение значений в переменные из самой
// программы (ввод данных с клавиатуры отсутствует)
writeln ('Первая дробь равна: ' ,a, '/', b, ', вторая дробь равна: ', c, '/', d);
// это уже вывод обработанной информации на экран
writeln ('Теперь найдём сумму дробей ');
n := a*d; m := c*b;
// это обработка данных перед выводом на экран
writeln ('Конечная несокращённая дробь равна: ', n+m, '/', b*d);
// это вывод на экран конечного решения
end.
Результат:
Сейчас присвоим 4-м переменным значения и найдём сумму 2 дробей:
Первая дробь равна: 2/5 вторая дробь равна: 3/7
Теперь найдём сумму дробей
Конечная несокращённая дробь равна: 29/35