【程序设计】PASCAL语言实现

来源：学生作业帮编辑：神马作文网作业帮分类：综合作业时间：2024/11/11 19:14:21

【程序设计】PASCAL语言实现
设有一个数列a1,a2,a3,…,a（n）,其中a1,a2由键盘输入,从a3开始,通过下列四种情况的公式计算：
a（n－2） a（n－1） a（n）
偶数奇数 2a（n－2）+a（n－1）
奇数偶数 a（n－2）+2a（n－1）
偶数偶数 a（n－2）+a（n－1）+1
奇数奇数 a（n－2）+a（n－1）
例如,a1＝1,a2＝2,则：
a3＝1+2*2＝5
a4＝4+5＝9
a5＝5+9＝14
任务：对于输入的a1,a2和n（n

用递推做的：
var
n,i:byte;
a:array[1..100] of word;
procedure fill_a(i:byte);
begin
if (odd(a[i-2])and(odd(a[i-1])) then a[i]:=a[i-1]+a[i-2];
if (odd(a[i-2])and(not(odd(a[i-1))) then a[i]:=a[i-2]+2*a[i-1];
if (odd(a[i-1])and(not(odd(a[i-2))) then a[i]:=a[i-1]+2*a[i-2];
if not((odd(a[i-2])and(odd(a[i-1]))) then a[i]:=a[i-1]+a[i-2]+1;
end;
begin
readln(a[1],a[2]);
readln(n);
for i:=3 to n do fill_a(i);
write('a',n,'=',a[n]);
end.

电脑程序设计:PASCAL语言 free pascal程序设计,尽量用简单语言,难的看不懂 program 【pascal 程序设计】问题：begin 1.试打印出1-20的自然数.（用while do 语言） pascal程序设计输入一个整数n,n pascal语言编写一个算法实现两个集合的差运算 PASCAL语言程序基本概念 Free Pascal语言回答 pascal 语言 while 语句翻译为pascal语言 pascal语言编程题 Free Pascal语言编程 pascal 语言求和