• Задачи Турбо Паскаль С Решением
• Снежинка
• Задачи Turbo Pascale

10 лет назад Задача 1 Станции техобслуживания Компания занимается продажей персональных компьютеров в N городах (3.

Курсовая работа 'Решение математической задачи' на Turbo Pascal 7.0 (DOS) (Паскаль).

Задача 3 Площади островов Карта моря задана матрицей размера N.M, состоящей из квадратиков, в которых записаны 0 или 1. 0 –это вода,1-суша. Два квадратика с единицами принадлежат одному острову, если они имеют общую сторону.

Найти количество островов и площадь каждого острова. Площади островов вывести в порядке неубывания. Входные данные: в первой строке два целых числа N и M (1. 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 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 program zad5; Var a: array 0.

200 of longint; di: array 1. 4 of integer = ( - 1, 0, 1, 0 ); массивы приращений индексов dj: array 1. 4 of integer = ( 0, 1, 0, - 1 ); pl: array 1. 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 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 program zad5; Const nmax = 10; di: array 1. 4 of integer = ( 0, 1, 0, - 1 ); dj: array 1. 4 of integer = ( 1, 0, - 1, 0 ); Var n,m,io,jo,i,j,kolnew,kolold,kol: integer; new,old: array 1. Nmax of integer; новая и старая очереди a: array 0.

Nmax + 1 of integer; карта s: array 1. Nmax.nmax div 2 of integer; массив площадей островов log: boolean; сигнал о том есть ли острова procedure Init; begin assign (input,’input. Txt’ ); reset (input ); readln (n,m ); считываем размеры fillchar (a,sizeof (a ), 0 ); for i: = 1 to n do begin for j: = 1 to m do begin read (c ); считываем символ if c =’ 1’ then a i,j : = 1 и помещаем соответствующее значение в массив else a i,j : = 0; end; readln; переходим на новую строку end; end; Procedure out; вывод результатов var i: integer; begin assign (Output,’Output. Я подобрал для вас темы с ответами на вопрос Олимпиадная задача.

Задачи Турбо Паскаль С Решением

Не работает (Turbo Pascal): Дана задача: Перевести десятизначное число n в двузначное, и циклически сдвигать его вправо, до тех пор, пока не получится максимальное. Хотел бы попросить помощи в поиске ошибок моего алгоритма. Если кто либо найдёт ошибку в выводном результате, попрошу. Какое число ввел пользователь, если ответом является число 100 var a: array of integer; i:integer; sum: integer; begin. Помогите с решение задачи. 1)Отгадать целое число которое загадал компьютер в определённом диапазоне? 2)Lesson:В первом полугодии 2007-08 учебного года занятия.

Снежинка

Провайдеры, предоставляющие услуги доступа в интернет широкому пользователю, часто составляют различную статистику посещений сайтов. Вот еще темы с ответами: Помогите, пожалуйста, решить олимпиадную задачу! На квадратном торте стоит N свечей. Можно ли одним прямолинейным разрезом разделить его. Задача Bicycle. Велосипедисты не слишком любят число 8, ведь « восьмерка » - неприятная неисправность.

Задачи Turbo Pascale

В городе Яблоневое N ( 2 ≤ N ≤. Вы не поверите, но однажды в древности произошла такая история. На заседании круглого стола король Артур встал и сказал: «Пусть каждый. Вдруг перед путниками открылась огромная пещера с каменными стенами и потолком. Она была так велика, что дальний край ее терялся во. Или воспользуйтесь поиском по форуму.