Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 09.12.2011, 23:20   #1 (permalink)
Stifler
Новичок
 
Регистрация: 09.12.2011
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Exclamation Нужна помощь, Pascal

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

Старый 09.12.2011, 23:20
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

На форуме много схожих тем, можете полистать

Нужна помощь
Нужна помощь
Требуется помощь в написании программы на языке Turbo Pascal
Pascal, две задачки, нужна помощь
Помощь по Pascal
Помощь в Pascal.

Старый 09.12.2011, 23:37   #2 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,794
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
По умолчанию

Цитата:
Сообщение от 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 вне форума   Ответить с цитированием
Старый 10.12.2011, 00:04   #3 (permalink)
Stifler
Новичок
 
Регистрация: 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.
это какой вид программы?а можешь показать на примере остальные типы на умножение вычитание и сложение?
Stifler вне форума   Ответить с цитированием
Старый 10.12.2011, 00:08   #4 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,794
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
По умолчанию

Техзадание было такое:
Цитата:
Сообщение от Stifler Посмотреть сообщение
шаблон для сложения вычитания умножения и деления переменных друг на друга
с выводом результатов в файл, не вполне понятно, что вам еще нужно. В вышеприведенном листинге реализованы все доступные операции из перечисленных в техзадании. Поясните, что вам непонятно?
AlexZir вне форума   Ответить с цитированием
Старый 10.12.2011, 00:15   #5 (permalink)
Stifler
Новичок
 
Регистрация: 09.12.2011
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

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

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 10.12.2011, 00:22   #6 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,794
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
По умолчанию

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

Вот листинг для операции сложения, исходные данные вводятся с клавиатуры. При необходимости самостоятельно добавьте чтение данных из файла, это нетрудно .
Код:
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, 00:44   #7 (permalink)
Stifler
Новичок
 
Регистрация: 09.12.2011
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Цитата:
Сообщение от 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 вне форума   Ответить с цитированием
Старый 10.12.2011, 07:44   #8 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,794
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
По умолчанию

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

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




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

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.