Народ, Помогите, ЗА СЕКСО

(JeyLo @ 19.03.2008 - время: 13:22)А я... А я... А я паскаль не знаю! Напесал на си... :)

CODE int f ( int* pp, int n ) {
int* p = pp + n - 1;
int a = 0, b = 0, c = -1;
do { a = ((*p--) & 1) ? ( 0, b < a ? c = n, b = a : 0 ) : a + 1; } while ( n-- );
return a > b ? 0 : c;
}
какой-то у тебя си не кашерный, ну т.е. круто конечно что в четыре строки, но совершенно не читабельно... :) Ты б ещё на каком-нибудь брэйнфаке написал или на другом эзотерическом :) Короче - ходи туды: https://esco.sourceforge.net/?page=elang Там и компилятор на все случаи жизни и ссылки правильные :) Будешь потом только на них программить :

Типо приходит чел и говорит "мне надо на паскале хеллоу ворлд написать", а ты ему "ну паскаля я не знаю, но вот тебе хеллоу ворлд на езыке OOK"

CODE
Ook. Ook? Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook.
Ook. Ook. Ook. Ook. Ook! Ook? Ook? Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook.
Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook? Ook! Ook! Ook? Ook! Ook? Ook.
Ook! Ook. Ook. Ook? Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook.
Ook. Ook. Ook! Ook? Ook? Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook?
Ook! Ook! Ook? Ook! Ook? Ook. Ook. Ook. Ook! Ook. Ook. Ook. Ook. Ook. Ook. Ook.
Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook! Ook. Ook! Ook. Ook. Ook. Ook. Ook.
Ook. Ook. Ook! Ook. Ook. Ook? Ook. Ook? Ook. Ook? Ook. Ook. Ook. Ook. Ook. Ook.
Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook! Ook? Ook? Ook. Ook. Ook.
Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook? Ook! Ook! Ook? Ook! Ook? Ook. Ook! Ook.
Ook. Ook? Ook. Ook? Ook. Ook? Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook.
Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook! Ook? Ook? Ook. Ook. Ook.
Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook. Ook.
Ook. Ook? Ook! Ook! Ook? Ook! Ook? Ook. Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook.
Ook? Ook. Ook? Ook. Ook? Ook. Ook? Ook. Ook! Ook. Ook. Ook. Ook. Ook. Ook. Ook.
Ook! Ook. Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook.
Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook! Ook!
Ook! Ook. Ook. Ook? Ook. Ook? Ook. Ook. Ook! Ook.
А поскольку этот самый Ook - является закосом под крики орангутанов то можно ещё попытаться эту программу озвучить и выложить в качестве мп3

Всем огромнейшее спасибо! Попробую в пятницу сдать Это чудо!

(-=Велла=- @ 18.03.2008 - время: 22:42)
uses crt;

clrscr;

а что это такое кста?

(-=Велла=- @ 19.03.2008 - время: 16:09) А кто нить на Прологе может напишет заодно
Надеюсь на Турбо :)?



Crt - стандартная библиотека (Турбо Паскаля) Помогает в быстром выводе например на монитор (там много всего)

clrscr - процедура из этой библиотеки - просто стирает экран от символов

(vano-m @ 19.03.2008 - время: 18:07) (-=Велла=- @ 18.03.2008 - время: 22:42)
uses crt;

clrscr;

а что это такое кста?
можно убрать, если сомневаешься или если боишься чуть-чуть "повыпендриваться". Будет работать и без этого. Нужно просто, чтоб экран очистить.

(mvf23 @ 19.03.2008 - время: 18:38) (vano-m @ 19.03.2008 - время: 18:07) (-=Велла=- @ 18.03.2008 - время: 22:42)
uses crt;

clrscr;

а что это такое кста?
можно убрать, если сомневаешься или если боишься чуть-чуть "повыпендриваться". Будет работать и без этого. Нужно просто, чтоб экран очистить.
всмысле при каждом новом запуске?

(vano-m @ 19.03.2008 - время: 18:46) (mvf23 @ 19.03.2008 - время: 18:38)Будет работать и без этого. Нужно просто, чтоб экран очистить.
всмысле при каждом новом запуске?
ну видишь - команда clrcsr написана в самом начале программы. Значит перед тем как делать что-либо ещё программа будет очищать экран. Т.е. при каждом запуске.

