Turbo Pascal

[AkeL.php]

f[1] = 1;
f[2] = 2;
write(' ', f[1], ' ', f[2], ' ');
for i:=3 to n do
f = f[i-2]+f[i-1];
write(' ', f, ' ');

 

[KILLER]

Народ помогите написать програмку одному оч. хорошему человеку !

Створити файл,що містить довідки про здачу студентами 1-ого курсу кафедри «ЕОМ» сесії. Структура запису: індекс групи, прізвище студента, оцінка з пяти іспитів, ознака участі в суспільній роботі: «1» - активна участь, «0» - неучасть. Кількість записів довільна.Написати програму зарахування студентів групи Х на стипендію.Студент, що одержав всі оцінки «5» і активно брав участь у суспільній роботі, зараховується на підвищену стипендію (доплата 50%), неактивно брав участь – доплата 25%. Студенти, що одержали «4» і «5», зараховуються на звичайну стипендію. Студент,що одержав оцінку «3»,але активно займається суспільною роботою, також зараховується на стипендію, у протилежному разі зарахування не проводиться. Індекс групи вводиться з клавіатури.

 

[Пух]

2 ДятеЛ, правильней будет
uses crt;
var f:array[1..20] of integer;
i:integer;
begin
clrscr;
f[1]:=0;
f[2]:=1;
for i:=3 to 20 do
f:= f[i-2]+f[i-1];
for i:=1 to 20 do
write(' ',f);
readln;
end.
З.Ы. ты хоть условие нормально пиши...а то сам не знаешь что за задача...

2 Akel у тебя немного не правильно.Нужно начинать с 0 1 1 2 3 5 8 11 , а у тебя начинает выводить 1 2 3 5 8 11 , тоесть первые 2 числа не выводятся.

 

[Nalivai]

Help!
Створити файл, який містить довідки про співробітників інституту. Структура запису: прізвище працюючого, назва відділу, рік народження, стаж роботи, посада, оклад. Кількість записів довільна.
Написати програму, яка дозволяє одержати таку інформацію: середній стаж працюючих у відділі Х.
Написати процедури додавання інформації у файл. Обробку інформації здійснювати за допомогою меню.

1 – перегляд вмісту файлу
2 – запис даних у файл
3 – додавання інформації
4 – друк відомостей
5 - вихід

 

[Pirani@]

Люди помогите плизз сделать 2 проги:
1.Осуществить все возможные перестановки массива.
2.Осуществить все не повторяющиеся перестановки массива.
Заранее спасибо!

 

[lovesan]

Люди помогите плизз сделать 2 проги:
1.Осуществить все возможные перестановки массива.
2.Осуществить все не повторяющиеся перестановки массива.
Заранее спасибо!

Я шота малость не понял.

Осуществить все возможные перестановки массива.

это переставить все элементы массива в случайном порядке или отсортировать алгоритмами сортировки?

 

[Vladimir B.]

Я шота малость не понял. это переставить все элементы массива в случайном порядке или отсортировать алгоритмами сортировки?

Деловито открываем томик Кнута, выкуриваем пачку Капитана Блека... и делаем именно все возможные перестановки.

Пример: для [1,2,3]

[1,3,2]
[2,1,3]
[2,3,1]
[3,1,2]
[3,2,1]

P.S. Злой дядя Кнут (даже фамилия вот какая) говорят посвятил перестановкам целую книженцию.

 

[lovesan]

Деловито открываем томик Кнута, выкуриваем пачку Капитана Блека... и делаем именно все возможные перестановки.

Открыл бы, еслиб было что открывать. А так, как видишь, приходится задавать ламерские вопросы
Дякую за просвящение....не знал что такое бывает

 

[Pirani@]

Кнута читали..Все равно ничего не понятно.Напишите плиз код хотя б на все возможные перестановки.

 

[KILLER]

Ну помогите плыыыыыззз ! Девушке требуецца помощ ! сесия .. курсач ...

Створити файл,що містить довідки про здачу студентами 1-ого курсу кафедри «ЕОМ» сесії. Структура запису: індекс групи, прізвище студента, оцінка з пяти іспитів, ознака участі в суспільній роботі: «1» - активна участь, «0» - неучасть. Кількість записів довільна.Написати програму зарахування студентів групи Х на стипендію.Студент, що одержав всі оцінки «5» і активно брав участь у суспільній роботі, зараховується на підвищену стипендію (доплата 50%), неактивно брав участь – доплата 25%. Студенти, що одержали «4» і «5», зараховуються на звичайну стипендію. Студент,що одержав оцінку «3»,але активно займається суспільною роботою, також зараховується на стипендію, у протилежному разі зарахування не проводиться. Індекс групи вводиться з клавіатури.