Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Дан файл целых чисел. Подсчитать произведение чисел большее 5 https://www.cyberforum.ru/ pascalabc/ thread672543.html program primer; var fx: text; s,c:integer; begin assign(fx,'F:\0001.txt'); reset (fx); S:=0; while not Eof(fx) do begin read (fx,c);	Даны текстовые файлы f.txt и g.txt. Сравнить являются ли они равными Pascal ABC Даны текстовые файлы f.txt и g.txt. Сравнить являются ли они равными. Помогите пожалуйста.
Pascal ABC С начала суток прошло n секунд. Выведите, что покажут часы Электронные часы показывают время в формате h:mm:ss, то есть сначала записывается количество часов, потом обязательно двузначное количество минут, затем обязательно двузначное количество секунд. Количество минут и секунд при необходимости дополняются до двузначного числа нулями. С начала суток прошло n секунд. Выведите, что покажут часы. Вот примерное решение, но почему то не получается... https://www.cyberforum.ru/ pascalabc/ thread672478.html	Pascal ABC Разность времен Здравствуйте, уважаемые программисты! помогите пожалуйста с задачкой! условие задачи - Даны значения двух моментов времени, принадлежащих одним и тем же суткам: часы, минуты и секунды для каждого из моментов времени. Известно, что второй момент времени наступил не раньше первого. Определите, сколько секунд прошло между двумя моментами времени. Программа на вход получает три целых числа — часы,... https://www.cyberforum.ru/ pascalabc/ thread672454.html
Работа со строками Pascal ABC Помогите пожалуйста решить задачку. Дана непустая строка из строчных русских букв. Напечатать в алфавитном порядке все согласные буквы, не входящие в строку.	Pascal ABC Для введенного целого числа вычислите произведение его цифр https://www.cyberforum.ru/ pascalabc/ thread672437.html Для введенного целого числа вычислите произведение его цифр
Pascal ABC Какие ограничения накладывает на переменную указанных для нее тип? https://www.cyberforum.ru/ pascalabc/ thread672435.html Какие ограничения накладывает на переменную указанных для нее тип?	Pascal ABC Найдите все ошибки в написание указанных операторов: READLN(Y+1;X); WRITELN("ВВЕДИТЕ ЧИСЛО"=5); READLN(5);X:=7DIV2 ORD Y;
Pascal ABC Графические элементы в Паскаль абс https://www.cyberforum.ru/ pascalabc/ thread672431.html Всем привет. В моем колледже мы пропускаем графическую часть Паскаля, а мне хотелось бы самостоятельно это освоить для дальнейшего написания простеньких игр. Сразу говорю, не надо мне советовать другие языки для игр. Я прошу помощи конкретно по графике в паскале, а именно: литературу какую-нибудь, ссылки на сайты, где все подробно рассказывается. А так же хотелось бы узнать, что необходимо знать...	Pascal ABC Укажите последовательность выполнения операций в произвольном выражении при отсутствии скобок Укажите последовательность выполнения операций в произвольном выражении при отсутствии скобок https://www.cyberforum.ru/ pascalabc/ thread672428.html
Pascal ABC Дайте определение зарезервированного (служебного) слова языка Дайте определение зарезервированного (служебного) слова языка	Pascal ABC Сформировать новый массив так, чтобы в начале шли положительные, потом нулевые и отрицательные https://www.cyberforum.ru/ pascalabc/ thread672391.html Разработать алгоритм в Паскале Сформировать массив чисел А, а затем из него получить новый массив В таким образом, чтобы в начале шли положительные элементы, потом нулевые и, наконец, отрицательные.

myxayan

4 / 4 / 8

Регистрация: 16.10.2012

Сообщений: 93

19.10.2012, 20:52 [ТС]

Построить квадратную матрицу порядка 2n - Pascal ABC - Ответ 3582376

19.10.2012, 20:52. Показов 3925. Ответов 2

Метки (Все метки)

Сообщение было отмечено myxayan как решение

Решение

если что я сделал прогу, кому надо, то вот:

Pascal

uses crt;
const n=11;
var
 x:array[1..n] of integer;
 a:array[1..2*n,1..2*n] of integer;
 i,j:byte;
 
begin
for i:=1 to n do
 x[i]:=n-i+1;
 for i:=1 to n do
 write(x[i],' ');   writeln;
 for i:=1 to 2*n do
  for j:=1 to 2*n do
  begin
   if (j<=n) and (i<=n) then     a[i,j]:=x[j];
   if (j>n) and (i<=n) then a[i,j]:=2* x[j-n];
   if (j<=n) and (i>n) then a[i,j]:= 3*x[j];
   if (j>n) and (i>n) then a[i,j]:= 4*x[j-n];
   end;
   for i:=1 to 2*n do
    begin
        writeln;
      for j:=1 to 2*n do
     write(a[i,j]:3);
   end;
   end.

Вернуться к обсуждению:
Построить квадратную матрицу порядка 2n Pascal ABC

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

19.10.2012, 20:52

Готовые ответы и решения:

Построить целочисленную квадратную матрицу порядка n заданного вида
Дано целое число n. Построить целочисленную квадратную матрицу порядка n вида. Помогите...

Получить квадратную матрицу порядка n

Сформировать квадратную матрицу порядка n
1 2 3 ... n-2 n-1 n 2 2 4 ... n-1 n 0 3 4 5 ... n 0 ...

Сформировать квадратную матрицу порядка n
сформировать квадратную матрицу порядка n по заданному образцу c выводом в файл ...

	19.10.2012, 20:52

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

19.10.2012, 20:52

Помогаю со студенческими работами здесь

Сформировать квадратную матрицу порядка n
0 0 0 ...0 0 1 0 0 0 ...0 2 0 0 0 0 ...3 0 0 ................. 0 n-1 0....0 0 0 n 0 0 ...0 0...

Заполнить квадратную матрицу порядка N
Заполнить квадратную матрицу порядка N (порядок кратен 4), поделенную на 4 квадрата таким образом:...

Сформировать квадратную матрицу n-го порядка
Помогите сделать матрицу по образцу Сам попробовал но что то вникнуть не могу Const x =...

Получить квадратную матрицу порядка 10
Дано действительное число х. Получить квадратную матрицу порядка 10 (середина заполняется нулями)....

Наверх