аа. понятно. спс.

впятницу отпишшусь о том, как прошло...

Я бы на твоем месте ПОПРОСИЛ АЛГОРИТМ разъяснить :) пох.. на не важные процедуры :)

Понял КАК ? Если понял - то иди сдавайся преподу, а ежли нет....то все ж спроси чего не понятно

(do-do @ 20.03.2008 - время: 08:20) Я бы на твоем месте ПОПРОСИЛ АЛГОРИТМ разъяснить :) пох.. на не важные процедуры :)

Понял КАК ? Если понял - то иди сдавайся преподу, а ежли нет....то все ж спроси чего не понятно
единственный нюанс, это наскока я понял вывод результатов должен осуществляться в .txt файл вроде.

vano-m, я ж тебя спрашивала об этом... щас сделаю....
ВОт

CODE program var29;
uses crt;
var
a: array [1..100] of integer;
max_start,max_len,cur_start,cur_len:integer;
i:integer;
n:integer;
f:text; {текстовый файл}
begin
clrscr;
assign (f,'res.txt'); {связали файл f с файлом на диске res.txt}
rewrite(f); {открыть файл для записи}
max_start := 0; {начальный элемент самой длинной последовательности}
max_len := 0;   {длина самой длинной последовательности}
cur_start := 0;   {начальный элемент текущей последовательности}

{ввод данных}
writeln('Введите кол-во элементов массива');
readln (n);
writeln('Введите элементы массива');
for i:=1 to n do
readln(a[i]);

for i:=1 to n do {перебираем}
begin
if (a[i] mod 2 = 0) then {если четный}
begin
 if cur_start = 0 then {если первый в последовательности}
   begin
    cur_start := i;
    cur_len := 1;
   end
 else cur_len := cur_len + 1; {если не первый в последовательности}
end
else {если нечетный, значит последовательность четных закончилась}
begin
if cur_len>max_len then {сравниваем длину с максимальной, если длиннее то}
 begin
  max_start := cur_start; {устанавливаем новую максимальную}
  max_len := cur_len;
 end;
cur_start := 0; {сбрасываем текущую}
cur_len := 0;
end;
end;
{вывод результата по 9 элементов массива в строке}
for i:=1 to n do
begin
write (f, a[i]:6);
if i mod 9=0 then writeln;
end;
writeln;
writeln(f,'Номер элемента, с которого начинается максимальная после-то четных чисел:',max_start);
readln;
close(f); {закрыть файл}
end.

-=Велла=-, чуть-чуть недосмотрела: вместо CODE if i mod 9=0 then writeln; нужно CODE if i mod 9=0 then writeln(f);

А вообще молодец. Я бы поленился :)

vano-m, будешь с Веллой расплачиваться ещё год :)

mvf23, аа ... точно))))) недосмотрела...

Огромное спасибо. Лабу я таки сегодня сдал. Правда один нюанс. Когда я ее на паскале написал и запустил все работало и выводилось в файл как надо, только ответ всегда был 1. Непонятна почему. Хотя мне очень повезло. Другой препод был, который не посмотрел текст, просто проверил. Я подстроил элементы так чтоб ответ был 4. и написал writeln 4. ГЫ.

Вам всем огромное спасибо, ибо я всетаки посмотрев на готовый текст программы понял как решать подобные лабораторные.
Хотя со следующей темой мрак...

ВСЕМ ОГРОМНЕЙШЕЕ СПАСИБО!

Зачет.
Надо взять метод на вооружение.

(vano-m @ 21.03.2008 - время: 22:04) Правда один нюанс. Когда я ее на паскале написал и запустил все работало и выводилось в файл как надо, только ответ всегда был 1. Непонятна почему.
Странно. До того как я исправила с фалом, все у меня работало и правильно считало. Я проверяла. А вот когда исправляла, видать чо-то упустила.. Но сдано, вот и славно )))

Памагёте еще решить?

Смотря чо там у тя за тема? :)

Двумерные массивы (сортировка и перестановка) :)

А в зачетке чье имя буит ? Твое иль Веллы :)? (опять поди в привате ей методичку кидаешь :) )

Вообще то формулировка расплывчита..ты Конкретно формулируй шо надо, на чем