Вернуться Форум Bashtel.RU > Разное > Компьютеры > Программирование
Ответ
 
Опции темы Опции просмотра

Помогите с Pascalem
Старый 06.10.2008, 12:55   #1
Местный
 
Аватар для $odd
 
$odd вне форума
Регистрация: 17.02.2007
Адрес: Салават
Сообщений: 356
Отправить сообщение для $odd с помощью ICQ
По умолчанию Помогите с Pascalem

Кароче есть задача http://acmp.ru/?main=task&id_task=2 , пробую решить не получается ( Подскажите кто знает можно ли файловую перменную например:
assign(input,'input.txt');
reset(input);

Кароче можно ли Файловую Переменную как нить присвоить к простой переменной??? Или можно ли как нить её использовать при решении? Например : s:=a+input; Что-то в этом роде ! Плиииз подскажите
  Ответить с цитированием
 

Старый 06.10.2008, 17:48   #2
Пользователь
 
blendax вне форума
Регистрация: 20.09.2008
Адрес: Салават
Сообщений: 58
По умолчанию

Цитата:
Кароче можно ли Файловую Переменную как нить присвоить к простой переменной???
объясни, что ты имеешь в виду. приведи пример что-ли
Цитата:
Или можно ли как нить её использовать при решении? Например : s:=a+input; Что-то в этом роде !
можно, например, так:
Код:
...
reset(input);
readln(input,N);
close(input);
SUM:=0;
for i:=0 to N do SUM:=SUM+i;
...
  Ответить с цитированием
 

Старый 06.10.2008, 18:04   #3
Завсегдатай форума
 
Аватар для YaKuT-ST
 
YaKuT-ST вне форума
Регистрация: 09.06.2006
Адрес: Стр
Сообщений: 847
Отправить сообщение для YaKuT-ST с помощью ICQ
По умолчанию

Цитата:
Сообщение от $odd Посмотреть сообщение
Кароче можно ли Файловую Переменную как нить присвоить к простой переменной??? Или можно ли как нить её использовать при решении? Например : s:=a+input; Что-то в этом роде! Плиииз подскажите
сам то понял что написал?
__________________
"Кто этот гений, **ядь? Дайте я пожму ему горло!"(с)
  Ответить с цитированием
 

Старый 06.10.2008, 18:10   #4
Пользователь
 
blendax вне форума
Регистрация: 20.09.2008
Адрес: Салават
Сообщений: 58
По умолчанию

вопрос: является ли число 0 целым? если да, то может ли оно быть записано во входном файле?
  Ответить с цитированием
 

Старый 06.10.2008, 18:14   #5
Местный
 
Аватар для $odd
 
$odd вне форума
Регистрация: 17.02.2007
Адрес: Салават
Сообщений: 356
Отправить сообщение для $odd с помощью ICQ
По умолчанию

http://acmp.ru/?main=task&id_task=2 прочитайте задачу ! Меня интересует как поставить for i:=0 to N do SUM:=SUM+i; вместо N число из файла input.txt или решите сами эту задачу !
  Ответить с цитированием
 

Старый 06.10.2008, 18:16   #6
Завсегдатай форума
 
Аватар для YaKuT-ST
 
YaKuT-ST вне форума
Регистрация: 09.06.2006
Адрес: Стр
Сообщений: 847
Отправить сообщение для YaKuT-ST с помощью ICQ
По умолчанию

Цитата:
Сообщение от $odd Посмотреть сообщение
http://acmp.ru/?main=task&id_task=2 прочитайте задачу ! Меня интересует как поставить for i:=0 to N do SUM:=SUM+i; вместо N число из файла input.txt или решите сами эту задачу !
считать число из файла в N и все дела...read может те помочь...
код считывания и подсчет тебе написали выше...
__________________
"Кто этот гений, **ядь? Дайте я пожму ему горло!"(с)

Последний раз редактировалось YaKuT-ST; 06.10.2008 в 18:18..
  Ответить с цитированием
 

Старый 06.10.2008, 18:20   #7
Местный
 
Аватар для $odd
 
$odd вне форума
Регистрация: 17.02.2007
Адрес: Салават
Сообщений: 356
Отправить сообщение для $odd с помощью ICQ
По умолчанию

всё додумался!)
  Ответить с цитированием
 

Старый 06.10.2008, 18:28   #8
Пользователь
 
blendax вне форума
Регистрация: 20.09.2008
Адрес: Салават
Сообщений: 58
По умолчанию

$odd, ответь, пожалуйста, на мой вопрос
Цитата:
вопрос: является ли число 0 целым? если да, то может ли оно быть записано во входном файле?
Добавлено через 5 минут
а число -10 может быть записано во входном файле? оно удовлетворяет условию
Цитата:
целое число N, не превышающее по абсолютной величине 104

Последний раз редактировалось blendax; 06.10.2008 в 18:34.. Причина: Добавлено сообщение
  Ответить с цитированием
 

