Задачки в Паскале...
Помогите решить пожалуйста... :confused:
1. МАССИВЫ Постройте правильные объявления на Паскале для девяти массивов (если это можно) по их словесным описаниям (массивы должны быть заполнены и выведены на экран): ряд целых чисел, пронумерованных от 1950 до 1992. 2. ПРОЦЕДУРЫ Составить программу вычисления членов ряда Фибоначчи с использованием процедуры. :(Заранее огромное спасибо...:rolleyes: |
Так, ну это еще по-божески...
Цитата:
A:ARRAY[0..42] of INTEGER; i:INTEGER; BEGIN FOR i:=0 TO 42 DO begin A[i]:=i+1950; Write(A[i]: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[i]:=Random(50); Write(A[i]:3); end; Writeln; Readln; END. Цитата:
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[i]:10); ReadLn; END. Цитата:
|
Vladimir_S, я запустила обе программы и заметила, что во второй не описана переменная i(((
|
Цитата:
P.S. Ах да - опять забыл! Ваш Паскаль такой тип переменной цикла не принимает. Поэтому нужно обе такие переменные - и в глобальном описании (i), и в теле процедуры (Ifib) описать как Integer. Мой-то Паскаль и LongInt жрёт и не давится. |
Часовой пояс GMT +4, время: 16:45. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.