МАИ - 3 факультет

2-й вариант - есть еще такие счастливцы?=)
Задание: программа, которая разбивает заданный текст на две колонки и форматирует их по левому и правому краям (без переноса). Ширина колонки задается произвольно. Результирующий текст записать в файл.

Похоже, шо ты, Слав, один такой счастливец. Сочувствую.

_________________
Поделись улыбкою своей,
И она к тебе не раз еще вернется...

Каждые минуты жизни - это шанс все изменить.

ето может памоч ... прога делает все то что написана тока там растояние между колонками задается в программе... ну и в файл не сохраняет... а так все динамически...

program flitprak9;
type stroki = array[1..10] of string;
var inp:text; sts:stroki; i,j,k,l,s,w,ups,kak,sas,kaka,sasa:integer; poln:string;
begin
write(' Chirina kolonki: ');
readln(l);
writeln;
write(' Rasstoyanie mechdu kolonkami: ');
readln(s);
writeln;
assign(inp,'E:\PRAK\ZAD9\text.pas');
reset(inp);
for i:=1 to 10 do
readln(inp,sts[i]);
for i:=1 to 10 do
w:=w+length(sts[i]);
for i:=1 to 10 do
poln:=concat(poln,sts[i]);
ups:=succ(trunc((trunc(w/2))/l));
for i:= 1 to ups do
begin
k:=s;
if i=1 then kaka:=1
else kaka:=(i-1)*l+1;
sasa:=i*l;
for j:=kaka to sasa do
if (j=sasa)and(poln[sasa] <> ' ')and(poln[sasa+1] <> ' ')then
begin
write(poln[sasa]);
write('-');
k:=s-1
end
else write(poln[j]);
for j:=1 to k do write(' ');
kak:=(ups+i-1)*l+1;
sas:=(ups+i)*l;
for j:=kak to sas do if j>w then continue else
if j=sas then
if (j=sas)and(poln[sas] <> ' ')and(poln[sas+1] <> ' ') then
begin
write(poln[sas]);
writeln('-')
end
else writeln(poln[j])
else write(poln[j]);
end;
readln
end.

_________________
Everybody Likes Sunshine!

пробелы сьел серв ...куева...

_________________
Everybody Likes Sunshine!

cheater - вижу у тя асусовская эмблема во что гоняешь ???

_________________
Everybody Likes Sunshine!

да славик ваще примат полный

Flit
в кс иногда гамаю=))
да курсач я сделал уже)) я думал наоборот поделиться с кем-нить)))

Кто умеет мультики рисовать в Паскале спасите! ПРОШУ ВАС СПАСИТЕ! Хоть такой... в виду консультаций... мне б хоть понять с чего и как начать... Шизею.

_________________
Поделись улыбкою своей,
И она к тебе не раз еще вернется...

Каждые минуты жизни - это шанс все изменить.

рисовать? в паскале*??

abcenter, ты чо вчера на свет родился, в паскале не рисовал никогда? там даже мелодии можно писать! я вот когда-то програмку написал, которая какую-то классическую музычку проигрывала на паскале! а по курсачу у нас задание- написать цветной анимированный мультик на Паскале, и чтобы было не меньше 4-х движущихся объектов... вот так...

_________________

ггг рисование.... в паскале... у мя комп прост блокирует определения драйвера устройства... рисуйте на С, там проще

_________________
фантазия поможет сделать интересно, лень — просто, а здоровый похуизм — не задумываясь о последствиях
какая глупость. афоризмы сосут
(.)(.) Лавер)

einstein заройся не лезб в душу, ты дошел до кондиции раз ужасные звуки спикерфона называешь мелодией.

Да многие бы и, срадостью, а рисовать только в Паскале можно курсач.

_________________
Поделись улыбкою своей,
И она к тебе не раз еще вернется...

Каждые минуты жизни - это шанс все изменить.

так так так Энштейна не трогать

_________________
Скины объебали, менты обобрали, а врачи сказали Я - ОЧЕРЕДНОЙЙЙЙЙЙЙЙЙ!!!!!!!!!!

рот закрой

Хоть ты и опытный, но опыта сидеть и не выебываться у тебя недостаточно

ненадо на саню негнать

_________________
Самурай должен прежде всего постоянно помнить - помнить днем и ночью, с того утра, когда он берет в руки палочки, чтобы вкусить новогоднюю трапезу, до последней ночи старого года, когда он платит свои долги - что он должен умереть

Будосёсинсю

Саньк, ты б шо ль знаки припинания постали. Можно по-разному прочесть.

_________________
Поделись улыбкою своей,
И она к тебе не раз еще вернется...

Каждые минуты жизни - это шанс все изменить.

А вообще. АбСЕНтер, я с Саней согласна. Хватит отношения может выяснять. Замусорил полфорума. Учи ДУ, а не хренью майся, мой тебе совет, и не надо тут нашего Друга трогать, мы ведь тоже можем сказать "ласковые" слова...

_________________
Поделись улыбкою своей,
И она к тебе не раз еще вернется...

Каждые минуты жизни - это шанс все изменить.

ир просто иногда ломает их ставить а иногда просто забываю рассеяность и всё такое

_________________
Самурай должен прежде всего постоянно помнить - помнить днем и ночью, с того утра, когда он берет в руки палочки, чтобы вкусить новогоднюю трапезу, до последней ночи старого года, когда он платит свои долги - что он должен умереть

Будосёсинсю