Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
ters21
1 / 1 / 0
Регистрация: 15.01.2015
Сообщений: 28
1

Исправить код работы с массивом

19.01.2015, 18:43. Просмотров 886. Ответов 4
Метки нет (Все метки)

помогите исправить ошибку в этой задаче:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Program Pr7;
Uses Crt;
Var 
n,j,g,m,s,r:integer;
A:Array[1..2,1..8] of integer;
Begin
writeln('введите число');
read (m);
RAndomize;
writeln ('исходный массив');
for i:=1 to 8 do
begin
writeln;
for i:=1 to 8 do
begin
a [i,j]:=RANDOM (15);
write (a[i,j],'_',2);
end;
end;
r:=a[i,j]-a[2,j];
s:= s+r ; j:=j+1; n:=n+1
end;
if n=0 then writeln ('сумма = a);
clse
writeln ('сумма=',s);
end.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.01.2015, 18:43
Ответы с готовыми решениями:

Пример работы с массивом большого размера
Помогите решить задачу Turbo Pascal Пример работы с массивом большого размера....

Что нужно исправить для работы кода
помогите, при вводе чисел выдает 106 ошибку, что тут не так? program z1_27;...

Исправить код
Помогите, пожалуйста, исправить программу, чтобы чтение было из файла ...

Исправить код!
uses crt; var i,j,min,max :integer; A:array of integer; begin randomize;...

Исправить код
задание: В целочисленном векторе vectorn переместить в начало все нулевые...

4
erl27
897 / 745 / 832
Регистрация: 06.09.2013
Сообщений: 1,561
19.01.2015, 19:08 2
Цитата Сообщение от ters21 Посмотреть сообщение
помогите исправить ошибку
Там куча ошибок. Переменная i должна меняться от 1 до 2, а у вас до 8; один end лишний; вместо else написано clse; закрывающий комментарий write поставлен неверно. А в чем состоит задание? Иначе дальше бесполезно.
1
ters21
1 / 1 / 0
Регистрация: 15.01.2015
Сообщений: 28
19.01.2015, 19:11  [ТС] 3
Дана таблица 2*8. Последовательно суммировать разности 1 и 2 элемента каждого столбца. Выводя значение каждой суммы прекратить суммирование, если значение суммы превысит заданную
0
vint-81
охотник
1009 / 533 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
19.01.2015, 19:40 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Program Pr7;
Var i,j,m,r:integer;
    A:Array[1..2,1..8] of integer;
    f:boolean;
Begin
 RAndomize;
 write('исходный массив');
 for i:=1 to 2 do
  begin
   writeln;
   for j:=1 to 8 do
    begin
     a [i,j]:=RANDOM (15);
     write (a[i,j]:4);
    end;
  end;
 writeln;
 writeln('введите значение которое не должна превышать сумма ');
 readln (m);
 writeln('суммы:');
 f:=true;
 j:=1;
 r:=0;
 while (f)and(j<9) do
  begin
   r:=r+(a[1,j]-a[2,j]);
   if r>m then f:=false;
   write(r:4);
   inc(j);
  end; 
 writeln;
 if f then writeln('сумма разностей не превысила ',m)
      else writeln('сумма разностей превысила ',m);
end.
2
ters21
1 / 1 / 0
Регистрация: 15.01.2015
Сообщений: 28
19.01.2015, 19:48  [ТС] 5
спасибо , можно закрывать
0
19.01.2015, 19:48
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.01.2015, 19:48

Исправить код
program P4; type school = record nm:integer; name: string; surname:...

Как исправить код?
Program sortitovka; var i,n:integer; a:array of integer; procedure...

Нужно исправить код
Нужно записать процедуру вывода массива, для исходного. Для конечного...


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

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

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