Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 28.03.2015, 14:54   #11
Stilet
Белик Виталий :)
Профессионал
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Адрес: Украина, Донецкая область, г. Краматорск
Сообщений: 57,815
Репутация: 6850
По умолчанию

Юля, внимательнее будь )
Не спеши, а то вот такие ляпы и получаются с переменными.
__________________
I'm learning to live...
Stilet вне форума   Ответить с цитированием
Старый 28.03.2015, 14:58   #12
Serge_Bliznykov
МегаМодератор
СуперМодератор
 
Регистрация: 09.01.2008
Сообщений: 25,869
Репутация: 5617
По умолчанию

Цитата:
Сообщение от newerow1989 Посмотреть сообщение
Код:
writeln('vvedite kollichestvo strok');
readln(n);//!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
writeln('vvedite kollichestvo stolbcov');
readln(m);//!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
for i:=0 to n-1 do
    for j:=0 to m{!!!!!!!!!!!!!!!!!!!!!!!!!!!}-1 do
переменные n, m!
так может не сработать. у неё n константа. не любой паскаль позволяет менять константы...

я бы так записал:
Код:

const
 MaxN=100;
var
  i,j,n,m : integer;
  a : array [0..MaxN-1,0..MaxN-1] of real;
begin
  randomize;
  writeln('vvedite kollichestvo strok');
  readln(n);
  writeln('vvedite kollichestvo stolbcov');
  readln(m);
  for i:=0 to n-1 do begin
    for j:=0 to m-1 do
    begin
       a[i,j]:=random(100);
      Write(a[i,j]:2, ' ');
    end;
   writeln;
  end;
  Readln {приостановим программу до нажатия ENTER}
end.
Serge_Bliznykov вне форума   Ответить с цитированием
Старый 28.03.2015, 15:03   #13
newerow1989
Я самый любопытный
Профессионал
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Адрес: RU, Алтайский край, Красногорский р-н, с. Балыкса, ул. Центральная Сообщений: 7,541 Репутация: 37104
Сообщений: 1,767
Репутация: 1655

skype: newerow1989
По умолчанию

Проще так написать:
Код:
const n=100;
var i,j:integer;
     a : array [0..n-1,0..n-1] of integer;
begin
  Randomize;
  for i:=0 to n-1 do begin
    for j:=0 to n-1 do
    begin
       a[i,j]:=random(100);
      Write(a[i,j]:2, ' ');
    end;
   writeln;
  end;
  Readln {приостановим программу до нажатия ENTER}
end;
__________________
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.narod.ru
[Паскаль] [Delphi]
newerow1989 вне форума   Ответить с цитированием
Старый 28.03.2015, 15:18   #14
Serge_Bliznykov
МегаМодератор
СуперМодератор
 
Регистрация: 09.01.2008
Сообщений: 25,869
Репутация: 5617
По умолчанию

Цитата:
Проще так написать:
да, написать так проще, согласен.
вот только, думаю, что матрица на экране не поместится
впрочем, сказанного (и примеров кода) достаточно, чтобы Юля могла разобраться в теме.
Serge_Bliznykov вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
паскаль обработка матриц qw1t Помощь студентам 1 17.01.2013 21:49
Создание матриц tookie Помощь студентам 3 24.11.2011 06:43
Создание Матриц. Язык Си K0T9RA Помощь студентам 3 03.04.2011 17:34
Написание кода в Delphi на создание матриц Chertenok666 Помощь студентам 9 30.11.2009 19:23


19:50.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.