15.02.2009, 20:58 | #1 (permalink) |
Новичок
Регистрация: 15.02.2009
Сообщений: 4
Записей в дневнике: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Задачки в Паскале...
1. МАССИВЫ Постройте правильные объявления на Паскале для девяти массивов (если это можно) по их словесным описаниям (массивы должны быть заполнены и выведены на экран): ряд целых чисел, пронумерованных от 1950 до 1992. 2. ПРОЦЕДУРЫ Составить программу вычисления членов ряда Фибоначчи с использованием процедуры. Заранее огромное спасибо... Последний раз редактировалось Fine; 15.02.2009 в 22:02 |
15.02.2009, 20:58 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
На форуме создается много аналогичных обсуждений, рекомендую вам почитать их Решить задачки Решите задачки в Паскале, пожалуйста Задачки на массивы. Паскаль |
16.02.2009, 10:06 | #2 (permalink) | |||
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Так, ну это еще по-божески...
Цитата:
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; 16.02.2009 в 11:43 Причина: Исправление |
|||
16.02.2009, 11:44 | #4 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
P.S. Ах да - опять забыл! Ваш Паскаль такой тип переменной цикла не принимает. Поэтому нужно обе такие переменные - и в глобальном описании (i), и в теле процедуры (Ifib) описать как Integer. Мой-то Паскаль и LongInt жрёт и не давится. Последний раз редактировалось Vladimir_S; 16.02.2009 в 11:49 |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|