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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 16.12.2010, 23:58   #1
Cas01
Форумчанин
 
Регистрация: 16.12.2010
Сообщений: 175
По умолчанию Процедуры(Паскаль)!

Помогите написать прогу.
Вот условие:
Написать процедуру,которая выдает на экран(в текстовом режиме)таблицу из m строк и n столбцов шириной p позиций каждый.Привести пример использования разработанной процедуры.


Заранее спасибо!!!
Cas01 вне форума Ответить с цитированием
Старый 17.12.2010, 00:19   #2
rubius2008
Форумчанин
 
Регистрация: 19.03.2010
Сообщений: 409
По умолчанию

Код:
procedure print(m,n,p:integer);
var i,j:integer;
begin
  for i:=1 to m do begin
    for j:=1 to n do write(i*j:p);
    writeln;
  end;
end;
Есть вопросы, пишите в ЛС.
rubius2008 вне форума Ответить с цитированием
Старый 17.12.2010, 00:29   #3
Cas01
Форумчанин
 
Регистрация: 16.12.2010
Сообщений: 175
По умолчанию

ага.!
Т.е. дольше мне нужно написать пример использования этой процедуры да?
Cas01 вне форума Ответить с цитированием
Старый 17.12.2010, 00:32   #4
rubius2008
Форумчанин
 
Регистрация: 19.03.2010
Сообщений: 409
По умолчанию

Цитата:
Сообщение от Cas01 Посмотреть сообщение
ага.!
Т.е. дольше мне нужно написать пример использования этой процедуры да?
да хотяб просто вызвать ее, она и так выводит произведение (i на j)
Есть вопросы, пишите в ЛС.
rubius2008 вне форума Ответить с цитированием
Старый 17.12.2010, 00:38   #5
Cas01
Форумчанин
 
Регистрация: 16.12.2010
Сообщений: 175
По умолчанию

А я вот в Паскаль вот это забиваю:Program Z10;
procedure print(m,n,p:integer);
var i,j:integer;
begin
for i:=1 to m do begin
for j:=1 to n do write(i*j);
writeln;
end;
end;
а она не работает.
Cas01 вне форума Ответить с цитированием
Старый 17.12.2010, 00:46   #6
andrewpalkin
Форумчанин
 
Аватар для andrewpalkin
 
Регистрация: 23.11.2010
Сообщений: 458
По умолчанию

Цитата:
Сообщение от Cas01 Посмотреть сообщение
А я вот в Паскаль вот это забиваю:Program Z10;
procedure print(m,n,p:integer);
var i,j:integer;
begin
for i:=1 to m do begin
for j:=1 to n do write(i*j);
writeln;
end;
end;
а она не работает.
А где у тебя основная программа , из которой ты вызываешь процедуру ?
--- Если я вам помог , то помогите и вы мне . Не просто просите решить задачу , а пробуйте ее сами решить ! Я не пишу программы с нуля , я помогаю поправить код ! ---
andrewpalkin вне форума Ответить с цитированием
Старый 17.12.2010, 14:25   #7
Cas01
Форумчанин
 
Регистрация: 16.12.2010
Сообщений: 175
По умолчанию

Ну а не подскажите как она должно выглядеть?вся программа,вместе с процедурой,чтобы работала.
Я просто новичок в этом деле.
Cas01 вне форума Ответить с цитированием
Старый 17.12.2010, 14:35   #8
Ol'ga_new
Форумчанин
 
Регистрация: 12.05.2010
Сообщений: 125
По умолчанию

Ннапример добавить :
Код:
begin
print(4,6,2);
end.
Ol'ga_new вне форума Ответить с цитированием
Старый 17.12.2010, 14:42   #9
Cas01
Форумчанин
 
Регистрация: 16.12.2010
Сообщений: 175
По умолчанию

ага....спасибо!
Cas01 вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
процедуры в паскаль кусака Паскаль, Turbo Pascal, PascalABC.NET 1 09.06.2010 23:16
Паскаль.Процедуры uropb992 Помощь студентам 10 09.06.2010 21:13
паскаль процедуры milasssska Помощь студентам 1 27.05.2010 20:58
паскаль процедуры milasssska Помощь студентам 2 27.05.2010 20:45
процедуры паскаль mono Помощь студентам 6 06.04.2009 23:55