Форум программистов, компьютерный форум, киберфорум
Наши страницы

Free Pascal

Войти
Регистрация
Восстановить пароль
 
Nekss
0 / 0 / 0
Регистрация: 15.01.2013
Сообщений: 3
#1

Задача по теме "квадратная матрица" - Free Pascal

15.01.2013, 13:04. Просмотров 322. Ответов 4
Метки нет (Все метки)

Никак не могу сделать домашнее задание. Облазил почти весь интернет, все ГДЗшки, учебники. Начал читать литературу по этой теме, но там не было пояснений для такой задачи.
Короче, вот:
1,2,3...n
n, n-1, n-2...1
1,2,3...n
n,n-1,n-2...1
(создать бесконечную квадратную таблицу)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.01.2013, 13:04
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Задача по теме "квадратная матрица" (Free Pascal):

В каждом слове текста замените "а" на букву "е", если "а" стоит на четном месте - Free Pascal
В каждом слове текста замените "а" на букву "е", если "а" стоит на четном месте, и заменить букву "б" на сочетание "ак", если "б" стоит на...

В словосочетании заменить два символа "ас" на один символы "_+_" и удалить знак "*" - Free Pascal
В данном словосочетании заменить два символа "ас" на один символы "_+_" и удалить знак "*".

Ошибка при компиляции "Syntax error "Begin" expected but ";" found" - Free Pascal
При компиляции выдаёт ошибку "Syntax error "Begin" expected but ";" found" в блоке Procedure GetLevel(var f:text); var ...

Ошибка "Syntax error, "BEGIN" expected but "end of file" found" - Free Pascal
В чём заключается ошибка в 73 строке под названием "Syntax error, "BEGIN" expected but "end of file" found"? Код: unit Unit1; {$mode...

Ошибка: "sintax error, "OF" expected, but "[" found" - Free Pascal
Здравствуйте, в 4 строке компилятор выдаёт ошибку: "sintax error, "OF" expected, but "var str,alpha,u:string; a,b:array of char; ...

как пишется задача в "Паскаль" - Free Pascal
Первая бригада маляров за t1 час покрасила Aм^2 стен,а вторая бригада за t2часов покрасила Bм^2.У какой бригады производительность труда...

4
CodeR
Фрилансер
3376 / 2778 / 788
Регистрация: 08.02.2012
Сообщений: 6,355
Записей в блоге: 1
15.01.2013, 13:15 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Uses Crt;
Var A:array[1..20,1..20] of integer;
    n,i,j:byte;
Begin
    ClrScr;
    write('N<=20 = ');readln(n);
    For i:=1 to n do
    Begin
      For j:=1 to n do
      Begin
        if odd(i) then A[i,j]:=j
         else A[i,j]:=n-j+1;
        write(A[i,j]:3);
      End;
      writeln;
    End;
    readln;
End.
1
Nekss
0 / 0 / 0
Регистрация: 15.01.2013
Сообщений: 3
15.01.2013, 13:26  [ТС] #3
Спасибо, работает. Я удивился, как быстро мне ответели...
0
Puporev
Модератор
52981 / 40792 / 14040
Регистрация: 18.05.2008
Сообщений: 94,862
15.01.2013, 13:42 #4

Не по теме:

Цитата Сообщение от Nekss Посмотреть сообщение
Облазил почти весь интернет, все ГДЗшки, учебники.
А сколько тогда тебе лет? На пенсии наверное....



Добавлено через 1 минуту

Не по теме:

Да и бесполезно там мозги искать..

0
Nekss
0 / 0 / 0
Регистрация: 15.01.2013
Сообщений: 3
15.01.2013, 17:00  [ТС] #5
Согласен с тобой. Мозги-не мозги, а когда напропускаешь уроков, сразу весь курс массивов не выучишь.

Добавлено через 48 секунд
А задача завтра уже нужна, учительница очень строгая
0
15.01.2013, 17:00
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.01.2013, 17:00
Привет! Вот еще темы с ответами:

Олимпиадная задача "Почтовая служба" - Free Pascal
Помогите пожалуйста, вот условие : Почтовая служба Почтовая служба страны со странным названием «Хи в квадрате» решила наконец-то...

Ошибка "Syntax Error, ":" expected but ";" found - Free Pascal
Unit SourceModMenu; interface Uses Crt; function Menu(X,Y: integer):integer; //Функция для меню Procedure Menu80; //...

Объект "матрица" - Free Pascal
На понедельник нужно сдать лабораторную, конец семестра. Помогите. Задание: создать обьект, наследник данного обьекта, и показать...

Задача "Рабочее время" - Free Pascal
Задача: Рабочее время (Время: 1 сек. Память: 16 Мб Сложность: 26%) Иван Иванович – очень ответственный, но очень рассеянный...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.