0 / 0 / 0
Регистрация: 24.10.2010
Сообщений: 22
1

нужно составить блок схему

14.11.2010, 21:07. Показов 460. Ответов 1
Метки нет (Все метки)

В одномерном массиве определить номер 1-го нулевого элемента.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Const=20
var
a:array[1...N] of integer;
i, k, m: byte;
begin
k:=0, m:=0
for i:=1 to N do
begin
read (a[i]);
if a[i]=0 then begin
k:=k+1 then
m:=i
end;
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.11.2010, 21:07
Ответы с готовыми решениями:

Нужно составить блок схему
В заданной квадратной матрице A(K,K) (K<=10) вычислить сумму элементов, расположенных над главной...

срочно нужно составить блок- схему
K=1/sin a+2/sin2a+3/sin3a+4/sin4a+........ sin2a-это синус квадрат а...

Дана программа нужно составить блок-схему
uses crt; var a,b,b1:array of integer; q,i,j,t,sum,min,mini,n:integer; begin clrscr;...

Мне нужно составить блок-схему к программе.
Program PPN1_3; uses crt; const d=2; ES=-0.006; EI=-0.016; esmin=0;...

1
9 / 9 / 1
Регистрация: 03.10.2009
Сообщений: 91
15.11.2010, 15:42 2
Держи.
Вложения
Тип файла: doc sxema.doc (25.5 Кб, 17 просмотров)
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.11.2010, 15:42

Нужно составить блок-схему к коду паскаль
Program my1; uses crt; var a,b:array of integer; c:array of integer; i:integer; begin...

Составить блок схему вычисления значения функции, а затем составить программу
Составить блок схему вычисления значения функции, а затем составить программу

Составить блок-схему
uses crt; var a,b,c,x,y:integer; Begin write('a='); readln(a); write('b='); readln(b);...

Составить блок-схему
uses Crt; var a:array of integer; n,i,j,k:integer; begin ClrScr; randomize;...

Составить блок-схему
program lab5; uses crt; var s:string; i,n:integer; begin writeln ('Vvedite stroky simvolov');...

Составить блок-схему
Помогите пожалуйста составить блок схему : Program Dengi; uses crt; var a,c,d:real; begin...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru