Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
kronos
3 / 3 / 0
Регистрация: 16.12.2009
Сообщений: 26
1

одномерный массив

19.12.2009, 22:23. Просмотров 457. Ответов 7
Метки нет (Все метки)

Задание. дан одномерный массив. необходимо при вводе числа 0 что бы прекратился ввод чисел и вывелась сумма всех введенных чисел матрицы.
вот код. в нем нету ошибки но он обсолютно нереагирует если вводиш 0. всю голову сломал как это сделать. идей неосталось..
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Program zadanie4;
Uses Crt;
Const n=50;
var A:array[1..n] of integer;
Var g,m,l,i,k,s:integer;
begin
clrscr;
 
For i:=1 to n do
 
begin
k:=0;
write('Vvedite A[',i,']=');
readln (A[i]);
if(A[i]=k) then S:=S+A[i]
else S:=k;
end;
 
writeln ('S = ', S);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.12.2009, 22:23
Ответы с готовыми решениями:

Дан одномерный массив A из N элементов. Переписать положительные элементы массива в массив B, а отрицательные в массив C
Дан одномерный массив A из N элементов. Переписать положительные элементы...

Создать двумерный массив все четные элементы переписать в одномерный массив
создать двумерный массив все четные элементы переписать в одномерный массив

Дан одномерный массив Z[n]. Сформировать массив L, содержащий только нечетные элементы массива Z
Задача на Pascal. Не решу - зачёт не поставят.

Дан одномерный массив G[n]. создать массив N, удалив из исходного массива минимальные элементы
Распишите пожалуйста подробнее!!!

Одномерный массив. Сформировать такой массив В, который содержит копию положительных элементов массива А
Дан одномерный массив чисел А. Сформировать такой массив В, который содержит...

7
кот Бегемот
Платежеспособный зверь
8465 / 3911 / 1523
Регистрация: 28.10.2009
Сообщений: 10,141
19.12.2009, 22:35 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Program zadanie4;
Uses Crt;
var A:array[1..1000] of integer;
g,m,l,i,k,s,n:integer;
begin
clrscr;
repeat 
inc(i);
write('Vvedite A[',i,']=');
readln (A[i]);
S:=S+A[i]
until a[i]=0;
writeln ('S = ', S);
end.
0
overlord754
59 / 21 / 9
Регистрация: 24.10.2009
Сообщений: 198
19.12.2009, 22:37 3
kronos, ну тут он ни как не будет выходить из кода, поскольку он обязан пройти по всем числам от 1 до n.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Program zadanie4;
Uses Crt;
Const n=50;
var A:array[1..n] of integer;
Var g,m,l,i,k,s:integer;
begin
clrscr;
s:=0;
For i:=1 to n do
begin
write('Vvedite A[',i,']=');
readln (A[i]);
if(A[i]<>0) then S:=S+A[i]
else break
end;
writeln ('S = ', S);
readln;
end.
(break - выход из цикла)
0
кот Бегемот
Платежеспособный зверь
8465 / 3911 / 1523
Регистрация: 28.10.2009
Сообщений: 10,141
19.12.2009, 22:42 4
зачем прерывать цикл, когда можно ограничить цикл ввода?
0
overlord754
59 / 21 / 9
Регистрация: 24.10.2009
Сообщений: 198
19.12.2009, 22:45 5
alexevt, что первое пришло в голову, то и написал)
0
Puporev
Модератор
54714 / 42121 / 29085
Регистрация: 18.05.2008
Сообщений: 99,418
19.12.2009, 22:47 6
дан одномерный массив. необходимо при вводе числа 0 что бы прекратился ввод чисел и вывелась сумма всех введенных чисел матрицы.
Сплошной сумбур. Скорее всего в условии не было ни массива, ни матрицы, а была последовательность, а решается она как написал alexevt, только вместо массива
Pascal
1
var a:integer;
0
kronos
3 / 3 / 0
Регистрация: 16.12.2009
Сообщений: 26
19.12.2009, 22:59  [ТС] 7
спасибо всем
0
кот Бегемот
19.12.2009, 23:01     одномерный массив
  #8

Не по теме:

Puporev , я тоже не понял, нафига там массив, достаточно было числовой переменной

0
19.12.2009, 23:01
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.12.2009, 23:01
Привет! Вот еще темы с ответами:

Дан одномерный массив, получить другой массив той же размерности, каждый элемент которого b[i]=a[1]+.+a[i]
Дан одномерный массив, получить другой массив той же размерности, каждый...

Дан двухмерный массив A[m,n]. Составить одномерный массив из номеров столбцов исходного двухмерного массива, в
Добрый день, никак не получается решить данную задачу. Дан двухмерный...

Вставить одномерный массив в двумерный массив так, чтобы второй столбец был отсортирован по убыванию
Помогите пожалуйста решить задачку: Вставить в качестве новой строки...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru