Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
PAUK-NET.RU - Бесплатный ADSL портал Чувашии _ Прикладное программирование _ Программирование Turbo Pascal 7 и Delphi 7
Автор: DAN Aug 24 2005, 14:35
Можете сдесь задавать свои вопросы по этой теме.
Автор: Vertigo Nov 13 2005, 16:26
DAN у тебя не фтп есть турбопаскаль?Нужен прям седня!!! 
Автор: DAN Nov 13 2005, 17:05
Есть TP7
Автор: Vertigo Nov 13 2005, 18:13
А кокой адрес скажи плз я скачаю
Автор: SiMM Nov 13 2005, 21:26
Ни одна досовская программа не требует инсталляции Максимум - требуется настройка.
Автор: Vertigo Nov 13 2005, 21:29
Ни одна досовская программа не требует инсталляции Максимум - требуется настройка.Гы
А как мне всю папку выкачать?
Автор: SiMM Nov 13 2005, 21:45
Автор: DAN Nov 13 2005, 21:46
А как мне всю папку выкачать?Так то по этому вопросу уже есть тема. Но прога в моем варианте весит 11 мб - можно тем же тотал командером воспользоваться. Я ее копирнул у одного, потому что в ней графика работает. Еще есть установленный с моего диска ТП в 25 мб - но там я чето не смог настроить графику.
Автор: Vertigo Nov 13 2005, 22:00
Фсе пасип Totalom уже качаю
Автор: FEDERAL Nov 21 2005, 21:38
Нужен сам Турбо паскаль+книга+все нах все FAки которые есть)))
олимпиада на носу них не знаю!!! 
Автор: AndrewDragon Nov 21 2005, 22:07
гыгы, я тож участвую, тока в Новчике
ты раньше воопче чтоль не программил? )
Автор: FEDERAL Nov 21 2005, 22:45
ты раньше воопче чтоль не программил? )
программил... до программился комне в хату с отдела к пришли... благо брат там прикрыл!
)) чат один ипанул ))) 
Автор: DAN Nov 22 2005, 09:05
олимпиада на носу них не знаю!!!
Есть и ТП и учебник - тока это тебе мало чем поможет%) Насколько я знаю студенческие олимпиады сложнее чем школьные
Автор: FEDERAL Nov 24 2005, 20:37
можешь на ФТП скинуть... ))))
мне хоть в глаза посмотреть!
Автор: DAN Nov 24 2005, 21:33
держи
213.24.106.78
там папки TP7 и TP Book
Автор: JoNy202 Nov 24 2005, 23:10
мне хоть в глаза посмотреть!
Вот такие програмеры и пишут Windows ггг шутка
Автор: FEDERAL Nov 25 2005, 17:23
я не отец я только учусь )
Автор: DAN Nov 28 2005, 20:36
FEDERAL, а ты случайно не 18 декабря участвуешь в здании РЛИ (бывшего чувашско-турецкого)? А то есть подозрения, что, поскольку у нас студенческие олимпиады отсутствуют вообще, мы будем вместе соревноваться: и школьники, и студенты, чтобы вам, студентам, показать Кузькину мать 
Автор: DAN Nov 29 2005, 20:22
Так те нужно или нет?
Автор: FEDERAL Dec 6 2005, 21:25
уже слил да 18декабря
вообщем Жопа мне я один от нашей 15школы )) ][ы
Автор: Папа Саня (DEN) Dec 6 2005, 21:31
вообщем Жопа мне я один от нашей 15школы )) ][ыты школьник шоли? я думал студент
Автор: FEDERAL Dec 6 2005, 21:34
)) да из 15школы блин а ты поверил!
Автор: Ea*Rais! Dec 10 2005, 12:40
один хрен ниче не знал. Короче сел умного себя сделал. Через мин 10 один вышел вслед за ним 2-ой вышел и так дальше. И остались мы человек 8, а потом я встал пля и ушел. Ваще полный ЛОЛ. Я думаю Federal и DAN остануться в двоем. А скока всего будет человек??? там компов 20 максимум. НЕ знай может еще завезли.
Автор: Папа Саня (DEN) Dec 10 2005, 15:24
один хрен ниче не знал. Короче сел умного себя сделал. Через мин 10 один вышел вслед за ним 2-ой вышел и так дальше. И остались мы человек 8, а потом я встал пля и ушел. Ваще полный ЛОЛ. Я думаю Federal и DAN остануться в двоем. А скока всего будет человек??? там компов 20 максимум. НЕ знай может еще завезли.
Тама 2 кабинета с компами. Скорее всего Федерал уйдет одним из первых
Автор: Папа Саня (DEN) Dec 10 2005, 15:51
Да, там кстати команда из 3 чел нужна - это официально то районная командная олимпиада, хотя фактически это даже чуть больше чем городская - даже из Йошкар-Олы команда собирается приехать - у них то с этим делом все еще более дохло чем у нас
Автор: FEDERAL Dec 10 2005, 23:17
ага я приду с хардкилом на флехе
) такое им устрою
)
Автор: Папа Саня (DEN) Dec 11 2005, 19:04
) такое им устрою
)Я ж тебе говорил, что там юзать внешние электронные носители запрещено и спереди нету юсб входа - или тебе пофигу и ты уже продумал план?
Автор: FEDERAL Dec 11 2005, 19:24
мне пофик прорвемся
)))) ты их отвлекаешь я работаю
Автор: Папа Саня (DEN) Dec 11 2005, 19:43
)))) ты их отвлекаешь я работаю ггг хрен дождешься
Автор: FEDERAL Dec 12 2005, 21:31
ну и ладно
Автор: Nemo Mar 9 2006, 21:25
Ну! Кто победил на той олимпиаде то? А?
Автор: DAN Mar 9 2006, 22:33
ФЕДЕРАЛ вообще не пришел. Я его недавно на городской личной видел, но там он походу сразу после теоретического тура ушел
Автор: Nemo Mar 9 2006, 22:35
Ну а ты сам то как? Может расскажешь опчественности про эту Алимпиаду
Какие задания были? Выложи сюда.
Автор: DAN Mar 9 2006, 22:59
Какие задания были? Выложи сюда.
не помню я уже ее
всякие уже прошли: районные и городские, командные и личные. На республиканской командной наша 44-я 2-е абсолютное взяла, 1 - РЛИ гады. Какие-то рейтинговые проводятся неофициальные под спонсорством Эльдорадо, Букета Чувашии (лол). В Кирове получили 2 степень, на России в Питере не хватило 1 задачи чтоб взять диплом 3 степени (это вообще ужас - щас бы ато посчет институтов вообще не парился, итак бы взяли куда захотел), вон на этих выходных в Казань едем, на следующих республиканская личная будет
задачи бывают наподобие таких
Условия.rar ( 18.89 килобайт )
: 59Автор: Urus Mar 23 2006, 09:11
Dan делаешь за бабки или нет?
Как, если что с тобой договориться 
Автор: DAN Mar 23 2006, 13:54
Как, если что с тобой договориться
нет, не за бабки делаю, а только если умею
я лишь алгоритмы составлять могу, полноценые проги - это не по моей части)
Автор: Gobbs Mar 23 2006, 21:08
я лишь алгоритмы составлять могу, полноценые проги - это не по моей части)мона обратиться ко мне могу сделать и алгоритм и прогу накатать
просто так, конечно.
Автор: Nadir May 3 2006, 12:23
Borland Delphi 6 Enterprise Edition... мож у кого завалялся?
Автор: DAN May 3 2006, 18:16
ээ а зачем тебе 6?
Автор: Nadir May 4 2006, 12:25
Просто у меня больше инфы на 6, чем на 7 или тем более 8.
Автор: DAN May 4 2006, 13:29
нашел проблему) электронных учебников полно, хотя я не знаю, может если цели у тебя не слишком грандтозные то наверно и 6 пойдет
Автор: Nadir May 4 2006, 14:12
Как бы не получилось ремонтировать ВАЗ 2109 по инструкции на ВАЗ 2106..., а что много вкусностей добавлено в 7?
Автор: SiMM May 4 2006, 15:32
Автор: Nadir May 5 2006, 06:43
Мож кто поделится софтиной?.. С внешнего качать много и ненай чево с ентого выйдет.
Автор: DAN May 5 2006, 14:37
есть 7 версия
Автор: Nadir May 5 2006, 15:01
Спасибо. Откуда качать?
Автор: DAN May 5 2006, 15:15
http://pauk.net.ru/ipb/index.php?showtopic=1928
Автор: Nadir May 5 2006, 16:58
Нашел. Благодарю.
Автор: G1UK May 24 2006, 18:11
Вообще, если такой вопрос поднялся, 6 лучше чем 7...
В палитре компанентов есть ClientSocket и ServerSocket, а в 7 нету...
Автор: Lenin Jul 12 2006, 09:46
У меня тут в одной программе(написана конечно на паскале) нужно из файла передать на экран текст .
Но получается так , что английский алфавит выходит провально , а когда доходит до русского то выводит бог знает что. Мож кто нить поможет
Я тут выложил код проги.....
LENIN.rar ( 822 байт )
: 9
Автор: DAN Jul 12 2006, 10:18
|
вся проблема в том что когда смотришь и записываешь через Винду он все делает по 1 кодировке, а когда паскаль выводит на экран он использует 2 кодировку, т.е. при выводе на экран надо смещать коды с учетом таблицы
Автор: DAN Jul 12 2006, 10:38
хотя есть одна неточность - в 1 таблице А-я должны быть не 176-239, а 192-255
Автор: DAN Jul 12 2006, 11:15
короче там где ты выводишь очередной символ добавь эти строчки
if (Ord(str[i])>=240) and (Ord(str[i])<=255) then str[i]:=Chr(Ord(str[i])-16);
но только при открытии блокнотом выходной файл естественно некорректно будет отображаться зато на экране паскаля все нормально должно быть
Автор: Lenin Jul 12 2006, 11:22
А в винде какие коды для а-я и А-я ?(только именно в винде)
Автор: DAN Jul 12 2006, 11:26
А-Я: 192-223
а-я: 224-255
Автор: Lenin Jul 12 2006, 11:57
запахала гадина , спасиба DAN очень выручил
Автор: Lenin Jul 17 2006, 11:04
мне тут ешо одну программку написать нужно , но в ней требуется вывести файл на печать(т.е. на принтер) , я пробовал добавлять в прогу:
Uses Printer;
....
begin
writeln (LST, '......')
end.
но выводится ошибка Error 105: File not open for output , другими словами файл не отррывается на запись ,
Мож у кого нить процедурка или функция какая нить для примера есть , срочно нужно!!!!!
Автор: DAN Jul 17 2006, 12:55
Никогда не пробовал но попробуй обращаться с LST как с обычным файлом. Там может быть
Assign(output,LST);
Rewrite(output);
Автор: Nikolaevich aka SpektR Jul 21 2006, 17:13
а у тебя модуль сам то есть?
Автор: Nikolaevich aka SpektR Jul 21 2006, 17:28
да и не будет наверное паскаль с новыми притерами работать, если только с матричными и лазерными некоторыми
Автор: Amp Aug 25 2006, 22:52
if (Ord(str[i])>=240) and (Ord(str[i])<=255) then str[i]:=Chr(Ord(str[i])-16);
В плюс к этому писал у себя ещё 2 условия:
if(t==184) lit = 241;
Автор: Gobbs Aug 25 2006, 23:15
if(t==184) lit = 241;
тока они у тебя не написаны на паскале. Это на сиподобном языке ты написал-си, ява...
На Паскаль несложно переделать:
if t=184 then lit: = 241;
Автор: Amp Aug 27 2006, 14:12
Господь с вами.. а разницы-то..
Тут дело не в языке, а в алгоритме
Автор: Gobbs Aug 27 2006, 15:28
Тут дело не в языке, а в алгоритме
хех, вообще есть стандарты изложения алгоритмов. Давайте не будем писать в теме "про бейсик кодом ассемблера".
Программирование-это одна точность.
Не стоит делать из этого кашу.
Автор: SiMM Aug 27 2006, 16:15
Автор: Gobbs Aug 27 2006, 16:24
Если всё понятно-конечно нет разницы как писать. Но для тех, кто не изучал си, а только паскаль, синтаксис языка си несовсем понятен, могу это точно сказать по многим моим знакомым. Я это к тому, чтобы в теме про паскаль писать код паскаля, а не что-то другое, чтобы не возникало лишних ворпосов. По-моему, это логично и практично.
Автор: SiMM Aug 27 2006, 16:27
Автор: Gobbs Aug 27 2006, 16:36
Логично, но не практично
Автор: Amp Aug 27 2006, 19:01
Если человек не может понять элементарнейших конструкций сишного синтаксиса (заметь, никаких специфических конструкций типа операций взятия адреса, разыменования и т.п. не было), то он весьма ограничен в своих знаниях...
Может у меня такой алгоритмический язык?м?
З.Ы.Давайте жить дружно
Автор: Gobbs Aug 27 2006, 19:08
Всяко бывает
Автор: Ireul Oct 9 2006, 16:49
Вот такие вот темы всегда вызывают у меня саркастическую улыбку до ушей.
Прежде всего меня радует что ретрограды программирования (более известные как Делфушники или Графоманы Кодинга и Прочие Мазохисты) называют себя программерами. Вы прогЛамера, детки. По современным тенденциям рынка даже AutoLISP востребован больше, чем прогЛамер Делфоидный... не верите - найдите любой IT-Recruitment сайтик, уже даже неважно отечественный, али забугорный. Там таких не как я, с ламерами, а вообще с шимпанзе сравнивают... Смотрите сами, короче....
И дело тут, представьте себе, даже не в синтаксисе. Дело в подходе. Иногда беру почитать свеженький Хакер - журнал с приходом Криса сейчас освобождается от оплота делфушнков - но раньше там были такие, например, статьи как "Делфи всемогущий". До сих пор помню как я офигевал КАКИЕ извращения(прочтите эту статью! Многие из вас хотя бы поймут что они даже прогламеры ниочёмные!) необходимы чтобы сработать на делфе драйвер или системную тулзу. И кто-то ведь этим занимался! Сейчас, слава богу, ошибки учтены, и журнал не принимает ваше вырождающееся племя всерьёз.
В общем ребята, хватит уже фигнёй страдать. Для чего всё время создаются таки темы? Для студентов? Если он не может сам осилить древний кал по кличке пас(история его рождения была прозаичной - как-нибудь кратко изложу) - он ошибся с профессией. Для специалистов? Специалистам всерьёз не подумают что этот кал на что-то годен. Для юзеров и чайников? Или может ламеров? Даже не смешно. Им это не поможет....
Вердикт: долой ниочёмные темы... или хотя бы называть надо не так, как будто это язык программирования, на котором люди работают...
Автор: Gobbs Oct 9 2006, 16:56
Хех, развёл тут. Это не специализированный форум программеров-это общий форум. Нужен типовой-иди ищи в инете.
Автор: DRAFARD Oct 9 2006, 19:12
если надо то
ftp://89.151.145.8/INSTALL/%D3%D7%C5%C1%CD%C8%CA%C8/TP7/BIN/
Автор: SiMM Oct 14 2006, 19:51
Автор: sam0rez Nov 12 2006, 20:43
Ну развел понимаешь демогогию. Я когда-то тож с Паскаля начинал.. потом Delphi, сейчас и уже давно C++. Однако процентов 30 проектов до сих пор в Delphi пишу (быстрее и эффективней получается). И насчет работы ты это зря, огромное количество людей пишут на Delphi создавая реальные рабочие и восстребованые приложения. С другой стороны такое отношение мне немного понятно, сам непереношу VB-шников, но сравнить VB и Delphi язык не поворачивается. А по своему опыту могу сказать что на delphi(вернее object pascal-е) писать гораздо приятней чем на си.
Автор: Amp Nov 12 2006, 21:21
В чем же эта "приятность" выражается? Меня, скажем, выворачивает от паскалевского синтаксиса.. эти begin/end.. а когда они вложены и их много
) ууу.. ) какая картина!
Автор: GerVin Nov 13 2006, 10:51
Давайте не будем сориться и все дружно перейдем на .NET
Автор: Sandro Dec 20 2006, 08:14
программа нажна..на паскале
значения заданных переменных a,b и с переспределить таким образом что a,b и с станут соответственно наименьшим,срелним и наибольшим значениями.
воть,нужно составить програму,как сказал,на паскале...
пожалуйста
Автор: Gobbs Dec 20 2006, 11:02
значения заданных переменных a,b и с переспределить таким образом что a,b и с станут соответственно наименьшим,срелним и наибольшим значениями.
воть,нужно составить програму,как сказал,на паскале...
пожалуйста
uses crt;
const a_count=3;
var a:array[1..a_count] of byte;
temp,i,k:byte;
begin
clrscr;
for i:=1 to sizeof(a) do
begin
write('vvedite chislo # ',i,' -->');
readln(a[i]);
end;
for i:=1 to sizeof(a)-1 do
for k:=1 to sizeof(a)-1 do
if(a[k]>a[k+1])then
begin
temp:=a[k];
a[k]:=a[k+1];
a[k+1]:=temp;
end;
writeln('poluchili upor-ii massiv');
for i:=1 to sizeof(a) do
writeln(i,'-oe chislo-->',a[i]);
readkey;
end.
Автор: Sandro Dec 20 2006, 17:20
спасибо ток не все понятно можно попроще?мало я знаю в паскале...очень мало
но все равно спасибо
Автор: Gobbs Dec 20 2006, 19:05
Как раз появился повод узнать больше. Берёшь книгу в руки и вперёд! Будут какие-то непонятки, думаю, добрые люди помогут.
Автор: Sandro Jan 18 2007, 07:42
1)составить программу нахождения суммы двух чисел А & B(-100000000<=A, B<=100000000)
2)дана последовательность из N чисел в диапозоне -3200 до 3200.(1<=N<=10000), Вывести эту последовательность в обратном порядке(развернуть массив).
(входные данные: в первой строке ввести число N
во второй строке ввести N чисел через один или несколько пробелов)
(входные данные)10 (выходные данные)
1 2 3 4 5 6 7 8 9 10 10 9 8 7 6 5 4 3 2 1
3)дан массив из N чисел в диапозоне от -32000 до 32000.(1<=N<=10000). отсортировать элементы данного массива по возрастанию
(входные данные: в первой строке ввести число N
во второй строке ввести N чисел через один или несколько пробелов)
(входные данные)10 (выходные данные)
10 9 8 7 6 5 4 3 2 1 1 2 3 4 5 6 7 8 9 10
Автор: SiMM Jan 18 2007, 08:01
Автор: Sandro Jan 18 2007, 10:21
а остальные програмы?
ps заходил в тему и думал что симм меня обгадит
Автор: SiMM Jan 18 2007, 10:31
Автор: Amp Jan 18 2007, 11:32
Вопрос и паскалю-то слабое отношение имеет.
Посиди, поразмышляй, авось за вечер сварганишь программки ) Самому же на пользу пойдет
Автор: Gobbs Jan 18 2007, 13:00
(входные данные: в первой строке ввести число N
во второй строке ввести N чисел через один или несколько пробелов)
(входные данные)10 (выходные данные)
10 9 8 7 6 5 4 3 2 1 1 2 3 4 5 6 7 8 9 10
Алгоритм данной задачи был выложен мною в 79-ом посте данного топика.
Автор: Gobbs Jan 18 2007, 13:34
(входные данные: в первой строке ввести число N
во второй строке ввести N чисел через один или несколько пробелов)
(входные данные)10 (выходные данные)
1 2 3 4 5 6 7 8 9 10 10 9 8 7 6 5 4 3 2 1
uses crt;
const max=10000;
var c:array[1..max] of integer;
n,i:integer;
begin
clrscr;
repeat;
write('vvedite kol-vo el-ov-->');
readln(n);
if(n>max)then writeln('vvedeno N>MAX');
until(n<max);
write('zapolnite massiv->');
for i:=1 to n do
repeat;
read(c[i]);
until((c[i]>-3200) and (c[i]<3200));
writeln;
write('vivod massiva v obratnom poriadke-->');
for i:=n downto 1 do
write(c[i],' ');
end.
Автор: Sandro Jan 18 2007, 13:43
Посиди, поразмышляй, авось за вечер сварганишь программки
) Самому же на пользу пойдетпервый учебный год паскаля,и то не все уроки были
for Simm кому как,по себе людей не суди уж
Автор: Amp Jan 18 2007, 13:52
Зачем оправдываться?
)Если за тебя будут программировать алгоритмы (в данном случае типовые) ты вообще не получишь полезных знаний из предмета.
Практика показала:
Напишешь человеку лабу - разумеется он пытается ее понять. Но так как в голове отсутствуют элементарные знания, то понятие приходит очень и очень туго. В конце концов он пытается уже не понять, а вызубрить. Т.е. как бы выучить наизусть что, где и как.
В итоге, на защите, лишний вопрос, шаг в сторону - и человек уже лыка не вяжет.
Автор: Gobbs Jan 18 2007, 13:55
Напишешь человеку лабу - разумеется он пытается ее понять. Но так как в голове отсутствуют элементарные знания, то понятие приходит очень и очень туго. В конце концов он пытается уже не понять, а вызубрить. Т.е. как бы выучить наизусть что, где и как.
В итоге, на защите, лишний вопрос, шаг в сторону - и человек уже лыка не вяжет.
нет практики без теории, теорию надо обязательно закреплять на практике. Без этого никак.
Автор: CBAPOr Feb 18 2007, 20:13
Мне интересно, может кто-нибудь намутить программку типа "Кто хочет стать миллионером"?
Автор: Gobbs Feb 18 2007, 21:13
был бы стимул да желание
Автор: Temp1ar May 28 2007, 09:07
Подскажите пожалуйста, как понимать данный синтаксис:
if (hexvar and $01)<>0 then d1:=1 else d1:=2;
if (hexvar and $02)<>0 then d2:=1 else d2:=2;
if (hexvar and $04)<>0 then d3:=1 else d3:=2;
Как понять последние 3 строчки? Когда True, а когда False?
Автор: SiMM May 28 2007, 09:40
Ну а в чём сложность то? Если при маскировании hexvar с 1 будет ненулевой результат (включен нулевой бит), то d1=1, иначе d1 = 2.
Аналогично и все остальные строки.
Автор: Temp1ar May 28 2007, 10:39
Аналогично и все остальные строки.
Как производится это маскирование? Нельзя ли переделать как-нибудь это условие? Например на PHP как бы оно выглядело?
Автор: SiMM May 28 2007, 11:38
http://ru.wikipedia.org/wiki/Логические_операции
http://php.net/language.operators.bitwise
Паскалевское AND - это сишное &, OR - сишное |.
PS: хотя... изврат на PHP мог бы выглядеть и так:
Автор: Temp1ar May 28 2007, 13:30
Так?
if (($hexvar & hexdec('01'))<>0) {$d1=1;} else {$d1=2;}
Автор: SiMM May 28 2007, 14:24
Да,
[offtopic]
только непонятен смысл использования второго hexdec, поскольку целочисленные шестнадцатеричные и восьмеричные константы в PHP можно писать и без использования функций. Да и десятичные <10 от шестнадцатеричных значением не отличаются.
http://php.net/language.types.integer
[/offtopic]
Автор: Temp1ar May 28 2007, 16:15
[offtopic]
только непонятен смысл использования второго hexdec, поскольку целочисленные шестнадцатеричные и восьмеричные константы в PHP можно писать и без использования функций. Да и десятичные <10 от шестнадцатеричных значением не отличаются.
http://php.net/language.types.integer
[/offtopic]
Ну там не только до 10, ну вообщем смысл понятен 0x01, спасибо.
Автор: DaviN Jun 7 2007, 14:32
такой вопрос по делфи.. у самого уже мозги кипят думать не могу..
имеется два массива v[i], d[i] отсортированные по возрастанию, где v высота и d длина кирпича..
надо изобразить на форме или image эти кирпичи так чтобы один стоял на другом..
типа того что на картинке.. можо использовать rectangle или с помошью линий..
Автор: Amp Jun 8 2007, 12:41
Нужно чтобы кирпичи образовывали пирамидку? Т.е. в порядке убывания ширины основания друг на друга ложились?
One moment - как определяется принадлежность v и d для некоторого кирпича, если массивы отсортированы?
Автор: XpoHuK Jun 10 2007, 11:50
имеется два массива v[i], d[i] отсортированные по возрастанию, где v высота и d длина кирпича..
надо изобразить на форме или image эти кирпичи так чтобы один стоял на другом..
типа того что на картинке.. можо использовать rectangle или с помошью линий..
Допустим v[3,5,7,8] (высота) d[9,1,4,2] (длина), значит первый кирпичь имеет размер 3х9, но после сортироски получится 3х1 - а это уже не соопветствут введенному.
Если посмотреть на твой рисунок то кирпичи у тебя стоят по убыванию длинны их основания. Если я все правильно понимаю, то можно просто находить во 2-ом массиве мах елемент и начиная с него , ссылаясть на соответствующий номер элемента , выстраивать эти кирпичи, в порядке убывания длинны.
Автор: Lady_Melamory Jun 14 2007, 22:50
Здравствуйте. Вообщем написала на паскале.
Переделать, думаю, легко будет...
program kirpich;
uses crt, graph;
var c:array[1..3] of integer;
d:array[1..3] of integer;
i,y,cd,m:integer;
begin
readkey;
clrscr;
cd:=0; m:=0;
c[1]:=10;c[2]:=20;c[3]:=30;
d[1]:=15;d[2]:=25;d[3]:=35;
Initgraph(cd,m,'c:\bp\bgi');
y:=200;
For i:=3 downto 1 do
begin
y:=y-c[i];
rectangle(100,y,100+d[i],y+c[i]);
end;
readkey;
end.
Автор: Lady_Melamory Jun 14 2007, 22:56
Это конечно если массивы уже отсортированы. Если же нет, то
просто сортируем любым методом. Если надо могу написать.
Автор: DaviN Jun 15 2007, 19:23
Всем спасибо.. Подкинули идею, осилил сам..
выглядит вот так..
вобще условие было.. если кому интересно:
|
Автор: Amp Jun 15 2007, 19:53
А в задании что-то не говорится про то, что это надо рисовать ))
Автор: DaviN Jun 15 2007, 20:04
аха.. но препод сказал, что без картинок не понятно..не принял, пришлось рисовать..
Автор: APTEM(rus) Aug 16 2007, 15:26
Мне нужно перехватить API-функцию "connect()".
Автор: Amp Aug 16 2007, 18:41
Первое, что бросается в глаза - http://rsdn.ru/article/baseserv/IntercetionAPI.xml
На wasm-е еще материалы есть.
Автор: Rock Sep 15 2007, 12:19
Нужно написать прогу на паскале. Условия: дана координатная плоскость, часть которой заштрихована. Эта часть ограничена тремя линиями:
окружность (x*x +y*y=1),
X<0,2
Y<0
Ввод - координаты точки X и Y, вывод - значение булевской переменной. Также необходимо включить в программу операторы вывода, контролирующие написать ничего лучше, чем
var
x,y :integer;
K:boolean;
begin
write ('Vvedite x u y 4erez probel');
readln (x, y);
if (x*x+y*y<1)
then begin
if (x<0)
then begin
if (y<0) then K:=true
else K:=false
end;
end;
end.
Спасибо за ранее!!!
Автор: Amp Sep 15 2007, 13:22
Так понимаю, проверить принадлежность точки заданной области?
begin
readln(x, y);
if((x*x+y*y<=1) and (x<0.2) and (y<0)) then write('true') else write('false');
readln;
end.
Автор: Daniilka Sep 15 2007, 14:48
окружность (x*x +y*y=1),
X<0,2
Y<0
Ввод - координаты точки X и Y, вывод - значение булевской переменной. Также необходимо включить в программу операторы вывода, контролирующие написать ничего лучше, чем
var
x,y :integer;
K:boolean;
begin
write ('Vvedite x u y 4erez probel');
readln (x, y);
if (x*x+y*y<1)
then begin
if (x<0)
then begin
if (y<0) then K:=true
else K:=false
end;
end;
end.
Спасибо за ранее!!!
А ты Ctrl+F9 нажимать не пробовал?
Автор: Daniilka Sep 15 2007, 14:51
И если не поставишь перед "end." нечто типа "readln;" как то сделано у Amp'a ... то попробуй еще потыкать Alt+F5 после выполнения программы.
В программе ошибок нет.
Автор: Amp Sep 15 2007, 15:06
Первая ошибка программы - использование зачем-то целого типа.
Автор: Rock Sep 15 2007, 16:15
Подскажите, почему при запуске программы или компиляции выходит следующее сообщение:
А как включить в программу операторы ввода, контролирующий порядок выполнения условных операторов, чтобы он выводил номер ветви алгоритма?
Amp, спасибо большое!! А можно ли написать эту же программу, но чтобы операторы решения содержали только одно условие (не использовать булевые операции OR, AND)?
Автор: Amp Sep 15 2007, 16:22
Что представляет собой твой диск F?
Автор: Rock Sep 15 2007, 16:29
Диск F у меня - виртуальный дисковод алкоголя, на который ничего не смонтировано, че паскаль от него хочет.. - хз.. может у того, у кого я паскаль скачал, на диске F чет было?
Автор: Daniilka Sep 15 2007, 16:54
Потыкай меню. Там должен быть пункт Directopries. Возможно там у тебя прописаны ссылки на диск F.
Это пути к служебным модулям и т.п.
Автор: Daniilka Sep 15 2007, 17:20
Давай уж сразу напрямки: "Не выпедривайся, салага." Нечего нас разгильдяев жалеть.
var
x,y :real;
K:boolean;
begin
k:=false;
write ('Vvedite x u y 4erez probel');
readln (x, y);
Write('1. Proverka x*x +y*y=1 : ')
if (x*x+y*y<1)
then begin
Writeln('true'); //Resultat 1-ei proverki
Write('2. Proverka x<0.2 : ');
if (x<0.2)
then begin
Writeln('true'); //Resultat 2-ei proverki
Write('3. Proverka y<0 : ');
if (y<0) then
begin
Writeln('true'); //Resultat 3-ei proverki
K:=true
end
else Writeln('false'); //Resultat 3-ei proverki
end
else Writeln('false'); //Resultat 2-ei proverki
end
else Writeln('false'); //Resultat 1-ei proverki
Writeln(k); // Itogovyi resultat
Readln;
end.
Если мне не изменяет память и внимательность.
Автор: Amp Sep 15 2007, 17:56
Симаков(а это лабы по его курсу) точно не пожалеет. Зачем писать все? Пусть человек сам посидит и повозится. Ему же больше пользы.
Автор: SiMM Sep 16 2007, 15:08
Автор: Daniilka Sep 17 2007, 17:37
Автор: Bjorndalen Sep 17 2007, 19:43
Автор: mix Sep 19 2007, 18:47
Если это задачки с первого курса факультета ИВТ, специальности ПО, то не можно, а нужно, по заданию, сделать как с использованием булевых операций, так и без. Разумеется количество условных операторов будет меняться.
Автор: Bjorndalen Sep 20 2007, 17:34
Может тогда скажешь непросвещённым умам, как это сделать, не используя OR и AND?
Автор: SiMM Sep 20 2007, 18:29
A OR B
action;
else if b then
action;
end;
if b then
action;
end;
end;
Автор: Bjorndalen Sep 20 2007, 18:41
A OR B
action;
else if b then
action;
end;
if b then
action;
end;
end;
Но ведь в таком случае получится не один условный оператор, а несколько
А в условии задачи говорится, что нужен один условный оператор и без использования OR и AND
Автор: Amp Sep 20 2007, 18:57
А в условии задачи говорится, что нужен один условный оператор и без использования OR и ANDПро количество условных операторов сказано не было. Была фраза "одно условие". Т.е. автор пытался сказать, что надо по одному элементарному условию на условный оператор )
Автор: Bjorndalen Sep 20 2007, 19:31
Что-то всё равно какая-то лажа получается, программа запускается, но выдаёт неправильные значения. Но в любом случае спасибо, не знал, что с if'ом можно так делать
Автор: Bjorndalen Sep 22 2007, 15:51
Народ, скажите пожалуйста, как с помощью Паскаля можно вычислить десятичный логарифм числа?
Автор: Amp Sep 22 2007, 15:58
log10() из юнита math
Автор: Bjorndalen Sep 22 2007, 17:10
То есть нужно писать примерно так?
uses math;
var...
Автор: Amp Sep 22 2007, 17:15
uses math;
var...
Да.
Автор: Bjorndalen Sep 22 2007, 17:30
Пишет, что нет такого файла - MATH.TPU... Другие способы не знаете? Просто, даже если такой файл будет у меня дома, то в универе такой файл вряд ли есть...
Автор: Amp Sep 22 2007, 17:35
Разложить логарифм в ряд.
P.S. Тут мне говорят, что в турбо паскале нет модуля math )) Тогда считай логарифм по основанию 10 через любой другой, какой там есть.
Автор: Bjorndalen Sep 22 2007, 17:46
P.S. Тут мне говорят, что в турбо паскале нет модуля math )) Тогда считай логарифм по основанию 10 через любой другой, какой там есть.
Спасибо, но вот насчёт ряда, как его раскладывать? В методичке разложены и синус, и косинус, и натуральный логарифм, а вот разложение десятичного нету...
Автор: xmm Sep 22 2007, 17:59
. Применяем ее и получаем десятичный логарифм.
Автор: Amp Sep 22 2007, 18:00
Логарифм по основанию 10 можно посчитать через натуральный логарифм. Математика, 10-ый класс.
Автор: Daniilka Sep 25 2007, 22:14
Она самая.... что-то типа: ln(x)/ln(10)
Автор: Daniilka Sep 25 2007, 22:16
А в условии задачи говорится, что нужен один условный оператор и без использования OR и ANDПрисвоить все в булинову переменную и уже ее без 'or' и 'and' пихнуть в IF.
ЗЫ: Вы вообще о чем, граждане?
Автор: Bjorndalen Oct 7 2007, 16:48
есть такой вопрос. Программа работает правильно, значение находит верно, оно совпадает с бибилотечной функцией, но при больших значениях n происходит переполнение памяти, как можно облегчить программу, чтобы она работала так же правильно? Диапазон допустимых значений входных данных таков: 1<x<1, 1=<n<=9
var slag,x, chisl, znam, arc, sum,bib : real;
n, i, z : integer;
begin
writeln('vvedite X and N');
readln(x,n);
if (x>=1) or (x<=-1) or (x=0) then writeln('Ukazannoe znachenie nedopustimo')
else begin
bib:=0;
sum := 0;
for i := 1 to n do
begin
arc := 0;
znam := 1;
slag := 0;
z := 1;
chisl:=x*i;
repeat
slag := (chisl * z) / znam;
arc := arc + slag;
chisl := chisl * x * x * i * i;
znam := znam + 2;
z := z * (-1);
until (abs(slag/arc) < 1e-10);
sum := sum + arc;
bib:=bib+arctan(x*i);
end;
writeln('iskomaya summa ravna ',sum:0:11);
writeln('bibliotechnaya funkcia ',bib:0:11);
end;
readln;
end.
Автор: MadDog.er Oct 7 2007, 22:50
var slag,x, chisl, znam, arc, sum,bib : real;
n, i, z : integer;
begin
writeln('vvedite X and N');
readln(x,n);
if (x>=1) or (x<=-1) or (x=0) then writeln('Ukazannoe znachenie nedopustimo')
else begin
bib:=0;
sum := 0;
for i := 1 to n do
begin
arc := 0;
znam := 1;
slag := 0;
z := 1;
chisl:=x*i;
repeat
slag := (chisl * z) / znam;
arc := arc + slag;
chisl := chisl * x * x * i * i;
znam := znam + 2;
z := z * (-1);
until (abs(slag/arc) < 1e-10);
sum := sum + arc;
bib:=bib+arctan(x*i);
end;
writeln('iskomaya summa ravna ',sum:0:11);
writeln('bibliotechnaya funkcia ',bib:0:11);
end;
readln;
end.
ну так а что ты хотел Real у нас диапазон от скольки до сколько?
/me думает такс гдето у мну была таблица со значениями типов
используй тип данных с большим диапозоном
Автор: Bjorndalen Oct 8 2007, 18:58
Позвольте спросить, а какой? Чтобы вещественный и большой диапазон, может longreal
Автор: pavel Oct 10 2007, 00:39
Автор: AlRunner Oct 10 2007, 21:58
Используй тип double!
Автор: pavel Oct 11 2007, 01:58
Автор: Sandro Oct 13 2007, 06:39
ну вот
а мне бы решение задачи этой в паскале.
Автор: Bjorndalen Oct 13 2007, 14:38
Может дело в большом количестве повторений циклов? В памяти не умещается....
Автор: pavel Oct 13 2007, 18:05
очень большое кол-во циклов (бесконечное) можно получить, задав значения X и N равными 1, будет ли переполнение в этом случае или программа просто "зависнет"?
Автор: Bjorndalen Oct 13 2007, 18:28
Программа зависла
Автор: AlRunner Oct 14 2007, 00:10
С какими входными данными она виснет? Что-то не желает оня у меня глючить, может она у тебя не глючит а просто ряд не сходится ну или долго не сходится?!
Автор: dimka999 Oct 14 2007, 01:08
а мне бы решение задачи этой в паскале.uses crt;
const m= 4; n= 3;
var a: array[1..4,1..3] of integer;
b: array[1..3] of real;
i,j: integer;
begin
clrscr;
randomize;
for i:= 1 to m do
begin
for j:= 1 to n do
begin
a[i,j]:= random(20) - 10;
write(a[i,j]:4);
end;
writeln;
end;
writeln;
for i:=1 to n do
begin
b[i]:=0;
for j:=1 to m do
b[i]:=b[i] + a[j,i];
b[i]:=b[i]/m;
write(b[i]:4:1,' ');
end;
readln;
end.
Автор: Bjorndalen Oct 14 2007, 12:25
Читай цитату, на которую я ответил - программа зависла при входных данных 1 и 1
А вообще, программа работает, только не может оперировать большими числами, появляется ошибка 205: "Floating point overflow"
Автор: SiMM Oct 14 2007, 12:55
Автор: Bjorndalen Oct 14 2007, 13:59
Да это всё понятно, но вот если например взять x=0.9 и n=3, то произойдёт ошибка переполнения с плавающей точкой... есть ещё предположение, что сама программа несовершенна, может быть можно её как-то упростить, чтобы памяти меньше занимала?
Автор: AndrewDragon Oct 20 2007, 18:29
bib:=bib+arctan(x*i);
writeln('bibliotechnaya funkcia ',bib:0:11);
замени просто на
потом
z := z * (-1);
замени на
это так...для экономии чего-нибудь)))
Автор: Bjorndalen Oct 20 2007, 20:29
z := z * (-1);
замени на
это так...для экономии чего-нибудь)))
Эту операцию я выполнял, но почему-то результат выполнения программы не сошёлся с данными библиотечной функции
Автор: Sandro Nov 20 2007, 21:37
1)перевод введенного числа в двоичную(или в 8,16 ричную) систему счисления
2)в римскую систему
примерно понимаю что в цикле, массив. но хз как.
Автор: Gobbs Nov 20 2007, 22:59
2)в римскую систему
примерно понимаю что в цикле, массив. но хз как.
http://forum.sources.ru/index.php?showtopic=42165
Автор: ypod Nov 28 2007, 21:28
Помогите плз решить зада4ки
1) Дана не пустая последовательность символов, требуется построить и напечатать множество элементами ктоторого являются знаки операций отноошения
2) Даны 2 конечных множества А и В элементами которых могут быть любые целые числа от 1 до 30, найти прямое произведение этих множеств и вывести его на экран
3)Дана строка символов. Заменить в данной строке каждую группу букв child на группу букв чилдрен children
4) обработать на эвм массив Z(30) . Расположить в массиве R сна4ала положительные патом отрицательные элементы массива Z
5) Вычислить зна4ения функции Y=SinX если X изменяется от Х0 до Хk с шагом h
Заранее спасиба =) и еси можна то выкладывайте с блоксхемами
Автор: Amp Nov 28 2007, 22:39
Mind Map-ов c UML-ками и выкладками "мозгового штурма" не надо?
Автор: AleksXP Dec 1 2007, 01:55
скиньте у кого есть инфа по этой проге (операторы, описания...) а лучше шпоры...
заранее благодарен
Автор: ypod Dec 6 2007, 15:44
1) Дана не пустая последовательность символов, требуется построить и напечатать множество элементами ктоторого являются знаки операций отноошения
2) Даны 2 конечных множества А и В элементами которых могут быть любые целые числа от 1 до 30, найти прямое произведение этих множеств и вывести его на экран
3)Дана строка символов. Заменить в данной строке каждую группу букв child на группу букв чилдрен children
4) обработать на эвм массив Z(30) . Расположить в массиве R сна4ала положительные патом отрицательные элементы массива Z
5) Вычислить зна4ения функции Y=SinX если X изменяется от Х0 до Хk с шагом h
Заранее спасиба =)
народ плз помогите с мя пиво если 4е
Автор: 41ter0k Dec 23 2007, 00:15
кто нить может выложить готовый файл сделанный через Pascal где в определёное время на экране появляется сообщение !! типо компу пи....винда полетела...!!ну и т.д...!!помогите пож.сто..!!!(над братом хочу прикольнутся!)сообщение будет исчезать по нажанию определённых сочетаний клавиш!
Автор: account Dec 23 2007, 16:08
4iterok ,зайди на http://www.rjlsoftware.com/software/entertainment/ там полно подобных прог
Автор: Amp Dec 23 2007, 19:39
Причем тут паскаль?
Автор: artem69 Jan 5 2008, 10:06
Что означет "onestep" на паскале? Что это оператор, функция?
Автор: Gobbs Jan 5 2008, 12:17
Это может быть всё, что угодно. Выкладывайте текст программы. Или смотрите в help.
Автор: SiMM Jan 5 2008, 12:25
Зависит от контекста - переменная, тип, функция. Служебного слова такого нет.
Автор: rediska Jan 10 2008, 17:32
какие комады управляют LCP портом???
Автор: Amp Jan 10 2008, 18:56
подразумевался параллельный LPT?
Автор: rediska Jan 16 2008, 12:39
Да. И как им управлять (Delphy 7)?
Автор: Sandro Jan 17 2008, 15:34
Входной файл input.txt в первой строке содержит число N. Во второй строке расположены N чисел. Между числами один пробел.
Выходной файл output.txt содержит последовательность из N отсортированных по возрастанию чисел .
Пример входного и выходного файла
Input.txt Output.txt
10
1 2 3 4 5 -1 -2 -3 -4 -5 -1 -2 -3 -4 -5 1 2 3 4 5
Я могу решить эту задачу через массив(методом пузырька), но массив может быть из 10000 элементов, а надо миллион. Помогите пожалуйста. Как расширить массив, или кто предолжит другой способ?
Автор: SiMM Jan 17 2008, 16:30
Автор: Sandro Jan 17 2008, 16:34
Я процитировал задачу с дистанционной олимпиады(пробный тур). Скорее всего целые. Если речь идет о целых числах, то как решается задача?
Автор: SiMM Jan 17 2008, 16:44
Поломай голову - подсказку я уже дал. Куда полезнее догадаться самому, чем получить готовый ответ.
Автор: Sandro Jan 20 2008, 19:18
Что за модули? Подобие
Автор: SiMM Jan 20 2008, 20:44
Это не модули, это директивы компилятора. Находятся в хелпе. Для разбора программы можешь игнорировать.
Автор: Snowm@n Jan 31 2008, 11:07
{$E-} не эмулировать сопроцессор
{$Q-} не проверять переполнение целых типов
{$R-} не проверять выход за границы массивов
Автор: AleksXP Feb 2 2008, 13:43
Упорядочить массив по убыванию элементов первого столбца
"Ну пристрелите меня" ну незнаю я как эти массивы решатьььь. Хелп ми.
Автор: skiminoc Feb 3 2008, 23:05
В общих чертах решение может выглядеть примерно так:
1.Заводим 4-й столбик, который заполняем числами от 1 до 5, являющимися по сути исходными номерами строк массива.
2. Сортируем 1 столбик по убыванию, причём при каждой перестановке элементов делаем такую-же перестановку элементов дополнительного (индексного) столбика.
3.По окончании процесса переставляем элементы остальных столбиков по порядку номеров в индексном столбике.
Вариант:
Нахер дополнительный столбик. Тупо сортируем первый, каждый раз при перестановке его элементов аналогично переставляя элементы остальных столбиков.
Успехов!
Автор: skiminoc Feb 3 2008, 23:16
- очевидно подсказывающий имел в виду, что при большом количестве входных данных (теоретически - неограниченном) и ограниченном числе значений этих данных бывает проще пересчитать, сколько раз каждое значение встретится во входном потоке данных. Например, числа от -100 до 100 (и "0"!) могут принимать 201 значение. Тогда заполнив в процессе чтения входного файла 201 переменную количеством чтений каждого значения, можно на их основе сформировать выходной файл, содержащий указанные значения в строго отсортированном порядке.
Автор: Kumarr Feb 16 2008, 19:23
помогите плиз прогу в паскале написать: вычислить примерное значение бессконечной суммы с точностью е (эпсилон ~ 2.7183):
1/(1*3)+1/(2*4)+1/(3*5)+...+1/n(n+2)
(помогите хотя бы без эпслилона посчитать сумму)
Автор: skiminoc Apr 14 2008, 08:25
Кто знает?
Задача:
Треугольник Паскаля
1
1 1
1 2 1
1 3 3 1
1 4 6 4 1
1 5 10 10 5 1
.....................
и т.д., каждое число равно сумме чисел над ним.
Для первых рядов тоже справедливо, если положить крайние невидимые числа равны нулю.
найти число нечётных чисел в n-ной строке треугольника, n ограничено 2*10**9
Автор: skiminoc Apr 14 2008, 14:06
Аналог темы в форумах На-связи http://forum.na-svyazi.ru/index.php?act=findpost&pid=2478680
Автор: foxter Apr 17 2008, 17:04
Народ помогите плиз сделать прогу хоть на дельфи хоть на паскале.
Дана задача: Составить генератор случайных фраз.
Объясню на примере.
Вообщем дано 10 существительных, 10 глаголов, 10 прилагательных или типа того.
выбирается одно существительное, один глагол, одно прилагательное случайгым образом и выводиться на экран.
Вообщем-то всё. Помогите плиз
Автор: Дима81 Apr 17 2008, 17:45
Люди добрые помогите мне ПОЖАЛУЙСТА.
Лабораторная работа: "Программирование операции обработки двумерных массивов"
Задача: Включить вектор С(М) в качестве главной диагонали матрицы.
Спасибо.
Автор: cyBopoB May 5 2008, 17:14
Простите пожалуйста что я с такой пустячной темой, но без помощи мне не обойтись.У меня возникли небольшие проблемы с циклами вот задача:
Составить алгоритм, написать и отладить программу для решения задачи:
Ввести вещественное X и натуральное N. Найти значения функции Y:
Y = x + x3 + x5 + . . . +x2n-1
Я знаю что надо решить эту задачу с помощью цикла,но как, вот вопрос.
Автор: Sandro May 5 2008, 18:04
x3, x5-непонятно. x умноженное на 5, или чо?
Автор: Bjorndalen May 5 2008, 18:22
Наверняка, икс в степени 2n-1: икс в третьей, икс в пятой, икс в седьмой и т.д.
Автор: cyBopoB May 5 2008, 21:20
приношу свои извинения скопировал а отредактировать забыл
y=x+x^3+x^5.....+x^2n-1
Автор: Sandro May 6 2008, 06:50
while i<2*n do begin
y:=y+x^i;
i:=i+2; end;
Так чтоли?
Автор: Gobbs May 6 2008, 08:12
сам-то проверял на работоспособность, правильно будет сказать, этого клочка программы?
В Паскале нет оператора возведения в степень.
Автор: Sandro May 6 2008, 16:00
В Паскале нет оператора возведения в степень.Да я утром писал, что пришло в голову более или менее умное, то и написал ^^
Сейчас подумаем-с.
Автор: Brut47 May 6 2008, 16:55
uses Crt,GraphABC;
var
maxMj,i,j,N,C,l:integer;
x,r,a:real;
M:array[1..10000]of integer;
Begin
clrscr;
write('Vvedite N');
readln(N);
write('Vvedite chislo yacheek: ');
readln©;
randomize;
maxMj:=0;
a:=500/N;
setpencolor(clBLACK);
rectangle(8,38,512,62);
setbrushcolor(clGREEN);
for i:=1 to N do
begin
r:=random©;
x:=r;
for j:=1 to C do
begin
if x>j-1 then if x<=j then M[j]:=M[j]+1;
if M[j]>maxMj then maxMj:=M[j];
end;
rectangle(10,40,10+round(i*a),60);
end;
SetWindowCaption('Гистограмма нормального распределения');
SetwindowSize(600,600);
Setbrushcolor(clDARKGRAY);
l:=0;
for j:=1 to C do
begin
rectangle(round(l+630/5/C),480,round(l+630/C),round(480-400*M[j]/maxMj));
l:=l+round(630/C);
end;
readln;
End.
помогите плиз модифицировать программку
ато полный завал буит!!
нужен результат тот же самый... но саму прогу переписать надобы...
Автор: XIII May 21 2008, 17:50
модули к паскалю выложите пажалуста(все которые есть на тп7)
Автор: Диана Mar 22 2009, 21:44
Помогите решить хоть одну задачку...очень прошу вас, мне не на кого положиться, паук-единственная надежда...
Напишите программу реализации очередей с помощью указателей.
Напишите программу реализации множеств посредством связанных списков.
Напишите программу нахождения самого длинного простого пути от заданной вершины ориентированного графа.
Напишите программу реализации алгоритма умножения целых чисел методом декомпозиции.
Напишите программу, которая выводит динамическое изображение октаэдра, вращающегося вокруг заданной оси.
Автор: InFernal May 4 2009, 14:09
Со спутника-шпиона получено изображение в некотором волновом диапазоне сверхсекретной военной базы предполагаемого противника. База расположена на Антарктиде, все постройки на ней высечены из кубов льда и имеют на фотографии квадратную форму и не имеют общих фрагментов стен ненулевой длины (по всей видимости, это сделано в целях маскировки от локаторов, работающих в инфракрасном спектре). Благодаря мастерству операторов оказалось, что стены разных построек параллельны границам фотографии. Для того, чтобы составить сверхсрочный отчет для командования, необходимо узнать, сколько зданий находятся на базе. Напишите программу, которая это сделает.
Формат входного файла
В первой строке входного файла записаны числа пит (1 <= т, п <= 500) — размеры фотографии в пикселях по вертикали и по горизонтали. Следующие п строк содержат по т символов каждая: символ '.' соответствует пустому месту, '#' — элементу постройки.
Формат выходного файла
В выходной файл выведите единственное число — количество построек на базе.
Примеры
input.txt Output.txt
8 6
2
. . . . . .
. . . # # .
. . . # # .
. . . . . .
. # # # . .
. # # # . .
. # # # . .
. . . . . .
Помогите кто нить =)
Форум Invision Power Board (http://nulled.cc)
© Invision Power Services (http://nulled.cc)