14.05.2011, 19:40 | #1 (permalink) |
Новичок
Регистрация: 14.05.2011
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Блок - схема
program Lab_4; { Programma Laboratornoy raboty N 4 Variant N 3 gr. F-177, st. O.G.Sytnik } var m: Array[1..50] of real; k:real; i,n,b,count: Integer; Fout: text; begin Write('Vvedite dlinu massiva: '); Read(n); {kontrol n} Assign(Fout,'file1.txt'); ReWrite(Fout); Writeln(Fout,'Ishodnyi massiv iz ', N,' elementov'); for i := 1 to N do begin Write('Vvedite ',i,' element: '); Read(m[i]); end; Write('Vvedite kolichestvo summiruemyh elementov: '); Read(b); {kontrol b} for i := 1 to N do if i mod 6=0 then Writeln(Fout,m[i]:9:2) else Write (Fout,m[i]:9:2) ; writeln(Fout); i := 3; count:=0; while not (count = b) do begin if odd(i) then begin Inc(count); k := k + m[i]; end; inc(i); end; WriteLn(Fout,'Summa : ',k:9:2); Close(Fout); end. |
14.05.2011, 19:40 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Тема довольно популярная и ранее создавалась на нашем форуме Блок-схема. Паскаль Нужна блок-схема |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|