создайте прогу доплачу 50р.

[ламхакер]

ЗДРАВСТВУЙТЕ. помогите пожалуйста создать программу для составления словаря. надо сделать прогу которая будет состовлять словать типа
мат00000000
мат00000001
мат00000002
мат00000003
мат00000004
и тд до мат99999999 и программа должна выводить эти значения в текстовый файл. подсказали что можно создать с помощью турбо паскаля ABC. буду рад если вы составите её и скинете что бы я её разобрал. или объяснение напишите пожалуйста очень подробно что бы даже самый последний из ламеров понял. пожалуйста помогите до субботы

[Luuzuk]

Вот вас решение на C# в качестве жеста доброй воли)

using System.IO;
using System.Linq;

namespace ConsoleApplication1
{
    class Program
    {
        static void Main(string[] args)
        {
            File.WriteAllLines(@"output.txt", Enumerable.Range(0, 99999999).Select(num => string.Format("мат{0:00000000}", num)));
        }
    }
}

на выходе получится искомый файл (output.txt) размером этак гигабайта в полтора

[ламхакер]

ладно доплачу еще 100 р если до утра будет готова

[Luuzuk]

Нужно больше золота (с)
А чем шарп не нравится?

[ламхакер]

Сообщение от Luuzuk

Вот вас решение на C# в качестве жеста доброй воли)

using System.IO;
using System.Linq;

namespace ConsoleApplication1
{
    class Program
    {
        static void Main(string[] args)
        {
            File.WriteAllLines(@"output.txt", Enumerable.Range(0, 99999999).Select(num => string.Format("мат{0:00000000}", num)));
        }
    }
}

на выходе получится искомый файл (output.txt) размером этак гигабайта в полтора

с помощью какой проги это вводить? у меня паскаль абц и фри паскать

[Luuzuk]

Microsoft Visual Studio Express

[ламхакер]

Сообщение от Luuzuk

Microsoft Visual Studio Express

а как его сохранять. я ламер объясни пожста

[SDmaN]

Напишите в Skype: sdman1357 или ICQ: 677005984

[Serge_Bliznykov]

что же Вы такой беспомощный?!!

запускайте Pascal ABC
в окне вставляйте текст программы:

function IntToStrNLength(K : LongInt; NLen : integer) : string;
begin
  result := IntToStr(K);
  while length(result)<NLen do result := '0' + result;
end;

var f: text;
    i : LongInt;
begin
  Assign(f,'D:\BigMat.txt');
  Rewrite(f);
  i := 0;
  while i<= 1000 { 99999999  }
  do begin
    WriteLn(f,'мат'+IntToStrNLength(i,8));
    inc(i);
  end;
  Close(f);
  WriteLn('DONE!');
end.

выделил цветом то, что Вам нужно(можно) менять!
там, где D:\BigMat.txt напишите имя файла с полным путём, где Вы хотите получить резульат.

там, где 1000 напишите финальное число (она для справки рядом, в комментарии написано). Первый раз рекомендую запустить с небольшим числом, чтобы убедится, что всё работает.

ну, как то, так...

[Serge_Bliznykov]

а чем тема http://www.programmersforum.ru/showthread.php?t=247931 не устроила?!