|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
12.04.2012, 18:33 | #1 (permalink) |
Новичок
Регистрация: 12.04.2012
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Блок-схема по коду Pascal
Если кто может пожалуйста нарисуйте блок схему по моему коду Код:
const nmax=100; var a:array[1..nmax] of integer; n,i,j:byte; f,k:boolean; begin randomize; repeat write('Размер последовательности A до ',nmax,'n='); readln(n); until n in [1..nmax]; writeln('Последовательнось:'); for i:=1 to n do read(a[i]); for i:=1 to n do write(a[i]:3); readln; writeln; writeln; writeln('Входят по одному разу:'); k:=false; for i:=1 to n do begin f:=true; for j:=1 to n do if(a[i]=a[j])and(i<>j) then f:=false; if f then begin write(a[i]:3); k:=true; end; end; if not k then write('Таких чисел нет'); readln; end. |
12.04.2012, 18:33 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Это ссылки, по которым содержаться схожие с вашей темы Блок-схема. Паскаль Блок-схема в Qbasic Нужна блок-схема Блок-схема к программе Блок - схема |
13.04.2012, 20:55 | #3 (permalink) |
Новичок
Регистрация: 12.04.2012
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Добавлю условия задачи
Дана последовательность целых чисел a1, a2, ..., am . Постройте на ее основе новую последовательность, содержащую только те числа, которые в исходную последоватеьность входят по одному разу. может поможет |
11.12.2012, 03:36 | #4 (permalink) |
Новичок
Регистрация: 11.12.2012
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
помогите пожалуйста с блок-схемой
program xz; const x:array[1..10] of integer=(1,2,3,4,5,6,7,8,9,10); y:array[1..15] of integer=(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15); var i:integer; s1,s2:real; BEGIN s1:=0; s2:=0; for i:=1 to 10 do s1:=s1+sqr(sin(x[i])); for i:=1 to 15 do s2:=s2+sqr(ln(abs(y[i]))); writeln(s1*s2) END. |
11.12.2012, 03:57 | #5 (permalink) |
С# - learn or die
Регистрация: 17.12.2011
Сообщений: 2,438
Записей в дневнике: 8
Сказал(а) спасибо: 21
Поблагодарили 49 раз(а) в 11 сообщениях
Репутация: 19701
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|