Модераторы: volvo877, Snowy, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Pascal задача с матрицами. ошибка. 
V
    Опции темы
impario
  Дата 5.1.2009, 15:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 24
Регистрация: 27.12.2008

Репутация: нет
Всего: нет
Доброго вам время суток!!!
Срочно кто может посмотрите че нетак. Показывает ошибку хотя странно.
условие ао вложениях плиз кто может посмотрите исправте.

Код
program pr367;
 uses crt;
  var a:array[1..10] of integer;
      b:array[1..20] of integer;
      c:array[1..10,1..20] of integer;
      i,j:integer;

      begin
        clrscr;
          for i:=1 to 20 do
 begin
            b[i]:=random(10)-3;
  end;
            writeln;
           for j:=1 to 10 do
begin
a[j]:=random(10)-3;
end;
              for i:=1 to 20 do
                 for j:=1 to 10 do
                  begin
                   c[i,j]:=a[j]/(1+b[i]);
                   end;
              writeln('poluchilos');
               write(c[i,j]:6);
                readln;
        end.



Это сообщение отредактировал(а) impario - 5.1.2009, 16:27

Присоединённый файл ( Кол-во скачиваний: 8 )
Присоединённый файл  368.JPG 16,46 Kb
PM MAIL   Вверх
Metalex
Дата 5.1.2009, 15:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 635
Регистрация: 22.10.2008
Где: Украина-ZPсity

Репутация: нет
Всего: нет
Вот те ошибки, которые видно невооруженным глазом (и наверняка есть еще):
1. 
Цитата(impario @  5.1.2009,  15:12 Найти цитируемый пост)
for i:=1 to n do

n не имеет значения. его нет ни в разделе описания констант, ему ничего не присвоено.
2. 
Цитата(impario @  5.1.2009,  15:12 Найти цитируемый пост)
a:array[1..20] of integer;      b:array[1..10] of integer;

Эти массивы одномерные, ты их заполняешь как двумерные:
Цитата(impario @  5.1.2009,  15:12 Найти цитируемый пост)
for i:=1 to n do           for j:=1 to n do           begin           a[j]:=random(10)-3;

Вот.. Исправь это хотя бы.


--------------------
Don't let the system get you down.
PM WWW ICQ Skype   Вверх
impario
Дата 5.1.2009, 16:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 24
Регистрация: 27.12.2008

Репутация: нет
Всего: нет
Все я понял что ступил!!! Я исправил но все равно не идет почему то. Посмотрите пожалуйста. Немогу понять????  
PM MAIL   Вверх
Metalex
Дата 5.1.2009, 17:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 635
Регистрация: 22.10.2008
Где: Украина-ZPсity

Репутация: нет
Всего: нет
 smile 
Во первых, по условию задачи числа действительные, а не целые.
Цитата(impario @  5.1.2009,  15:12 Найти цитируемый пост)

      a:array[1..10] of integer;
      b:array[1..20] of integer;      
      c:array[1..10,1..20] of integer;


Во вторых, вместо этого:
Цитата(impario @  5.1.2009,  15:12 Найти цитируемый пост)
for i:=1 to 20 do
                 for j:=1 to 10 do
                  begin 
                  c[i,j]:=a[j]/(1+b[i]);
                   end; 
             writeln('poluchilos');  
             write(c[i,j]:6);
                readln;

Должно быть:
Код

writeln('poluchilos');
for i:=1 to 20 do
begin
for j:=1 to 10 do
                  begin 
                        c[i,j]:=a[j]/(1+abs(b[i])); {модуль ведь же}
                        write(c[i,j]:6:2); 
                   end; 
             writeln;  
end;
   readln;

В третьих, таблица С действительная (real), поскольку производится деление.
Вроде бы все.



--------------------
Don't let the system get you down.
PM WWW ICQ Skype   Вверх
impario
Дата 5.1.2009, 18:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 24
Регистрация: 27.12.2008

Репутация: нет
Всего: нет
Ну она не работает доконца. И кстати я обнаружил подпрограмму в этой программе. Просто странно???И показывает бесконечный столбик нулей!!!
PM MAIL   Вверх
Metalex
Дата 5.1.2009, 18:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 635
Регистрация: 22.10.2008
Где: Украина-ZPсity

Репутация: нет
Всего: нет
impario, ну ты даешь.. 
Код

program pr367;
 uses crt;
  var a:array[1..10] of integer;
      b:array[1..20] of integer;
      c:array[1..20,1..10] of real;
      i,j:integer;
begin
clrscr;
randomize;

for i:=1 to 20 do
         b[i]:=random(10)-3;
       
for j:=1 to 10 do
         a[j]:=random(10)-3;
    
writeln('poluchilos');
for i:=1 to 20 do
begin
     for j:=1 to 10 do
     begin
          c[i,j]:=a[j]/(1+abs(b[i]));
          write(c[i,j]:7:3);
     end;
     writeln;
end;
readln;
end.


Все работает smile 

Это сообщение отредактировал(а) Metalex - 5.1.2009, 18:33


--------------------
Don't let the system get you down.
PM WWW ICQ Skype   Вверх
impario
Дата 6.1.2009, 04:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 24
Регистрация: 27.12.2008

Репутация: нет
Всего: нет
Извини вчера чето не думалось а сеня все катит!!! Спасибо большое!!! С прошедшим тебя!!!
PM MAIL   Вверх
jorjinho10
Дата 12.4.2009, 13:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 18
Регистрация: 31.3.2009
Где: Saint-Petersburg

Репутация: нет
Всего: нет
ребята , помогите решить такую задачку:
Создать матрицу , вывести на экран , найти строку с наименьшей и наибольшей суммой элементов , вывести 2 эти строки и посчитать сумму их элементов (по отдельности).
Примечание : Матрица должна на экране выглядеть как матрица,не в виде столбца(строки) с номером строки и столбца)

Заранее Спасибо!!!
PM MAIL ICQ Skype   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

Запрещается!

1. Обсуждать и делится взломанными компонентами или программным обеспечением

2. Публиковать ссылки на варез

3. Оффтопить

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0463 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.