Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.12.2016, 23:49   #1
TheDailyWish
 
Регистрация: 17.12.2016
Сообщений: 3
По умолчанию Генерация массива(random)

При запуске возникает ошибки:
project1.lpr(19,10) Error: Can't read or write variables of this type
project1.lpr(25,5) Error: Incompatible types: got "Real" expected "LongInt"

Не могу решить эту проблему, помогите!

program project1;
uses crt;
Const N=100;M=100;
var
i,j,s,l,c:integer;
A:array[1..N,1..M] of real;
BEGIN
Writeln ('Programma dlja vyznachennja serednogo aryfmetychnogo dvovymirnogo masyvu ');
Writeln('Vykonav:Ishchenko V.O., Gr.2-AI');
Write ('Vvedit kilkist ryadkiv l= ');
Readln (l);
Write ('Vvedit kilkist stovpciv c= ');
Readln (c);
if(l>=2)and (c>=2)then
for i:=0 to l-1 do
for j:=0 to c-1 do
begin
A[i,j]:=random(50)-30;
readln (A);
end;
s:=0;
for i:=1 to l do
for j:=1 to c do
if i=j then
s:=s+A[i,j];
writeln('Matricya');
for i:=1 to l do
begin
for j:=1 to c do
write(a[i,j],' ');
writeln;
end;
writeln('Summa elementov glavnoj diagonali= ',s);
readln;
END.

Последний раз редактировалось TheDailyWish; 18.12.2016 в 00:07.
TheDailyWish вне форума Ответить с цитированием
Старый 18.12.2016, 00:11   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Код:
A:array[1..N,1..M] of real;
замени на
Код:
A:array[1..N,1..M] of integer;
Удали
Код:
Writeln ('Programma dlja vyznachennja serednogo aryfmetychnogo dvovymirnogo masyvu ');
удали
Код:
readln (A);
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 18.12.2016, 00:30   #3
TheDailyWish
 
Регистрация: 17.12.2016
Сообщений: 3
По умолчанию

Цитата:
Сообщение от Aleksandr H. Посмотреть сообщение
Код:
A:array[1..N,1..M] of real;
замени на
Код:
A:array[1..N,1..M] of integer;
Удали
Код:
Writeln ('Programma dlja vyznachennja serednogo aryfmetychnogo dvovymirnogo masyvu ');
удали
Код:
readln (A);
сделал как ты сказал!
Теперь запуск происходит но только после ввода
Write ('Vvedit kilkist ryadkiv l= ');
Write ('Vvedit kilkist stovpciv c= ');
выдает ошибку
Проект project1 вызвал класс исключения 'External: SIGSEGV'.
В файле 'C:\Users\lora\AppData\Local\Temp\p roject1.lpr' на строке 17
TheDailyWish вне форума Ответить с цитированием
Старый 18.12.2016, 11:06   #4
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Код:
A[i,j]:=random(50)-30;
=>
Код:
A[i,j]:=30 - random(50);
Еще ошибка:
массив описал как
Код:
A:array[1..N,1..M] of integer;
а цикл гоняешь
Код:
for i:=0 to l-1 do
for j:=0 to c-1 do
begin
A[i,j]:=random(50)-30;
end;
тут уж от 1 до l (c) или A[i+1,j+1]

p.s
https://youtu.be/Fok3E7-He-o
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.

Последний раз редактировалось Aleksandr H.; 18.12.2016 в 11:24.
Aleksandr H. вне форума Ответить с цитированием
Старый 18.12.2016, 19:36   #5
TheDailyWish
 
Регистрация: 17.12.2016
Сообщений: 3
По умолчанию

Спасибо за помощь =/)
TheDailyWish вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Стороны квадрата из массива random АлександрАврел Помощь студентам 0 17.12.2012 13:50
Генерация всех перестановок массива aly-lucenko Помощь студентам 4 28.04.2011 14:14
Сумма и произведение элементов массива, удовлетворяющих условию (генерация float массива) felodese Помощь студентам 1 11.11.2010 20:52
Генерация всевозможных состояний массива MoroZzz45 Общие вопросы C/C++ 7 06.06.2010 22:32
Генерация массива ZORRO2005 Microsoft Office Excel 2 23.05.2010 23:47