Составьте и запишите КОМПЬЮТЕРНУЮ программу на языке программирования Паскаль для решения задачи №6 к параграфу №34 с комментари
Составьте и запишите КОМПЬЮТЕРНУЮ программу на языке программирования Паскаль для решения задачи №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-х слов в каждом комментарии. Напомню: комментарий делаем после двойного слэша на каждой строке кода Например, комментарий к первой строке: //это начало программы Комментарий ко второй строке: //это объявление переменных в программе Коммент к третьей строке: //эта переменная для хранения числа, а вот эта – для текста
Program SummaDrobi; // это необязательная строчка с названием программы 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
Program kvart; var k: real; begin k:=4500; // известно что квартплата 4500 k:=k*1.3; //мы увеличиваем на 30 % k:=k*1.4; // новую квартплату мы увеличиваем ещё на 40 % write(k); // выводим значение новой квартплаты <span>end.
Можно организовать ввод квартплаты тогда вместо строки k:=4500; мы напишем readln(k);</span>