Нужна помощь (Basic/Pascal)
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя |
Сообщение |
<< Старые топики Новые топики >> |
|
|
Нужна помощь (Basic/Pascal) - 2005-11-24 17:22:24
|
|
|
Вождь
Сообщений: 559
Оценки: 0
Присоединился: 2005-11-09 17:45:39
|
Всех приветствую. Вобщем у меня завтра олимпиада по информатике областная, и там нужен Паскаль или Бейсик, а их не знаю в упор. У кого есть время, поможите детёнышу:) 3 задания: 1. Нужно напечатать что-то типа буклета, так чтобы на одной стороне листа печатались страницы 1 и 3, а на другой - 2 и 4. При этом если так получается, что общее число страниц не кратно 4, то в конец добавляются страницы, но так чтобы это было минимальное количество. Вот такую фигню надо написать.
2. Значит лежит линейка длиной N=30, на нуле сидит кузнечик. Он может прыгать по этой линейке несколькими способами (например сделать 15 прыжков по m=2, или 5 по m=6 и т.д.). Надо написать прогу, выводящую возможные маршруты этого бешеного кузнеца. При этом где-нить вначале надо задать значения m, так чтобы оно было делителем 30.
3. Имеется массив слов A1, A2,… An (всего n слов). Ни одно из слов не содержит пробелов. Надо отсортировать массив, так чтобы 1-ая буква одного слова совпадала с последней 2-го, а 1-ая 2-го - с последней третьего и т. д. Пример : акт,нота,тон. В конце эта цепочка должна замкнуться с первым словом. Ну и прога должна выводить всю эту цепочку слов, или если такая сортировка невозможна, прога дожна сказать "Нет". Ну вот и всё:)
|
|
|
Нужна помощь (Basic/Pascal) - 2005-11-24 21:54:09
|
|
|
Alex McTerry
Сообщений: 125
Оценки: 0
Присоединился: 2005-10-27 12:33:00
|
Ща запостю…. Задачка номер два.
На С выглядит так:
#include<stdio.h><BR>#include<conio.h><BR>#include<iostream.h><BR><BR>void main()<BR>{<BR> clrscr();<BR> cout<<"Enter m:\n";<BR> int m;<BR> cin>>m;<BR> if (m!=0)<BR> while (30%m!=0)<BR> {<BR> cout<<"m - delitel' 30!!!\nEnter m:\n";<BR> cin>>m;<BR> }<BR> if (m==30) cout<<"nekuda prigat!";<BR> else<BR> {<BR> int ost=30-m;<BR> cout<<"Rasstoyanie: "<<ost<<" y.e.\n";<BR> int k=1;<BR> for (int i=1;i<=10;i++)<BR> if (ost%i==0)<BR> {<BR> cout<<"Reshenie zadachi "<<k<<": "<<i<<" prizhkov po "<<ost/i<<" y.e.\n";<BR> k++;<BR> }<BR> }<BR> getch();<BR>}
На ПаскАле должна так (не уверен, компилятора нету…): P.S. Нашел Делфи. Там работает. Не уверен насчет clrscr.
program kuznechik;<BR>uses crt;<BR>var m,ost,k,i: integer;<BR>begin<BR>clrscr;<BR>writeln('Enter m:');<BR>readln(m);<BR>if m<>0 then<BR> while(30 mod m<>0) do<BR> begin<BR> writeln('m - delitel 30!!!');<BR> writeln('Enter m:');<BR> readln(m);<BR> end;<BR>if m=30 then writeln('Prigat nekuda!')<BR>else<BR>begin<BR>ost:=30-m;<BR>writeln('Rasstoyanie: ',ost);<BR>k:=1;<BR>for i:=1 to 10 do<BR> if (ost mod i=0) then<BR> begin<BR> writeln('Reshenie zadachi ',k,': ',i,' ghizhkov po ',ost/i:0:0,' y.e.');<BR> k:=k+1;<BR> end;<BR>end;<BR> readln;<BR>end. С остальными - подумаю до завтра… Хе.
|
|
|
Нужна помощь (Basic/Pascal) - 2005-11-24 22:01:04
|
|
|
De}{is
Сообщений: 137
Оценки: 0
Присоединился: 2005-11-22 11:21:42
|
По моему третью задачку можно решить так:
На Паскале:
program Words;
const n = 3; {количество слов} m:array[1..n] of String = (' Єв', 'в®', '®в '); {собственно массив слов}
procedure obm(var a,b:string); {процедура обиена двух переменных} var t:string; begin t:=a;a:=b;b:=t; end;
procedure Write_M; {процедура вывода массива на экран} var i:integer; begin for i:=1 to n do write(m,' ');<BR> WriteLn;<BR>end;<BR><BR>var s:string;<BR> i,j:integer;<BR><BR>begin<BR> Write_M; {выводим массив на экран в первоначальном виде}<BR> for i:=2 to n do begin {движемся по нему, начиная со второго}<BR> s:=m[i-1][length(m[i-1])]; {запоминаем последнюю букву предыдущего слова}<BR> j:=i; {и ищем слово, начинающееся с этой буквы}<BR> while m[j][1]<>s do {начиная с i-го}<BR> inc(j);<BR> obm(m,m[j]); {как тока нашли, меняем его местами с i-тым}<BR> end; {и все заново, пока не кончатся слова}<BR> WriteLn;<BR> Write_M; {выводим на экран отсортированный массив}<BR> readLn;<BR>end. {ну и усё вроде….} <BR><BR>А вот в остальных формулировки какие-то мутные, лучше бы написал точный текст задач, решать было бы легче…<BR>
|
|
|
Нужна помощь (Basic/Pascal) - 2005-11-24 22:51:53
|
|
|
Вождь
Сообщений: 559
Оценки: 0
Присоединился: 2005-11-09 17:45:39
|
quote:
—————-<BR>Цитата: Дата:24.11.2005 22:01:04, Автор:De}{is :: А вот в остальных формулировки какие-то мутные, лучше бы написал точный текст задач, решать было бы легче…<BR> —————-
De}{is, написалА:) гы, ну вообще-то это секретные сведения, ибо олимпиада только завтра, поэтому у меня распечатки всего этого нету;)) Alex McTerry, ага, даже клеарскрин работает:) Вот у меня тож никогда компилятора паскалевского не было, я на С пишу. Итого: объявляецца благодарность [sm=hi.gif] всем кто помог в нелёгком деле освоения языка за 8 часов, что у меня успешно получилось:))) З.Ы. Никогда больше не буду понтоваться на информатике…))
|
|
|
Нужна помощь (Basic/Pascal) - 2005-11-24 23:12:55
|
|
|
Alex McTerry
Сообщений: 125
Оценки: 0
Присоединился: 2005-10-27 12:33:00
|
Всегда пожалуйста… [sm=hi.gif] Чем смогу… [sm=sm203.gif]
|
|
|
Нужна помощь (Basic/Pascal) - 2005-11-25 09:26:50
|
|
|
Alex McTerry
Сообщений: 125
Оценки: 0
Присоединился: 2005-10-27 12:33:00
|
Ааааа! Мля, в цикле поиска for i:=1 to 10 do i гнать не до 10, а до ost! Всё! Надеюсь, еще не поздно…[sm=9.gif]
|
|
|
Нужна помощь (Basic/Pascal) - 2005-11-25 15:24:17
|
|
|
Вождь
Сообщений: 559
Оценки: 0
Присоединился: 2005-11-09 17:45:39
|
Не поздно:) У меня седня как в кино на последней секунде олимпиады проснулась интуиция, и решила я сюда заглянуть. Так что все ок:) Ну там все и пеньки!!!!))) Я че за ночь прочитала уже половину забыла, и все равно по сравнению с ними там как ботан была)) Короче я не знаю че будет если меня пошлют на область)) Срочно нормально учу паскаль)
|
|
|
Нужна помощь (Basic/Pascal) - 2005-11-25 15:31:19
|
|
|
Alex McTerry
Сообщений: 125
Оценки: 0
Присоединился: 2005-10-27 12:33:00
|
Уф! Камень с души сввалился… [sm=9.gif]
|
|
|
Нужна помощь (Basic/Pascal) - 2005-11-26 14:20:05
|
|
|
Maslo
Сообщений: 717
Оценки: 0
Присоединился: 2005-08-11 21:51:47
|
//P.S. Нашел Делфи. Там работает. Не уверен насчет clrscr.
Не работает. В Делфе нету crt модуля.
|
|
|
Нужна помощь (Basic/Pascal) - 2005-11-26 15:16:50
|
|
|
Alex McTerry
Сообщений: 125
Оценки: 0
Присоединился: 2005-10-27 12:33:00
|
Подколол! Это я потом дописал. Наугад…[sm=16.gif]
|
|
|
Нужна помощь (Basic/Pascal) - 2005-11-26 22:50:47
|
|
|
Вождь
Сообщений: 559
Оценки: 0
Присоединился: 2005-11-09 17:45:39
|
*поднимает глаза от учебника по паскалю* Alex McTerry, э-э… А больше ты наугад ничего не писал??)))
|
|
|
Нужна помощь (Basic/Pascal) - 2005-11-27 12:21:15
|
|
|
x-coder
Сообщений: 268
Оценки: 0
Присоединился: 2004-07-31 19:53:33
|
Какая страшная задачка:)))Как в фильме ужасов))) Только зачем это надо???
|
|
|
Нужна помощь (Basic/Pascal) - 2005-11-27 17:36:06
|
|
|
Вождь
Сообщений: 559
Оценки: 0
Присоединился: 2005-11-09 17:45:39
|
x-coder, завидую тебе, если ты никогда не слышал от своего информатика(информатички) след. фразу: "А-а-а-а-а!! Завтра олимпиада, на кого бы написать заявку, все ламеры, а-а-а-а!! Меня уволят, это 3,14здец, ну сходи хоть ты, а???" )))
|
|
|
Нужна помощь (Basic/Pascal) - 2005-11-27 18:08:18
|
|
|
x-coder
Сообщений: 268
Оценки: 0
Присоединился: 2004-07-31 19:53:33
|
Не, мой информатик как только видит меня, сразу начинает улыбаться и распрашивать о моих успехах:)))
|
|
|
Нужна помощь (Basic/Pascal) - 2005-11-27 21:13:15
|
|
|
Вождь
Сообщений: 559
Оценки: 0
Присоединился: 2005-11-09 17:45:39
|
и че ты ему отвечаешь?)))
|
|
|
Нужна помощь (Basic/Pascal) - 2005-11-27 23:16:14
|
|
|
Alex McTerry
Сообщений: 125
Оценки: 0
Присоединился: 2005-10-27 12:33:00
|
>Вождь< Не… Остальное все проверил, все работало. Просто с Паскалем дело не имел уже с год, поэтому про все операторы присваивания(":=")забыл напрочь. Это была моя единственная ошибка.
|
|
|
Нужна помощь (Basic/Pascal) - 2005-11-28 18:02:26
|
|
|
Вождь
Сообщений: 559
Оценки: 0
Присоединился: 2005-11-09 17:45:39
|
quote:
—————-<BR>Цитата: Дата:27.11.2005 23:16:14, Автор:Alex McTerry :: это была моя единственная ошибка. —————-
Надеюсь:) А точно мы это узнаем в четверг.
|
|
|
Нужна помощь (Basic/Pascal) - 2005-11-28 22:16:36
|
|
|
Maslo
Сообщений: 717
Оценки: 0
Присоединился: 2005-08-11 21:51:47
|
А моя информатичка влепила мне 2 бала за тему, когда узнала про то, что я замутил со школьным сайтом…[sm=9.gif]
|
|
|
Нужна помощь (Basic/Pascal) - 2005-11-30 13:02:32
|
|
|
Victor Reward
Сообщений: 10
Оценки: 0
Присоединился: 2005-11-30 12:47:04
|
ребята, а у меня завтра олимпиада по информатике.[sm=1.gif] язык Паскаль я знаю(ботаник все-таки[sm=9.gif], да и олимпиада городская), но боюсь.Морально поддержите.
|
|
|
Нужна помощь (Basic/Pascal) - 2005-11-30 14:16:03
|
|
|
Petrol1um
Сообщений: 448
Оценки: 0
Присоединился: 2005-04-12 12:25:15
|
удачи.
|
|
|
Нужна помощь (Basic/Pascal) - 2005-11-30 22:26:42
|
|
|
Maslo
Сообщений: 717
Оценки: 0
Присоединился: 2005-08-11 21:51:47
|
Удачи ))[sm=1.gif]
|
|
|
Нужна помощь (Basic/Pascal) - 2005-12-01 06:09:27
|
|
|
-ddd-
Сообщений: 4918
Оценки: 42
Присоединился: 2005-05-23 17:20:41
|
У какой дачи?
|
|
|
Нужна помощь (Basic/Pascal) - 2005-12-01 13:21:08
|
|
|
Victor Reward
Сообщений: 10
Оценки: 0
Присоединился: 2005-11-30 12:47:04
|
Спасибо[sm=hi.gif], ребята, я занял первое место по баллам.[sm=em121.gif], но третье по результату[sm=mad.gif](не решил задачу[sm=8.gif]). Поможете? Задача такая:
Лесенкой называется набор кубиков, в котором каждый более верхний слой содержит кубиков меньше, чем предыдущий. Требуется написать программу, вычисляющую число лесено, которое можно построить из N кубиков.
|
|
|
Нужна помощь (Basic/Pascal) - 2005-12-01 14:51:30
|
|
|
Вождь
Сообщений: 559
Оценки: 0
Присоединился: 2005-11-09 17:45:39
|
Виктор Reward, а нафига тебе теперь-то эта задачка?:)) Да, давайте основывать клуб моральной поддержки ботанов)) Если не получицца - переименуемся в Клуб самоубийц:) Это уж как дело пойдёт:)) А-а-а, у меня через 2 недели аттестация, а у меня одни параши в столбик!!! В инсте хвосты мегагигаохренительные, про школу я вообще молчу!!! А-а-а-а, это 3,14здец, мы все умрем, ужас, кошмар, апокалипсис!!!!! Давайте поддерживайте меня морально[sm=16.gif] З.Ы. Тока попробуйте мне тут про свою дачу 10 раз написать)))
|
|
|
Нужна помощь (Basic/Pascal) - 2005-12-01 15:17:27
|
|
|
AdReNaL1Ne
Сообщений: 8027
Оценки: 350
Присоединился: 2005-09-11 06:38:05
|
quote:
—————-<BR>Цитата: Дата:01.12.2005 14:51:30, Автор:Вождь :: Виктор Reward, а нафига тебе теперь-то эта задачка?:)) <BR> Да, давайте основывать клуб моральной поддержки ботанов)) Если не получицца - переименуемся в Клуб самоубийц:) &amp;#1069;то уж как дело пойдёт:)) А-а-а, у меня через 2 недели аттестация, а у меня одни параши в столбик!!! В инсте хвосты мегагигаохренительные, про школу я вообще молчу!!! А-а-а-а, это 3,14здец, мы все умрем, ужас, кошмар, апокалипсис!!!!! Давайте поддерживайте меня морально[sm=16.gif]<BR>З.Ы. Тока попробуйте мне тут про свою дачу 10 раз написать))) —————-
Всегда готов тебя подержать! [sm=3.gif]
|
|
|
Нужна помощь (Basic/Pascal) - 2005-12-02 09:49:16
|
|
|
Alex McTerry
Сообщений: 125
Оценки: 0
Присоединился: 2005-10-27 12:33:00
|
>Вождь<: Короче, как то раз на даче….[sm=9.gif][sm=9.gif] А вообще у меня ее нет, я и так в ч/д живу…[sm=9.gif]
|
|
|
Нужна помощь (Basic/Pascal) - 2005-12-02 17:46:03
|
|
|
Вождь
Сообщений: 559
Оценки: 0
Присоединился: 2005-11-09 17:45:39
|
AdReNaL1Ne, [sm=sm203.gif] Alex McTerry, [sm=001.gif] кастрировать тебя в твоём ч.д=)
|
|
|
Нужна помощь (Basic/Pascal) - 2005-12-02 18:02:57
|
|
|
sysfuck3r
Сообщений: 355
Оценки: 0
Присоединился: 2005-03-22 19:39:54
|
Вождь, какое место заняла хоть ?
|
|
|
Нужна помощь (Basic/Pascal) - 2005-12-02 18:40:58
|
|
|
Вождь
Сообщений: 559
Оценки: 0
Присоединился: 2005-11-09 17:45:39
|
Да вот хз, пока не говорят( Да не боитесь, первые будете после меня меня в списке осведомленных о результатах)
|
|
|
Нужна помощь (Basic/Pascal) - 2005-12-02 18:49:51
|
|
|
AdReNaL1Ne
Сообщений: 8027
Оценки: 350
Присоединился: 2005-09-11 06:38:05
|
2 Вождь:
В любом случае, пью(сегодня виски) за твое здоровье! :=))
|
|
|
Нужна помощь (Basic/Pascal) - 2005-12-02 20:38:55
|
|
|
Вождь
Сообщений: 559
Оценки: 0
Присоединился: 2005-11-09 17:45:39
|
пить за мое здоровье ты будешь недельки через 2, я как раз тогда буду атдыхать в рианимацыи с многочисленными переломами и сотрясением Того_Что_Должно_Быть_Мозгом по случаю избиения предками, совершенно случайно увидевшими зачетку)))
|
|
|
Нужна помощь (Basic/Pascal) - 2005-12-02 22:21:25
|
|
|
Maslo
Сообщений: 717
Оценки: 0
Присоединился: 2005-08-11 21:51:47
|
quote:
—————-<BR>Цитата: Дата:02.12.2005 20:38:55, Автор:Вождь :: пить за мое здоровье ты будешь недельки через 2, я как раз тогда буду атдыхать в рианимацыи с многочисленными переломами и сотрясением Того_Что_Должно_Быть_Мозгом по случаю избиения предками, совершенно случайно увидевшими зачетку))) —————-
Мне грозит та же участь(9 класс - экзамены…).
|
|
|
Нужна помощь (Basic/Pascal) - 2005-12-03 13:18:20
|
|
|
AdReNaL1Ne
Сообщений: 8027
Оценки: 350
Присоединился: 2005-09-11 06:38:05
|
quote:
—————-<BR>Цитата: Дата:02.12.2005 20:38:55, Автор:Вождь :: пить за мое здоровье ты будешь недельки через 2, я как раз тогда буду атдыхать в рианимацыи с многочисленными переломами и сотрясением Того_Что_Должно_Быть_Мозгом по случаю избиения предками, совершенно случайно увидевшими зачетку))) —————-
Ну блин… Чтоб они не сильно огорчались, хошь я им свою отсканирую и пришлю? :) Они тебя ещё по головке погладят))[sm=ban.gif]
|
|
|
Нужна помощь (Basic/Pascal) - 2005-12-03 16:30:02
|
|
|
Вождь
Сообщений: 559
Оценки: 0
Присоединился: 2005-11-09 17:45:39
|
Maslo, у тебя экзы летом, а у меня через 3 недели))) AdReNaL1Ne, давай! Не, сереьезно, мож поможет?:)
|
|
|
Нужна помощь (Basic/Pascal) - 2005-12-08 13:41:35
|
|
|
Вождь
Сообщений: 559
Оценки: 0
Присоединился: 2005-11-09 17:45:39
|
Так, народ!!! Кароче, полный ПЕСЕЦ (белый и пушистый). Кому интересно (кто-то там спрашивал), результаты олимпиады. Ваши старания даром не пропали… 1-е место) Гы, а первую задачку я сама написала, мне даже никто не помогал)) Ну так вот… В понедельник я и исчо 3 самоубийцы чешем на область… З.Ы. А размер белых тапок у меня 37-й… З.Ы.Ы. И все равно всем спасибо)) Надеюсь теперь уже сама все напишу))
|
|
|
|
|