Технический форум - Нужна помощь, Pascal

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

- - Нужна помощь, Pascal (http://www.tehnari.ru/f43/t61010/)

Stifler

09.12.2011 23:20

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

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

AlexZir

09.12.2011 23:37

Цитата:

Сообщение от Stifler (Сообщение 631992)

в трубо паскале

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

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

10.12.2011 00:04

Цитата:

Сообщение от AlexZir (Сообщение 632000)

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

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

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

AlexZir

10.12.2011 00:08

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

Цитата:

Сообщение от Stifler (Сообщение 631992)

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

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

Stifler

10.12.2011 00:15

Цитата:

Сообщение от AlexZir (Сообщение 632014)

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

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

AlexZir

10.12.2011 00:22

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

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

Код:

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

10.12.2011 00:44

Цитата:

Сообщение от AlexZir (Сообщение 632028)

Код:

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

10.12.2011 07:44

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

Часовой пояс GMT +4, время: 14:28.