Задачки в Паскале...

[Fine]

Задачки в Паскале...

Помогите решить пожалуйста...
1. МАССИВЫ
Постройте правильные объявления на Паскале для девяти массивов (если это можно) по их словесным описаниям (массивы должны быть заполнены и выведены на экран): ряд целых чисел, пронумерованных от 1950 до 1992.

2. ПРОЦЕДУРЫ
Составить программу вычисления членов ряда Фибоначчи с использованием процедуры.

Заранее огромное спасибо...

 

[Vladimir_S]

Так, ну это еще по-божески...

Помогите решить пожалуйста...
1. МАССИВЫ
Постройте правильные объявления на Паскале для девяти массивов (если это можно) по их словесным описаниям (массивы должны быть заполнены и выведены на экран): ряд целых чисел, пронумерованных от 1950 до 1992.

VAR
A:ARRAY[0..42] of INTEGER;
i:INTEGER;
BEGIN
FOR i:=0 TO 42 DO
begin
A:=i+1950;
Write(A:5);
end;
Writeln;
Readln;
END.

P.S. Впрочем, возможно я неправильно понял задание. Если именно ПРОНУМЕРОВАННЫХ, а значения - какие попало, то так:

VAR
A:ARRAY[1950..1992] of INTEGER;
i:INTEGER;
BEGIN
Randomize;
FOR i:=1950 TO 1992 DO
begin
A:=Random(50);
Write(A:3);
end;
Writeln;
Readln;
END.

2. ПРОЦЕДУРЫ
Составить программу вычисления членов ряда Фибоначчи с использованием процедуры.

TYPE
AR=ARRAY[1..40] of LongInt;
VAR
A:AR;
N,i:LongInt;

PROCEDURE FIB(Nf:LongInt; VAR Af:AR);
VAR Ifib:LongInt;
BEGIN
Af[1]:=1;
Af[2]:=1;
Ifib:=2;
REPEAT
INC(Ifib);
Af[Ifib]:=Af[Ifib-1]+Af[Ifib-2];
UNTIL Ifib=Nf;
END;

BEGIN
N:=6; {or any other number >=3 and <= 40}
FIB(N,A);
FOR i:=1 TO N DO
Write(A:10);
ReadLn;
END.

Заранее огромное спасибо...

Не за что.

 

[ummasha]

Vladimir_S, я запустила обе программы и заметила, что во второй не описана переменная i(((

 

[Vladimir_S]

Vladimir_S, я запустила обе программы и заметила, что во второй не описана переменная i(((

Спасибо, Маша - исправил. Была, чесслово, просто когда решил заменить тип Integer на LongInt, случайно смахнул.

P.S. Ах да - опять забыл! Ваш Паскаль такой тип переменной цикла не принимает. Поэтому нужно обе такие переменные - и в глобальном описании (i), и в теле процедуры (Ifib) описать как Integer. Мой-то Паскаль и LongInt жрёт и не давится.