Домашние задания: Информатика

Помогите по информатике

Напишите программу ввода с клавиатуры двух произвольных чисел х, у. Программа должна найти произведение суммы этих чисел на их разность.
подскаска:
Символы в Паскале записываются следующим 
образом: умножение *, деление
/, степень ^. Например, математическая дробь 2+b3x
 в
программе будет записана так: (2+b)/(3*x)
выполнить задание можно в программе Pascal или в тетрадях для практических работ).
Светлана Трушникова
Светлана Трушникова
97
"степень ^" - не во всех версиях Паскаля.

Ну а так вот программа:

1-ый вариант (чисто по заданию):
 Program P1; 

uses crt; 

var x, y: real; 

begin 

clrscr; 

writeln ('Введите с клавиатуры 2 числа (по 1). После ввода каждого числа нажимайте клавишу Enter. При вводе дробных значений целую часть от дробной отделяйте точкой, а не запятой.'); 

write ('Введите 1-ое число: '); 

readln (x); 

write ('Введите 2-ое число: '); 

readln (y); 

writeln ('Результат: ', (x+y)*(x-y) :0:2); 

write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 

readkey; 

end.
2-ой вариант (т.к. произведение суммы чисел на из разность является разностью квадратов):
 Program P1;  

uses crt;  

var x, y: real;  

begin  

clrscr;  

writeln ('Введите с клавиатуры 2 числа (по 1). После ввода каждого числа нажимайте клавишу Enter. При вводе дробных значений целую часть от дробной отделяйте точкой, а не запятой.');  

write ('Введите 1-ое число: ');  

readln (x);  

write ('Введите 2-ое число: ');  

readln (y);  

writeln ('Результат: ', sqr (x)-sqr (y) :0:2);  

write ('Программа завершена. Для выхода нажмите клавишу Enter.');  

readkey;  

end.
.:
..:: ::..
43 559
Лучший ответ
вместо компутера тетрадка?
Елена Канова
Елена Канова
64 835
Пример:
 program multiplication; 

var 

  x, y, sum, diff, product: real; 

begin 

  writeln('Введите два числа:'); 

  readln(x, y); // считываем два числа с клавиатуры 

  sum := x + y; // вычисляем сумму 

  diff := x - y; // вычисляем разность 

  product := sum * diff; // вычисляем произведение суммы на разность 

  writeln('Произведение суммы ', sum:0:2, ' и разности ', diff:0:2, ' равно ', product:0:2); 

  readln; 

end.

После запуска программы на экран будет выведено сообщение "Введите два числа:", после чего нужно ввести два произвольных числа и нажать Enter. Затем программа вычислит произведение суммы этих чисел на их разность и выведет результат на экран.
Бегенч Аманов
Бегенч Аманов
435

Похожие вопросы