06.05.2012, 17:00 | #1 (permalink) |
Новичок
Регистрация: 02.05.2012
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите написать блок-схему
uses Crt; type new_type=record el,count:longint end; var count,test,numb_test,i,j,x:longint; q:boolean; mas:array[1..2] of new_type; begin numb_test:=1; while numb_test<=test do begin readln(count); q:=true; i:=1; fillchar(mas,sizeof(mas),0); while i<=count do begin readln(x); if q then if (mas[1].el=0)or(mas[1].el=x) then begin mas[1].el:=x; inc(mas[1].count) end else if (mas[2].el=0)or(mas[2].el=x) then begin mas[2].el:=x; inc(mas[2].count) end else q:=false ; inc(i) end; if q then writeln(1) else writeln(0); inc(numb_test) end; readln; end. |
06.05.2012, 17:00 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Люди уже создавали что то подобное, так что можете почитать Помогите написать блок-схему Помогите написать блок-схему для курсовой |
07.05.2012, 00:55 | #3 (permalink) |
Новичок
Регистрация: 02.05.2012
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Огромное спасибо!!
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|