|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
12.01.2011, 03:30 | #1 |
Новичок
Джуниор
Регистрация: 12.01.2011
Сообщений: 1
|
Блок схемы!
Есть несколько прог нужно к ним сделатьб блок схемы хэлп плииз!
Надеюсь то что коментарии на латышском не сильно помешают ((( var f, g: text; a: string; c: char; b, i, x, y, z, err: integer; begin writeln('programma saskaita ciparu summu faila.'); assign(f,'C:\New\teksts.txt'); reset(f); assign(g,'C:\New\cits.txt'); rewrite(g); x:=0; y:=0; while (eof(f)=false) do begin x:=0; readln(f,a); b:=length(a); for i:=1 to b do begin c:=a[i]; val(c,z,err); if (err=0) then begin x:=x+z; end; end; y:=y+x; write(g,x,' '); write(x,' '); end; writeln(g,' '); writeln(g,'kopa ciparu summa ir ',y); writeln(''); writeln('kopa ciparu summa ir ',y); close(f); close(g); readln; end. 2. { Laboratijas darbs #4 } const num = 10; {masiva izmers} var i, j, s, k: integer; {darba imdeksi} wrk: integer; ms: array[1..num, 1..num] of integer; {divdimensiju masivs} begin writeln('Programma ciklu operatoru un masivu apgusanai'); writeln; {sakotneja aizpildisana} for i:=1 to num do for j:=1 to num do ms[i,j]:=0; {masiva aizpildisana atbilstosi uzdevumam} {si programmas dala ir jamodifice atbilstosi savam uzdevumam} wrk:=1; for i := 3 to 8 do begin {cikls pa rindam} for j := 3 to 8 do begin {cikls pa kolonam} if not (((i > 4) and (i < 7)) and ((j > 4) and (j < 7))) then begin ms[i,j] := wrk; wrk := wrk + 1; end; end; end; {masiva vertibu izvadisana (nemodificet)} for i := 1 to num do begin writeln; for j := 1 to num do write(ms[i,j]:5) end; writeln; writeln; writeln('Nospied Enter'); readln; end. |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
блок-схемы | Lenka455 | Помощь студентам | 2 | 23.12.2010 18:03 |
блок-схемы( | Ankas | Помощь студентам | 1 | 10.05.2010 17:08 |
блок схемы | Defender42 | Помощь студентам | 4 | 24.12.2009 13:34 |
блок схемы. | Artimbulidor | Помощь студентам | 0 | 10.06.2009 19:03 |