Старый 06.10.2008, 18:52   #9
Местный
 
Аватар для $odd
 
$odd вне форума
Регистрация: 17.02.2007
Адрес: Салават
Сообщений: 356
Отправить сообщение для $odd с помощью ICQ
По умолчанию

Знаю только что 0 является целым , у меня было в ответе в файле output.txt , и -10 целое , но про входной файл не знаю сам попробуй протести!

Integer от -32 768 до +32 767

Добавлено через 3 минуты
Млин система не пропускает пишит Wrong answer (

Вот код :
var
N,a,c:integer;
begin
c:=0;
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
read(n);
For a:=1 To n do
c:=c+a;
write(output,c);
end.

Последний раз редактировалось $odd; 06.10.2008 в 18:55.. Причина: Добавлено сообщение
  Ответить с цитированием
 

Старый 06.10.2008, 18:56   #10
Пользователь
 
blendax вне форума
Регистрация: 20.09.2008
Адрес: Салават
Сообщений: 58
По умолчанию

как ты считаешь, если в input.txt будет записано число -5, что должно быть ответом?
  Ответить с цитированием
 

Старый 06.10.2008, 18:59   #11
SLV-Line Team
 
ProRaiL вне форума
Регистрация: 24.03.2006
Адрес: Санкт-Петербург / Салават
Сообщений: 1,339
Отправить сообщение для ProRaiL с помощью ICQ
По умолчанию

Код:
var
   i, n, s: integer;

begin
     assign(input, 'input.txt');
     reset(input);
     read(input, n);
     close(input);
     assign(output, 'output.txt');
     rewrite(output);
     s := 0;
     for i := 1 to n do
         inc(s, i);
     write(output, s);
     close(output);
end.
вроде так оО
__________________


http://u90x.ru
  Ответить с цитированием
 

Старый 06.10.2008, 19:01   #12
Местный
 
Аватар для $odd
 
$odd вне форума
Регистрация: 17.02.2007
Адрес: Салават
Сообщений: 356
Отправить сообщение для $odd с помощью ICQ
По умолчанию

blendax, создашь файл input.txt пишишь в него -5 пробел -2 и пишишь код :

var
n,a,c,b:integer;
begin
c:=0;
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
read(a,b);
write(a-b);
end.

Также создаешь файл output.txt и в итоге выходит решение: a-b т.е -5-(-2)=-3 !

Добавлено через 3 минуты
ProRaiL, тот же ответ Wrong answer !(

Последний раз редактировалось $odd; 06.10.2008 в 19:16.. Причина: Добавлено сообщение
  Ответить с цитированием
 

Старый 06.10.2008, 19:26   #13
Пользователь
 
blendax вне форума
Регистрация: 20.09.2008
Адрес: Салават
Сообщений: 58
По умолчанию

$odd,вообщем я тебе хотел указать 2 направления:
1. входное целое число может быть отрицательным и нулем
2. в условии сказано посчитать сумму чисел от 1 до N
пример кода, не претендующего на оригинальность:
Код:
...
reset(input);
readln(input,N);
close(input);
SUM:=0;
if N>1 then for i:=1 to N do SUM:=SUM+i
else for i:=1 downto N do SUM:=SUM+i;
...
  Ответить с цитированием
 

Старый 06.10.2008, 19:34   #14
Местный
 
Аватар для $odd
 
$odd вне форума
Регистрация: 17.02.2007
Адрес: Салават
Сообщений: 356
Отправить сообщение для $odd с помощью ICQ
По умолчанию

blendax, молодчег)) Код твой сработал:

Цитата:
var
i, n, s: integer;

begin
assign(input, 'input.txt');
reset(input);
read(input, n);
assign(output, 'output.txt');
rewrite(output);
close(input);
s:=0;
if n>1 then for i:=1 to n do s:=s+i
else for i:=1 downto n do s:=s+i;
write(output,s);
end.
  Ответить с цитированием
 

Старый 06.10.2008, 19:36   #15
Пользователь
 
blendax вне форума
Регистрация: 20.09.2008
Адрес: Салават
Сообщений: 58
По умолчанию

рад слышать, что у тебя все получилось. просто я хотел наводящими вопросами чтобы ты разобрался с условием задачи
  Ответить с цитированием
 
Ответ


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

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

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

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите Vilnur Технические вопросы 1 14.01.2011 00:00
Помогите!!! Denkls Сервисы сети Bashtel 0 29.06.2009 20:45
Помогите please Максим1989 Авто и мото 7 13.09.2008 16:55
помогите -monster- Мобильники, смартфоны, КПК 2 11.07.2008 20:10
ПОМОГИТЕ!!! cs_master Компьютеры 8 04.05.2007 11:46



Текущее время: 01:21. Часовой пояс GMT +3.


vBulletin skin developed by: eXtremepixels
Powered by vBulletin® Version 3.8.4
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd. Перевод: zCarot
top of page