Народ, мне надо было подсчитать всевозможные комбинации 4 чисел которые могут быть 1-9, мне надо их скопировать, не знаю как это сделать ?! Подскажите плиз. Не у кого спросить. Если есть такая тема, киньте ссылку плиз, я искал. реально не нашел. Заранее благодарен.
Не совсем понятно, о чем речь... Что именно "попировать"?
Тебе что, надо генерировать сочетания? Или только найти их количество? В любом случае, это http://forum.pascal.net.ru/index.php?s=&showtopic=3777&view=findpost&p=52823
В общем мне нужно не их количество, а сами комбинации, например 1111, 1112, 1113 и так далее. Но мне они нужны, что б вставить в другую программу, переписывать с паскаля долговатенько, ибо потом мне больше надо будет комбинаций, а как ответ скопировать, или перенести в другую программу, не знаю.
Ну, выводи результаты в файл, например...
В каком виде та, вторая программа, должна получить данные?
А можно что б ответ выводился в какой то файл, тип его !? Желательно в текстовый файл вывести все это. Все эти цифри.
var f: text;, то есть, создать файл, а потом просто печатать туда (по умолчанию, без указания файла первым параметром, Write(Ln) печатает в консоль)
begin
assign(f, 'results.txt'); rewrite(f);
writeln(f, 'Здесь будут результаты!');
close(f);
end.
Извини, но не совсем понял. Вот как я написал програмку с тем, что ты указал, правильно ?!
var a1,a2,a3,a4:integer;
var f:text;
begin for a1:=1 to 4 do
for a2:=1 to 9 do
for a3:=1 to 9 do
for a4:=1 to 9 do
assign(f,'result.txt');
rewrite(f);
writeln('тут будут резалты');
close(f);
end.
М | Используй теги для публикации кода Lapp |
Ты в моем коде в четвертой строке что, букву F не видишь? Я же тебе привел специально пример, как информация пишется в файл... Без F строка будет выводиться на монитор...
И, на будущее, изъясняйся как-то более однозначно что-ли, а то тебя не поймешь, то написало, то не написало... Хотя чего должно было написать? Ты что, СКАЗАЛ программе что-то сделать с файлом? Насколько я вижу, у тебя только его создание (причем, Assign выполняется несколько тысяч раз) и закрытие. Записи в файл нет...
Сор, недописал. В строке с writeln я f вписал, тут в посту забыл написать. Короче слова "тут будут резалты" оно выводит в файл result.txt, а комбинации нет. Я по самоучителю учусь еще, команду assign я еще не учил. Так что извини, я еще новичек, сильно не придирайтесь плиз.
WriteLn(f,a1,a2,a3,a4);
В общем можете дописать к моей программе того, что нехватает ?! А то я тож не совсем вас понимаю ( Лишь то, что нехватает, что б программа записала все комбинации в текстовый файл, пожалуйста.
Я тебе написал все, что надо. Ты и минуты не думал над этим, сразу попросил готовую программу. Нет, друг, так не пойдет. "В общем", разберись и приходи.
Я просто не шарю команду assign, вот и все. Я с ней буду потом по книге разбиратся, там для меня просто легче обьясняется, вот и все. Лан, буду пробовать. На счет готовой ты перегнул, я лишь просил скопировать мою, и дописать де надо че надо, и все, лан, сам попытаюсь.
М | тему переношу в Задачи. |
var a1,a2,a3,a4:integer;
var f:text;
begin
assign(f,'result.txt');
rewrite(f);
close(f);
for a1:=1 to 4 do
for a2:=1 to 9 do
for a3:=1 to 9 do
for a4:=1 to 9 do
writeln(f,a1,a2,a3,a4);
end.
Все, закончил и работает, спасибо и на этом. Кстати, подскажите плиз как сделать так, что б комбинации выводились в один столбик ? После writeln(f,a1,a2,a3,a4); написать writeln ?! Де то что то похожее видел, точно не помню.
Прочти свой пост, посмотри сколько ты накрутил ?! Я просто привык к одному типа обьяснений, вы мне немного по другому обьяняли, для мну это труднее было, вы больше знаете, и писали как сами понимаете, а не для тех, кто еще 0 в этом шарит. Ведь лучше на примере все показать, дописали бы что надо, и обьяснили. Тебе понравилось бы, если ты подошел бы в незнакомом городе к милиционеру, спросить где находится такае то улица, а он те давай закатывает лекцию, где надо спрашивать, какими способами это мона узнать и т.п. !? Не хочешь помогать, я тя не заставляю.
Ты не самый лучший пример привел. Вот подойди к препу и спроси его, как решается задача. А потом ему расскажи свою историю про мента, когда он тебе откажется писать решение. На этом форуме люди стараются научить таких как ты. Ты понял? НАУЧИТЬ, а не дать списать. Разницу чуешь? А по поводу твоих привычек - извини, под тебя подстраиваться никто не будет. Это ты своему препу объясняй, КАК ТЕБЯ НАДО УЧИТЬ. Может, он и послушает. А мы тут ТЫСЯЧИ таких выучили. И не тебе нам говорить, как это делать.
И если тебе кажется, что ты все сделал сам - то это и есть высшая оценка нашего труда.
Я не говорил что все сам сделал, я лучше все вижу не примерах, теория мое слабое место, и если мне что то обьяснить, и не показать на примере, считай ничего не сказали, вот и все. а вы демагогию устроили.
viagra autentica sin receta