12.04.2010, 08:37 | #1 (permalink) |
Member
Регистрация: 02.11.2009
Сообщений: 19
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
2 задачи на Паскале: с рекурсивными процедурами и текстовыми файлами
{U0=0, U1=1; Un=Un-1 - Un-2, n=2,3,4,... Написать программу вычисления первого числа Фибоначчи, большего m (m>1), включающую рекурсивную функцию, которая основана на непосредственном использовании соотношения Un =Un-1 +Un-2 2. Пусть дан файл целых чисел f1. Создайте два новых файла f2 и f3 из положительных и отрицательных чисел соответственно. Если какой – то из созданных файлов окажется пустым, сообщите об этом. |
12.04.2010, 08:37 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Если вы еще не читали похожие обсуждения - сделайте это Три задачи в Паскале Работа с файлами на Паскале Три задачи на Паскале |
12.04.2010, 10:14 | #2 (permalink) | ||
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
VAR m,u,u1,u2:WORD; i:BYTE; BEGIN Write('m= '); ReadLn(m); u1:=0; u2:=1; Repeat u:=u1+u2; u1:=u2; u2:=u; Until u>m; WriteLn('u= ',u); ReadLn; END. Цитата:
Код:
VAR file1,file2,file3:TEXT; n2,n3:WORD; a:INTEGER; BEGIN Assign(file1,'D:\f1'); ReSet(file1); Assign(file2,'D:\f2'); ReWrite(file2); Assign(file3,'D:\f3'); ReWrite(file3); n2:=0; n3:=0; Repeat Read(file1,a); if a>0 then begin write(file2,a,' '); inc(n2); end; if a<0 then begin write(file3,a,' '); inc(n3); end; Until EoF(file1); Close(file1); Close(file2); Close(file3); if n2=0 then WriteLn('F1 contains no positive values') else if n3=0 then WriteLn('F1 contains no negative values') else WriteLn('Finished!'); ReadLn; END. |
||
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|