Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Turbo Pascal Подсчитать, сколько раз среди заданных символов встречается символ + даны натуральное число n,символы s1,...,sn.подсчитать сколько раз среди данных символов встречается символ + и сколько раз символ * https://www.cyberforum.ru/ turbo-pascal/ thread303074.html В последовательности X найти два элемента Turbo Pascal
Кто-нибудь знает, как решить? Все перепробовал, нифига не вышло В последовательности X найти два элемента, разность между значением одного из них и величиной А по модулю должна быть МАХ, а между значением второго и величиной А по модулю - MIN. Найденные элементы поменять местами. Значения этих элементов и их номера напечатать. Преобразованную последовательность выдать на экран в строку.
Turbo Pascal Найти сумму цифр, входящих в строку https://www.cyberforum.ru/ turbo-pascal/ thread303043.html
Вобщем все не так просто) желательно чтобы задачи были с обьяснением, т.е. рассказать что означает каждое действие. 1. Найти сумму цифр, входящих в строку. 2. ПОдсчитать количетсво слов в строке(связано с пробелами) 3. Вывести из строки все слова, в которых буква "а" встречается не менее 5 раз - независимо от регистра. 4. Заменить все буквы, стоящие после "__" на такие же, но заглавные. ... 		Turbo Pascal Графика. Движущиеся рисунки. https://www.cyberforum.ru/ turbo-pascal/ thread303015.html
Здравствуйте. Пишу программу где должны двигаться несколько рисунков, но столкнулся с проблемой что рисунки не хотят двигаться одновременно а только по очереди. Пожалуйста помогите разобраться. uses crt, graph; Type dvizh=record x,y:word; end; var d, m, size:integer; x,y:longint;p:pointer; begin d := detect;
Turbo Pascal проверить для числа гипотезу Гольдбаха
Люди помогите программу составить, а то в паскале вобще не понимаю...:cry: дано четное число n> 2; проверить для этого числа гипотезу Гольдбаха. Эта гипотеза (на сегодняшний день не опровергнута и не доказана) заключается в том, что каждое четное n, больше чем 2, представляется в виде суммы двух простых чисел (Определение простых чисел оформить в виде подпрограммы) 		Turbo Pascal Составить таблицу из цифр Не получается составить таблицу. Она должна выглядеть так: 1 0 2 2 0 0 3 3 3 0 0 0 4 4 4 4 0 0 0 0 https://www.cyberforum.ru/ turbo-pascal/ thread302984.html
Turbo Pascal Паскаль, записи! Помогите пожалуйста с решением задачи! Написати програму яка створює типізований файл, в який записує введений користувачем з клавіатури масив елементів типу запис з полями: -прізвище, імя студента; -оцінка по дисципліні(праця, по чотири бальній системі); -оцінка по дисципліні(інформатика, по чотири бальній системі); -стать студента; Кількість елементів масиву вводиться з клавіатури.Язык... https://www.cyberforum.ru/ turbo-pascal/ thread302970.html Turbo Pascal курсовая
program kursova; uses crt; type ARR=ARRAY of real; XRR=ARRAY of real; var A:ARR; X:XRR; G:real; procedure...
Turbo Pascal В заданной матрице A(N,M) наидиите количество строк, не содержащих отрицательных чисел. В заданной матрице A(N,M) найдите количество строк не содержащих отрицательных чисел. https://www.cyberforum.ru/ turbo-pascal/ thread302952.html Turbo Pascal намальована машина..як зробить щоб рухались колеса https://www.cyberforum.ru/ turbo-pascal/ thread302949.html
program Speed; uses crt,graph; Var gd,gm,i:integer; begin clrscr; detectgraph (gd,gm); initgraph (gd,gm,'D:\FPC\\units\i386-win32\graph\');
Turbo Pascal Определить, сколько квадратов можно отсечь, если каждый раз отсекается самый большой квадрат
Дан прямоугольник со сторонами А и Б, где А и Б - натуральные числа. От него отсекаются квадраты. Сколько квадратов можно отсечь, если каждый раз отсекается самый большой квадрат? Честно говоря, задание не до конца понял. Помогите, пожалуйста. Добавлено через 42 минуты Никто не знает? Добавлено через 1 час 0 минут Я жду ещё... 		Turbo Pascal Строки и Файлы Строки и Файлы. Написать программу,которая считывает из файла и выводит на экран только предожение,состоящее из заданного количества строк. Помогите кому не трудно!! За ранее Спасибо!!! Добавлено через 47 минут program codenet_example; uses crt; var TXT : Text; https://www.cyberforum.ru/ turbo-pascal/ thread302926.html
143 / 143 / 141
Регистрация: 05.04.2011
Сообщений: 270
24.05.2011, 20:15 0

Обойти шахматным конем все клетки шахматной доски, побывав на каждой клетке по одному разу - Turbo Pascal - Ответ 1686363

24.05.2011, 20:15. Показов 5415. Ответов 3
Метки (Все метки)
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34

const inf=1;
var n,i,j,x1,y1:longint;
    a:array[-2..100,-2..100] of longint;
procedure rec(x,y:longint);
begin
a[x,y]:=-1;
if a[x+2,y-1]=inf then rec(x+2,y-1);
if a[x+2,y+1]=inf then rec(x+2,y+1);
if a[x-2,y-1]=inf then rec(x-2,y-1);
if a[x-2,y+1]=inf then rec(x-2,y+1);
if a[x+1,y-2]=inf then rec(x+1,y-2);
if a[x-1,y-2]=inf then rec(x-1,y-2);
if a[x+1,y+2]=inf then rec(x+1,y+2);
if a[x-1,y+2]=inf then rec(x-1,y+2);
 
end;
 
begin
  for i:=1 to 8 do
    for j:=1 to 8 do
  a[i,j]:=inf;
 
  readln(x1,y1);
  rec(x1,y1);
 
  for i:=1 to 8 do
    begin
      for j:=1 to 8 do
        write(a[i,j],' ');
      writeln;
    end;
    readln;
    readln;
end.


Вернуться к обсуждению:
Обойти шахматным конем все клетки шахматной доски, побывав на каждой клетке по одному разу Turbo Pascal
2
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 24.05.2011, 20:15
Готовые ответы и решения:

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

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

Обойти конём все поля шахматной доски
Обойти конём все поля шахматной доски размером (n х n) клеток, побывав на каждом из полей ровно...

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

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

в клетке шахматной доски с координатами (х,у) стоит конь. Клетки, которые находятся под боем этого коня заполн
Ребят срочно нужно решить,40 минут есть помогите пожалйста!!!

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

Возможность обхода поля побывав по 1 разу в клетке
имеется стандартная задача: поле квадрат 7 на 7 в клетку. в каждой клетке можно побывать 1 раз....

Обход доски шахматным конем
решал задачу "Тур конем". : На шахматной доске размером n*n на поле с координатами x0,y0 находится...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru