Нужна помощь, Pascal

[Stifler]

Нужна помощь, Pascal

завтра в 9.00 областная олимпиада по инфе.
нужен шаблон для сложения вычитания умножения и деления переменных друг на друга..в трубо паскале (если возможно с выводом результата в текстовый файл)
готов заплатить за помощь(200-300wmr.)
контакты,skype: palfords1

 

[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.

 

[Stifler]

Что, дело совсем труба?

Для целых чисел 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.

это какой вид программы?а можешь показать на примере остальные типы на умножение вычитание и сложение?

 

[AlexZir]

Техзадание было такое:

шаблон для сложения вычитания умножения и деления переменных друг на друга

с выводом результатов в файл, не вполне понятно, что вам еще нужно. В вышеприведенном листинге реализованы все доступные операции из перечисленных в техзадании. Поясните, что вам непонятно?

 

[Stifler]

Техзадание было такое: с выводом результатов в файл, не вполне понятно, что вам еще нужно. В вышеприведенном листинге реализованы все доступные операции из перечисленных в техзадании. Поясните, что вам непонятно?

можете привести пример не как шаблон а как рабочую программу для выполнения 1го из этих действий?

 

[AlexZir]

Возьмите листинг, удалите лишние переменные и строки с операциями, оставьте только одну арифметическую операцию и будет вам счастье/

Вот листинг для операции сложения, исходные данные вводятся с клавиатуры. При необходимости самостоятельно добавьте чтение данных из файла, это нетрудно .

var 
a,b,s:integer;
f:text;
begin
assign(f,'out.txt');
rewrite(f);
readln(a,b);
s:=a+b;
writeln(f,'a+b=',s);
close(f);
readln
end.

Любой листинг, который здесь выкладывается, является своего рода рабочей программой, так как проверяется перед публикацией в среде программирования.

 

[Stifler]

Возьмите листинг, удалите лишние переменные и строки с операциями, оставьте только одну арифметическую операцию и будет вам счастье/

Вот листинг для операции сложения, исходные данные вводятся с клавиатуры. При необходимости самостоятельно добавьте чтение данных из файла, это нетрудно .

var 
a,b,s:integer;
f:text;
begin
assign(f,'out.txt');
rewrite(f);
readln(a,b);
s:=a+b;
writeln(f,'a+b=',s);
close(f);
readln
end.

Любой листинг, который здесь выкладывается, является своего рода рабочей программой, так как проверяется перед публикацией в среде программирования.

а у вас есть средства связи?аська,скайп к примеру?

 

[AlexZir]

Все доступные в сети средства связи у меня есть, но используя я их для делового общения. Оказывать вам помощь в решении олимпиадных задач я принципиально не буду, так как это противоречит духу соревнования; я не желаю помогать вам обманывать ваших товарищей-соперников по олимпиаде, ведь большинство из них пишет программы самостоятельно.