Модераторы: volvo877, Snowy, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Генерация чисел, Программа генерации чисел 
:(
    Опции темы
oberonmce
Дата 3.5.2006, 23:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 3.5.2006

Репутация: нет
Всего: нет
Нужно сгенерировать x от 0000 до 9999 и вставить его надо вот в такой вид:
axb , например где a=7222 b=mama и все это в текстовый файл:
а итог должен быть таков:
72220000mama
72220001mama
72220002mama
.......................
72229999mama 
PM MAIL   Вверх
volvo877
Дата 3.5.2006, 23:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116
oberonmce, в чем проблема?

Или проходи одним циклом от 0 до 9999 (но будет проблема с преобразованием в 4-х символьную строку, это будет занимать время), или 4 цикла:
Код
Var ch_1, ch_2, ch_3, ch_4: Char;
...
Assign(f_out, 'f.txt');
Rewrite(f_out);

For ch_1 := '0' to '9' do
  For ch_2 := '0' to '9' do
    For ch_3 := '0' to '9' do
      For ch_4 := '0' to '9' do
        WriteLn(f_out, a, ch_1+ch_2+ch_3+ch_4, b);
Close(f_out);
 
PM MAIL   Вверх
Romikgy
Дата 4.5.2006, 00:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: нет
Всего: 146
Код

type tstr = string;{array [1..4] of char;}
var i: integer;

function int2str(const x: integer): string;
var i,t: integer;
sx: tstr;
begin
 sx:='0000';
 t:=x;
 for i:=4 downto 1 do
  begin
   sx[i]:=chr($30+(t mod 10));
   t:=t div 10;
  end;
  int2str:=sx
end;

begin
  for i:=0 to 9999 do
  begin
    write('7222');
    write(int2str(i));
    writeln('mama');
  end;
end.
 


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
oberonmce
Дата 4.5.2006, 16:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 3.5.2006

Репутация: нет
Всего: нет
Цитата(Romikgy @ 4.5.2006,  00:08)
Код

type tstr = string;{array [1..4] of char;}
var i: integer;

function int2str(const x: integer): string;
var i,t: integer;
sx: tstr;
begin
 sx:='0000';
 t:=x;
 for i:=4 downto 1 do
  begin
   sx[i]:=chr($30+(t mod 10));
   t:=t div 10;
  end;
  int2str:=sx
end;

begin
  for i:=0 to 9999 do
  begin
    write('7222');
    write(int2str(i));
    writeln('mama');
  end;
end.

Работает вродебы замечательно только в текстовый файл он не записывает результат!!! 
PM MAIL   Вверх
volvo877
Дата 4.5.2006, 17:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116
Цитата(oberonmce @  4.5.2006,  16:59 Найти цитируемый пост)
Работает вродебы замечательно только в текстовый файл он не записывает результат!!!  
А ты ВСЕГДА только последний ответ смотришь? Тогда предупреждай об этом... Я тогда буду удалять свои посты, после которых кто-то другой дает некорректное решение... 
PM MAIL   Вверх
oberonmce
Дата 4.5.2006, 17:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 3.5.2006

Репутация: нет
Всего: нет
Цитата(volvo877 @ 3.5.2006,  23:58)
oberonmce, в чем проблема?

Или проходи одним циклом от 0 до 9999 (но будет проблема с преобразованием в 4-х символьную строку, это будет занимать время), или 4 цикла:
Код
Var ch_1, ch_2, ch_3, ch_4: Char;
...
Assign(f_out, 'f.txt');
Rewrite(f_out);

For ch_1 := '0' to '9' do
  For ch_2 := '0' to '9' do
    For ch_3 := '0' to '9' do
      For ch_4 := '0' to '9' do
        WriteLn(f_out, a, ch_1+ch_2+ch_3+ch_4, b);
Close(f_out);

Я не силен в Pascal, вы не могли бы написать полный исходный код!!! 
PM MAIL   Вверх
SoWa
Дата 4.5.2006, 21:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Харекришна
****


Профиль
Группа: Комодератор
Сообщений: 2422
Регистрация: 18.10.2004

Репутация: нет
Всего: 74
Код

const 
a='7222';
b='mama'
Var ch_1, ch_2, ch_3, ch_4: Char;
f_out: text;

begin
    
Assign(f_out, 'f.txt');
    
Rewrite(f_out);
    
For ch_1 := '0' to '9' do
  For ch_2 := '0' to '9' do
    For ch_3 := '0' to '9' do
      For ch_4 := '0' to '9' do
        WriteLn(f_out, a, ch_1+ch_2+ch_3+ch_4, b);
    
Close(f_out);

Устраивает?!
Кстати, комментарий: В параметрах Writeln не обязательно вроде указывать переменную файла. По умолчанию запись будет идти в файл. 

После исправления:
oberonmce, код иногда читай и объявляй переменные. Все за тебя мы не сделаем. 

Это сообщение отредактировал(а) SoWa - 4.5.2006, 21:25


--------------------
Всем добра smile
PM MAIL ICQ   Вверх
oberonmce
Дата 4.5.2006, 21:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 3.5.2006

Репутация: нет
Всего: нет
Цитата(SoWa @ 4.5.2006,  21:05)
Код

const 
a='7222';
b='mama'
Var ch_1, ch_2, ch_3, ch_4: Char;
f_out: text;

begin
    
Assign(f_out, 'f.txt');
    
Rewrite(f_out);
    
For ch_1 := '0' to '9' do
  For ch_2 := '0' to '9' do
    For ch_3 := '0' to '9' do
      For ch_4 := '0' to '9' do
        WriteLn(f_out, a, ch_1+ch_2+ch_3+ch_4, b);
    
Close(f_out);

Устраивает?!
Кстати, комментарий: В параметрах Writeln не обязательно вроде указывать переменную файла. По умолчанию запись будет идти в файл. 

После исправления:
oberonmce, код иногда читай и объявляй переменные. Все за тебя мы не сделаем.


Всем большое спасибо кто помог!!!
Тему можно считать закрытой, только end надо написать с точкой в конце т.е. последняя строчка end. !!! 
PM MAIL   Вверх
APAL
Дата 6.5.2006, 00:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 6.4.2006

Репутация: нет
Всего: нет
Цитата(SoWa @ 4.5.2006,  21:05)
Кстати, комментарий: В параметрах Writeln не обязательно вроде указывать переменную файла. По умолчанию запись будет идти в файл. 

Ага, можно не указывать, только и в файл ничего не попадет... все на экран выдаст. 
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

Запрещается!

1. Обсуждать и делится взломанными компонентами или программным обеспечением

2. Публиковать ссылки на варез

3. Оффтопить

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0495 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.