Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.11.2013, 17:48   #1
ламхакер
 
Регистрация: 14.11.2013
Сообщений: 5
По умолчанию создание словаря

ЗДРАВСТВУЙТЕ. помогите пожалуйста создать программу для составления словаря. надо сделать прогу которая будет состовлять словать типа
мат00000000
мат00000001
мат00000002
мат00000003
мат00000004
и тд до мат99999999 и программа должна выводить эти значения в текстовый файл. подсказали что можно создать с помощью турбо паскаля ABC. буду рад если вы составите её и скинете что бы я её разобрал. или объяснение напишите пожалуйста очень подробно что бы даже самый последний из ламеров понял. пожалуйста помогите до субботы
ламхакер вне форума Ответить с цитированием
Старый 14.11.2013, 18:31   #2
VIK_aka_TOR
Участник клуба
 
Аватар для VIK_aka_TOR
 
Регистрация: 30.01.2011
Сообщений: 1,578
По умолчанию

Код:
var
 i : longint;
begin
....
for i := 0 to 99999999 do
  writeln('мат',i);
end.
допиши на вывод в файл...
пишу код не только за печеньки
VIK_aka_TOR вне форума Ответить с цитированием
Старый 14.11.2013, 18:46   #3
ZX Spectrum-128
Участник клуба
 
Регистрация: 05.11.2013
Сообщений: 1,601
По умолчанию

Код:
uses
  sysutils;
var
 s1,s:string;
 j,n:integer;
 i:longint;
 f:text;
begin
  assign(f,'numbers.txt');
  rewrite(f);
  for i:=0 to 99999999 do
    begin
      s:='';
      s1:=inttostr(i);
      n:=8-length(s1);
      for j:=1 to n do
        s:=s+'0';
      s1:='мат'+s+s1;
      writeln(f,s1);
    end;
  close(f);
end.
ZX Spectrum-128 вне форума Ответить с цитированием
Старый 14.11.2013, 19:56   #4
ZX Spectrum-128
Участник клуба
 
Регистрация: 05.11.2013
Сообщений: 1,601
По умолчанию

Цитата:
Сообщение от ламхакер Посмотреть сообщение
турбо паскаля ABC.
Такого нет. Есть Турбо Паскаль и есть Паскаль АВС
Моя программа написана на free pascal
ZX Spectrum-128 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Создание словаря Михаил Наимов PHP 2 02.05.2012 09:17
Создание словаря KASPEER HTML и CSS 1 05.04.2011 00:48
Создание словаря в Delphi Neonovaja Luna БД в Delphi 1 16.05.2008 10:30
Создание словаря tmp_user Помощь студентам 5 24.11.2007 18:30