МАИ - 3 факультет
https://mai-3.forumenko.com/

курсач по программированию
https://mai-3.forumenko.com/topic150.html		 Страница 1 из 2
Автор:  cheater [ 08-11, 03:41 ]
Заголовок сообщения:  курсач по программированию
2-й вариант - есть еще такие счастливцы?=)
Задание: программа, которая разбивает заданный текст на две колонки и форматирует их по левому и правому краям (без переноса). Ширина колонки задается произвольно. Результирующий текст записать в файл.
Автор:  ISMA [ 24-11, 16:37 ]
Заголовок сообщения: 
:smile: Похоже, шо ты, Слав, один такой счастливец. Сочувствую.
Автор:  Flit [ 30-11, 03:28 ]
Заголовок сообщения: 
ето может памоч ... прога делает все то что написана тока там растояние между колонками задается в программе... ну и в файл не сохраняет... а так все динамически...

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.
Автор:  Flit [ 30-11, 03:29 ]
Заголовок сообщения: 
пробелы сьел серв ...куева...
Автор:  Flit [ 30-11, 03:31 ]
Заголовок сообщения: 
cheater - вижу у тя асусовская эмблема во что гоняешь ??? :smile: :mrgreen:
Автор:  Cocи,да? [ 30-11, 06:36 ]
Заголовок сообщения: 
да славик ваще примат полный
Автор:  cheater [ 30-11, 17:05 ]
Заголовок сообщения: 
Flit
в кс иногда гамаю=))
да курсач я сделал уже)) я думал наоборот поделиться с кем-нить)))
Автор:  ISMA [ 12-12, 00:35 ]
Заголовок сообщения: 
:cry: Кто умеет мультики рисовать в Паскале спасите! ПРОШУ ВАС СПАСИТЕ! :O: :o :cry: Хоть такой... в виду консультаций... мне б хоть понять с чего и как начать... Шизею.
Автор:  abcenter [ 27-12, 16:52 ]
Заголовок сообщения: 
рисовать? в паскале*??
Автор:  AVEnger [ 27-12, 17:13 ]
Заголовок сообщения: 
abcenter, ты чо вчера на свет родился, в паскале не рисовал никогда? там даже мелодии можно писать! я вот когда-то програмку написал, которая какую-то классическую музычку проигрывала на паскале! а по курсачу у нас задание- написать цветной анимированный мультик на Паскале, и чтобы было не меньше 4-х движущихся объектов... вот так... :o
Автор:  TopTuK [ 27-12, 17:44 ]
Заголовок сообщения: 
ггг рисование.... в паскале... у мя комп прост блокирует определения драйвера устройства... рисуйте на С, там проще
Автор:  abcenter [ 27-12, 18:14 ]
Заголовок сообщения: 
einstein заройся не лезб в душу, ты дошел до кондиции раз ужасные звуки спикерфона называешь мелодией.
Автор:  ISMA [ 27-12, 21:47 ]
Заголовок сообщения: 
TopTuK писал(а):
ггг рисование.... в паскале... у мя комп прост блокирует определения драйвера устройства... рисуйте на С, там проще

Да многие бы и, срадостью, а рисовать только в Паскале можно курсач.
Автор:  ~INF^est~ [ 28-12, 00:05 ]
Заголовок сообщения: 
abcenter писал(а):
einstein заройся не лезб в душу, ты дошел до кондиции раз ужасные звуки спикерфона называешь мелодией.

:mrgreen: :mrgreen: :mrgreen: :mrgreen: :mrgreen: :mrgreen:
так так так Энштейна не трогать
Автор:  abcenter [ 28-12, 01:28 ]
Заголовок сообщения: 
рот закрой
Автор:  abcenter [ 28-12, 02:22 ]
Заголовок сообщения: 
Хоть ты и опытный, но опыта сидеть и не выебываться у тебя недостаточно
Автор:  sanoyashi [ 28-12, 03:52 ]
Заголовок сообщения: 
ненадо на саню негнать :sad: :sad: :evil:
Автор:  ISMA [ 28-12, 03:54 ]
Заголовок сообщения: 
sanoyashi писал(а):
ненадо на саню негнать :sad: :sad: :evil:

Саньк, ты б шо ль знаки припинания постали. Можно по-разному прочесть. :smile:
Автор:  ISMA [ 28-12, 03:57 ]
Заголовок сообщения: 
ISMA писал(а):
sanoyashi писал(а):
ненадо на саню негнать :sad: :sad: :evil:

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

А вообще. АбСЕНтер, я с Саней согласна. Хватит отношения может выяснять. Замусорил полфорума. Учи ДУ, а не хренью майся, мой тебе совет, и не надо тут нашего Друга трогать, мы ведь тоже можем сказать "ласковые" слова... :grin: :razz:
Автор:  sanoyashi [ 28-12, 04:07 ]
Заголовок сообщения: 
ISMA писал(а):
sanoyashi писал(а):
ненадо на саню негнать :sad: :sad: :evil:

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

ир просто иногда ломает их ставить а иногда просто забываю рассеяность и всё такое :grin: :grin: :lol:
Страница 1 из 2 Часовой пояс: UTC + 7 часов
Powered by phpBB® Forum Software © phpBB Group
http://www.phpbb.com/