04.05.2012, 22:32 | #1 (permalink) |
Новичок
Регистрация: 02.05.2012
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
11Angelav, пожалуйста, сделайте блок-схему
Size=10; Var A:Array[1..Size+1,0..Size] of Integer; i,j,n,m,k:Byte; Inp,Outp:Text; Begin Assign(Inp,'Input.txt'); Reset(Inp); Readln(Inp,n,m); for i:=1 to n do for j:=1 to m do A[i,j]:=-1; for i:=1 to n do A[i,0]:=0; for j:=0 to m do A[n+1,j]:=0; Repeat Readln(Inp,i,j); A[i,j]:=0; Until EoF(Inp); A[n,1]:=1; Close(Inp); For i:=1 to n+1 do begin For j:=0 to m do write(A[i,j]:4); Writeln; end; Writeln; For i:=n downto 1 do For j:=1 to m do If A[i,j]=-1 then A[i,j]:=A[i+1,j]+A[i,j-1]+A[i+1,j-1]; For i:=1 to n+1 do begin For j:=0 to m do write(A[i,j]:4); Writeln; end; Writeln; Writeln('Press "Enter" to quit'); Readln; Assign(Outp,'Output.txt'); Rewrite(Outp); Writeln(Outp,A[1,m]); Close(Outp); End. |
04.05.2012, 22:32 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Дам вам ссылки на темы, которые имеют что то общее с вашей темой Составить блок-схему Сделайте, пожалуйста, сортировку пузырьковым методом по возрастанию Составить блок-схему и операторную схему Помогите создать блок-схему Помогите пожалуйста составить блок-схему! Построить блок-схему |
05.05.2012, 12:36 | #3 (permalink) |
Новичок
Регистрация: 02.05.2012
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Спасибо вам.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|