10.12.2011, 00:04
|
#3 (permalink)
|
|
Новичок
Регистрация: 09.12.2011
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Цитата:
Сообщение от AlexZir
Что, дело совсем труба?
Для целых чисел a и b
Код:
var
a,b,s,w,od,cd:integer;
p:longint;
d:real;
f:text;
begin
assign(f,'out.txt');
rewrite(f);
readln(a,b);
s:=a+b;
m:=a-b;
p:=a*b;
d:=a/b;
od:=a mod b;
cd:=a div b;
writeln(f,'a+b=',s,' a-b=',m,' a*b=',p,' a/b=',d:4:2);
writeln(f,'остаток от деления a на b =',od);
writeln(f,'целая часть от деления a на b=',cd);
close(f);
readln
end.
Для вещественных чисел из вашего списка операций доступны только сложение, вычитание, умножение и обычное деление, естественно, что для всех числовых переменных нужно определять тип REAL. |
это какой вид программы?а можешь показать на примере остальные типы на умножение вычитание и сложение?
|
|
|