Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal програмирование лин-х алгаритмов https://www.cyberforum.ru/ pascal/ thread196271.html
определить имеется ли среди чисел a b c хотя бы одна пара взаимно противоположных чисел
Pascal Вычисление суммы бесконечного ряда с заданной точностью в Qbasic
Помогите пожалуйста разобраться Нужно вычислить сумму бесконечного ряда с заданной точностью. y=y+sin((2i+1)x)/(2i+1)^3 0<=x<=число пи ε=1*10^(-3)
Pascal Функция Y = f(x) задана своим графиком Функция Y = f(x) задана своим графиком Составить алгоритм и программу, определяющую Y по заданному X. https://www.cyberforum.ru/ pascal/ thread196260.html Pascal работа с файлами https://www.cyberforum.ru/ pascal/ thread196257.html
помогите пожалуйста=)) вообще не понимаю как делать=(( Условие : Необходимо подсчитать частоту цифр и комбинации цифр в файле, который содержит 10 000 знаков.
масив Pascal
1) Массив заполнить случайными числами с помощью функции Ramdom (). 2) Определить количество перестановок которые понадобились для упорядочения. 3) При выводе массивов к упорядочению и после составления вывода организовать в таком виде: А = А = А = А = А = А = Упорядочить колонки матрицы по возрастанию
Pascal Два слова по алфавиту. С клавиатуры вводят 2 слова. Составьте программу, которая распологает их в алфавитном порядке. https://www.cyberforum.ru/ pascal/ thread196244.html
Pascal Матрицы. Добрый вечер.Подскажите пожалуйста в чем моя ошибка. Не могу понять, почему программа выдает неверный результат. В данной целочисленной матрице A(n,n) поменять местами строку и столбец, на пересечении которых находится наибольший элемент главной диагонали матрицы. Новую матрицу не заводить. program Project6b; {$APPTYPE CONSOLE} uses SysUtils; var a:array of integer; ... https://www.cyberforum.ru/ pascal/ thread196240.html вычислите сумму N слагаемых заданного вида Pascal
При некоторых заданных x,N и Е, определяемых вводом, вычислите сумму N слагаемых заданного вида, а также суму тех слагаемых, которые по абсолютной величине больше Е. Для второго случая выполните суммирование для двух значений Е, отличающихся на порядок, и при этом определите количество слагаемых, включенных в сумму. Сравните результаты с точным значением функции, для которой данная сумма...
Pascal Составить блок-схемы https://www.cyberforum.ru/ pascal/ thread196237.html
помогите блок-схему сделать, пожалуйста.. . Вычислить: a)* y=(2n-1)!!=1*3*5*…*(2n-1), n>0; б) y=(2n)!!=2*4*…*(2n), n>0 в) y=n!! n>0 program V_5_13; var n, i: integer; y: longint; begin
Pascal 4. Використання динамічних структур при розв’язуванні зада обчислювальної геометрії. Сделать презентацыю на тему ''Використання динамічних структур при розв’язуванні задач обчислювальної геометрії.''Какой материал можно сюда добавить!!! https://www.cyberforum.ru/ pascal/ thread196234.html
сформировать массив состоящий из вещественных элементов Pascal
сформировать массив состоящий из вещественных элементов из него получить массив состоящий из целых.:wall::wall::wall::wall::wall::wall::wall::wall::wall:
Pascal Паскаль решить с помошью операторов иф, фор и репит Дано натуральное число N.Вычислить: cos 1/sin 1 * cos 1+cos 2/sin 1+sin 2 * ....* cos 1+cos 2+...cos N/sin 1+sin 2+...Sin N. https://www.cyberforum.ru/ pascal/ thread196230.html
Почетный модератор
64291 / 47589 / 32740
Регистрация: 18.05.2008
Сообщений: 115,181
23.11.2010, 19:05 0

игра - Pascal - Ответ 1135740

23.11.2010, 19:05. Показов 998. Ответов 3
Метки (Все метки)

Ответ

Расставить их по диагоналям, или формулу придумать, или сдвигом влево.
Код
A B C D
B C D A
C D A B
D A B C
Добавлено через 6 минут
Вот простое решение для квадрата 4х4.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
const n=4;
var a:array[1..n,1..n] of char;
    i,j:byte;
begin
clrscr;
writeln('Массив:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    case i+j of
    2,6:a[i,j]:='A';
    3,7:a[i,j]:='B';
    4,8:a[i,j]:='C';
    5:a[i,j]:='D';
    end;
    write(a[i,j]:2);
   end;
  writeln;
 end;
readln
end.


Вернуться к обсуждению:
игра Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.11.2010, 19:05
Готовые ответы и решения:

2D игра
Я бы хотел сделать игру на подобии Dont Starve. Но я не понимаю как сделать 2D игру с таким...

Игра в города
Собственно написал код: program game; var n, i, j : integer; wrd :...

игра пятнашки
не могу найти ошибку в коде(( когда переходит в режим игры на экране нарисовано поле склетками а...

Игра Ёжик
Помогите пожалуйста решить задачу на языке Pascal))) Смысл компьютерной игры в том, чтобы собрать...

3
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.11.2010, 19:05
Помогаю со студенческими работами здесь

игра гонки
помогите составить план для игры гонки, нужно чтоб можно было вводить имя и показывало лучший...

Игра Баше.
Игра Баше. Имеется 15 одинаковых предметов. В играют двое. Сопреники ходят по очереди, за каждый...

Игра Cчиталка
очередь. реализовать игру считалка, начав отчет от первого, удалять каджый k-ый элемент (k задано)....

Игра в слова
Нужно написать программу для игры в слова, но вопрос собственно не в этом, а вот в чем, написал я...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru