Объединенный архив форумов UniverClub и StudLife (2006-2010). Поддерживает: Леонид Шевцов.

снова Turbo Pascal

1450
Народ, помогите скомпилить еще одну лабу! плыз.:)

Условие: Дана линейная последовательность А с 10 елементов, елементы последовательности задаются пользователем, индексы елементов ряда изменяются от 1 до 10. Вывести в столбик елементы с парными индексами (А2,А4, А6,...).

Не дайте погибнуть студенту...;)
Missing
Stiffler, це жах... Зараз спробую швиденько - бачу ніхто в бій не рветься. Але сам факт...

А як перед навчальним роком кричав "та ДНУ! та ФТФ!..." а такі прості речі питаєш... На всьомі ФІТ у нас мабуть не знайдеться людини, яка це не вміє... Менш із тим, пішов писати...
1156

Условие: Дана линейная последовательность А с 10 елементов, елементы последовательности задаются пользователем, индексы елементов ряда изменяются от 1 до 10. Вывести в столбик елементы с парными индексами (А2,А4, А6,...).

Stiffler

не ну эт уже не серьезно...берись за голову во время, иначе прийдется худо
Missing
Uses CRT;
const n=10;
Var A:array[1..n] of real {для цілих напишеш integer, вимоги початкової нема}
i:byte;
Begin
clrscr;
Writeln('Введите елементы линейной последовательности через пробел');
For i:=1 to n do Read(A);
Writeln('Требуемые по заданию элементы:');
For i:=1 to n do
If (i mod 2)=0 then Writeln('A[',i:2,']=',A[i]);
Readln;
End.

[i] добавлено через 1 час 12 минут

Stiffler, послухай нашого філософа:

берись за голову во время, иначе прийдется худо

Jack

він знає, що говорить... в самого не здана Теорія алгоритмів ;) поки що...
1450
Jack, просто рук уже не хватает, чтобы за все взяться...))
в понедельник 2 зачета по праву и теории техничесских систем(котрые идут на 5)+защита чертежа,...а тут еще и прогу на пон. задали...

добавлено через 28 секунд
Timer, сенк за отзыв!
1005
Stiffler, к сожалению ты этой темой(прошлая - еще куда ни шло) опустил мое и не только мое мнение обо всем физтехе. Такие задачки в 10 классе решают:(
Missing

в понедельник 2 зачета по праву и теории техничесских систем(котрые идут на 5)+защита чертежа,...

Stiffler

Та мені не жалко, користуйся... але...
Або у вас по-викрутяному поставлений навчальний процес, або ЯК ЖЕ ЦЕ ТРЕБА БУЛО ЗАБИВАТИ на те навчання, щоб в тиждень перед Новим роком на 1 день стільки наскладати?
86
Maximus, +1... Тут элементарно все было...
2241
ребяты, не у всех же в школе было программирование...
у меня, к примеру, его отродясь не было и единственное, чем мы были заняты- так это КС по сети....)))))))))
213
Sweet_Sveta, классно вам! а мы во второй дум шпилили! :) и тот минут 15 грузился
2241
:)
ну вот....
причем самая забитая девочка рубила весх по сети нереально....бедняга, вероятно, так мы её достали....
а они от нас ещё требуют Паскаля...:)))))))