91 ответов в этой теме

[GlebVt]

Так ты ещё и наркоман?!! biggrin.gif

ага
на интернетах торчу.

Ты знаешь, что все в этом мире наркотик? Кофе, чай, водка. Мы все наркоманы

это, кстати, тоже одна из любимейших фраз обозначенных выше наркоманчиков осторожнее

Это ты зря. Знаю людей, которые употребляя амфетамины потеряли бОльшую часть того, что имели, и не добились того, чего могли бы. Грустная правда sad.gif

тоже таких знаю, как минимум двоих.
виноваты в этом не вещества, а они сами. некоторые вещи, всё же, стоит воспринимать всерьёз

ну да ладно, тред не об этом.

написать программки что ли?..

[HooliGUN]

Это все очень мило, но что с первыми двумя задачами?
Я закрываюсь...

[GlebVt]

Это все очень мило, но что с первыми двумя задачами?
Я закрываюсь...

хрен с тобой, ща напишу.
если фрипаскаль заработает

[Malder]

это, кстати, тоже одна из любимейших фраз обозначенных выше наркоманчиков осторожнее

Не. любимая фраза наркоманов не признавать, что они наркоманы. А наркоманы все, кто пьет водку, курит сигареты, пьет кофе или чай.

хрен с тобой, ща напишу.
если фрипаскаль заработает

Давай. а мы покритикуем)

[SyntaT]

мне жарить попкорн или ещё 2 задачи решены не будут?)))

хрен с тобой, ща напишу.
если фрипаскаль заработает

хошь abc пришлю? в культурном вендаокне))
упд:
http://dump.ru/file/2738547

[Praximer]

жарь на всех!


а я пока что хауса досмотрю

[Resistor]

А наркоманы все, кто пьет водку, курит сигареты, пьет кофе или чай.

А ещё все кто пьют сок, лимонад, минералку, едят семечки, любят поперчить/посолить/налить соуса, пьют яйца, жрут витамины и т.д. и т.п.
Ну да, мы тут все тогда наркоманы.
З.Ы. Я хотел сказать: руки прочь от чая!

[SyntaT]

З.Ы. Я хотел сказать: руки прочь от чая!

и кофе тоже не трогать!!

[GlebVt]

хошь abc пришлю? в культурном вендаокне))

втф abc?

млядь! люди! тому кто придумал этот язык надо сто шурупов вкрутить.
такого ИДИОТСКОГО синтаксиса нету даже, по-моему, в бейсике!
это п-ц. на этом писать невозможно!!

первая порция быдлокода:

Program one;

const 
N = 10;

var 
i : integer;
elts : array [1..N] of integer;
is_asc : boolean;

begin
	for i := 1 to N do begin
		write('enter ', i, '-th element: ');
		readln(elts[i]);
	end;
	
	is_asc := true;
	
	for i := 1 to N do begin
		if (elts[i] = 0) then
			break;
			
		if ((i <> 1) and (elts[i] <= elts[i - 1])) then begin
			is_asc := false;
			break;
		end;
	end;
	
	if (is_asc = true) then 
		writeln('The sequence is ascending.')
	else 
		writeln('The sequence is not ascending.');
end.

не чо-то на вторую меня не хватает
6лядь на с ещё написал бы. на этом нет.
да и просто впадлу.
да ещё вчера игрульку прикупил, ща с женой буем рубиться
всем пока.

[Taciturn]

GlebVt

is_asc := true;

Зачем это? Почему не задать при объявлении?

if (is_asc = true)

Зачем это? Почему не просто

if (is_asc)

? If true = true как-то индийским кодом отдаёт.

Да и вообще, что это за говно такое? Нафига вообще эта переменная, нафига 2 цикла? Сразу при вводе проверяем больше ли следующий элемент чем предыдущий и если нет, то пишем «not ascending» и прекращаем ввод. Если же больше, то в конце пишем «ascending».

Да и массив нафига нужен? Задачи хранить его не было, была задача проверить его на возрастание.

[Malder]

Да и вообще, что это за говно такое? Нафига вообще эта переменная, нафига 2 цикла? Сразу при вводе проверяем больше ли следующий элемент чем предыдущий и если нет, то пишем «not ascending» и прекращаем ввод. Если же больше, то в конце пишем «ascending».

+1

[SyntaT]

втф abc?

це на скрине.. имхо как-то покашерней, чем досовидный турбопаскаль..
 ввааыы.jpg   64,69 КБ   1 Скачано

[GlebVt]

Зачем это? Почему не задать при объявлении?

Зачем это? Почему не просто

? If true = true как-то индийским кодом отдаёт.

потому что изучать синтаксис паскаля и проверять работает или нет настроения нет совсем.

Да и вообще, что это за говно такое? Нафига вообще эта переменная, нафига 2 цикла? Сразу при вводе проверяем больше ли следующий элемент чем предыдущий и если нет, то пишем «not ascending» и прекращаем ввод. Если же больше, то в конце пишем «ascending».

думал об этом, сэр.

но таки:
1) Дано: одномерн. масс. числ. значен. насчитывает N элементов. Образуют ли эл-ты масс. (перед первым нулевым) возраст послед.
я понял, что массив должен быть. и проверять надо уже имеющийся массив. в школе и колледже заставляли так делать.
вот.
про вывод строки тоже думал так же
но впадлу же, ты же понимаешь.

це на скрине.. имхо как-то покашерней, чем досовидный турбопаскаль..

geany + free pascal compiler.
мне ваши вантузятные замашки ни к чему

--
алсо вы бы ещё приемались к write('enter ', i, '-th element: ');
по поводу того, что 1, 2, 3 не правильно выводит

[Praximer]

а я офигел от такого

{write('enter ', i, '-th element: ');} - вот от этого

[GlebVt]

Praximer
а что в этом не так, кроме:

алсо вы бы ещё приемались к write('enter ', i, '-th element: ');
по поводу того, что 1, 2, 3 не правильно выводит smile.gif

?

[Praximer]

мои знания паскаля - школьный уровень.
надеюсь ты все понял

[GlebVt]

мои знания паскаля - школьный уровень.
надеюсь ты все понял smile.gif

мои занния паскаля - 10 минут гугления.
надеюсь, что ты тоже всё понял

[Praximer]

ахахаха, ну так ты то вообще программист, а я школота поганая ;D

[SyntaT]

как бы а шо не правильно в этой строке.. Нормально выведет запрос ввода символа, а после readln переведёт курсор на следующую строку.. Единственное, что вопрос оставляет, наверное N всё же тоже надо было у юзера спросить, а не в конст вбивать.. а массив делать не до N, а до стопитсотыщщ, благо у нас не каменный век и оператива есть.. и можно там уже не интежер, а лонгинт.. короч, надо больше золота!!!

а вот где
for i := 1 to N do begin
if (elts[i] = 0) then
break;

if ((i <> 1) and (elts[i] <= elts[i - 1])) then begin
is_asc := false;
break;
end;
end;

if (is_asc = true) then

зачем скобки-то ставить, если других условий всё равно нет?

И вообще как бы пишется обычно else if, а не ; ставят.. И когда внутри for в if делают begin-end, то предыдущий до него элемент не надо заканчивать ;.. На этом месте у тя вообще прога некорректно должна работать..

[GlebVt]

SyntaT
скобки - привычка к порядку из С
без скобок - даже говнокодом не назвать. просто помойка какая-то.
точки с запятыми - хз. тока перед else ругался, когда там стояла. причём я ещё пол часа соображал, что ему там не нравится.
в остальном - FPC скушал, работает исправно.