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

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

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

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 22.01.2008, 10:42   #11
alexBlack
Участник клуба
 
Регистрация: 12.10.2007
Сообщений: 1,204
По умолчанию

Судя по коду for m:=j to n do.
alexBlack вне форума
Старый 22.01.2008, 11:15   #12
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

Вот уменя есть такая задача, буквы свои напиши и убери метки (label),зачем они тебе.
Код:
program matrica;
uses crt;
var n,i,j:integer;
    Nstr,Nstb:integer;
    a:array[1..50,1..50]of integer;
begin
clrscr;
write('n=');readln(n);
write('vvedite Nstr<n: ');readln(Nstr);
write('vvedite Nstb<n: ');readln(Nstb);
randomize;
for i:=1 to n do
   begin
      for j:=1 to n do
         begin
           a[i,j]:=random(10);
           write(a[i,j]:3);
         end;
      writeln;
   end;
readln;
{Udalenie stoldca}
for i:=1 to n do
for j:=Nstb to n-1 do
   begin
     a[i,j]:=a[i,j+1];
   end;
{Udalenie stroki}
for j:=1 to n do
for i:=Nstr to n-1 do
   begin
     a[i,j]:=a[i+1,j];
   end;
for i:=1 to n-1 do
   begin
     for j:=1 to n-1 do
     write(a[i,j]:3);
     writeln;
   end;
readln;
end.
end.
puporev вне форума
Старый 26.01.2008, 00:19   #13
Raptor5
Пользователь
 
Регистрация: 13.01.2008
Сообщений: 32
По умолчанию

еще раз спс
Raptor5 вне форума
Старый 27.01.2008, 17:18   #14
Alex21
With best regards
Участник клуба
 
Регистрация: 20.04.2007
Сообщений: 1,448
По умолчанию

один вопрос - одна тема.
Задачи - в Помощь студентам.
Закрыто.
Alex21 вне форума
Закрытая тема


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
помогите плиз....срочно нада masta_ag Помощь студентам 3 24.06.2008 08:31
Edit помогите срочно плиз? -( One.Love Общие вопросы Delphi 4 06.04.2008 09:58
Помогите плиз с задачей Raptor5 Помощь студентам 3 28.01.2008 09:41
Помогите плиз с задачей Raptor5 Паскаль, Turbo Pascal, PascalABC.NET 4 21.01.2008 10:38