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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 27.03.2017, 18:05   #1
anasttb
Пользователь
 
Регистрация: 24.02.2017
Сообщений: 32
По умолчанию Не запускается программа. Программа должна заполнить массив символом. Через процедуру.

Спасибо.

Последний раз редактировалось anasttb; 27.03.2017 в 18:35.
anasttb вне форума Ответить с цитированием
Старый 27.03.2017, 18:31   #2
ZX Spectrum-128
Участник клуба
 
Регистрация: 05.11.2013
Сообщений: 1,602
По умолчанию

Код:
const
  n_max = 100;

type
  matr = array [1..n_max, 1..n_max] of char;

var
  i, j, n, m: integer;
  mas: matr;
  ch: char;

procedure symvol(n, m: integer; ch: char; var mas: matr);
var
  i, j: integer;
begin
  for i := 1 to n do
    for j := 1 to m do
      mas[i, j] := ch;
end;

begin
  writeln('Введите размерность: ');
  readln(n, m);
  Writeln('Введите символ: ');
  readln(ch);
  symvol(n, m, ch, mas);
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(mas[i, j], ' ');
    writeln;  
  end;
end.
ZX Spectrum-128 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
программа для вычисления определенного интеграла методом прямоугольника через процедуру (Turbo Pascal) KristyDolganova Помощь студентам 5 19.12.2012 20:28
Заполнить динамический массив через while Shouldercannon Общие вопросы Delphi 1 06.05.2012 12:38
Как сделать, так что бы программа заканчивалась символом Sylar9 Общие вопросы C/C++ 2 22.03.2012 14:34
Массивы .Программа должна быть на С адуч2323 Помощь студентам 0 26.12.2011 21:31
программа должна считать по этой формуле CheyZe Помощь студентам 0 25.11.2010 19:10