Отправляет email-рассылки с помощью сервиса Sendsay

Задачи и решения по программированию в среде TurboPascal Туннель

Информационный Канал Subscribe.Ru Туннель Время прохождения теста: 7 сек. Входной файл: tunnel.in Выходной файл: tunnel.out Нуржан стоит у начала, а Ержан на конце туннеля. Они записывают государственные номера машин, проходящих возле них, и затем предоставляют данную информацию полиции, которая находится недалеко от туннеля. Используя эту информацию, полиция может безошибочно определить то, что некоторые машины шли на обгон , пока проезжали туннель, что запрещено законом. Напишите программу, которая будет...

2003-12-06 13:08:53 + Комментировать

Задачи и решения по программированию в среде TurboPascal Вопросы читателей

Информационный Канал Subscribe.Ru Вопросы читателей - Я вообще не знаю языка паскаль решил попросить Вас помочь мне. Ето в принципе не сложные задачи с первого курса МАДИ. Если Вы мне поможете буду Вам бесконечно благодарен.Их три задачки : 1) Записать на Паскале выражение : (нужно написать только одну строчку) (D(в квадрате+E(в квадрате)в квадрате _ (это дробь) 0,781* D*E*lgY *arctgD. 2) Вычислить значение переменной m после выполнения следующего фрагмента: t:6; m=0; repeat m=m+1; t=t+2; until t<10; 3)...

2003-12-04 18:11:41 + Комментировать

Задачи и решения по программированию в среде TurboPascal - Окна

Информационный Канал Subscribe.Ru Окна В популярной операционной системе открыто N окон. Каждое окно предствляет собой прямоугольник, состоящий из маленьких квадратиков 1*1. Новое открытое окно, в зависимости от своих координат и размера, может полностью или частично закрывать некоторые из уже открытых окон. Мы можем закрыть видимое окно с помощью мышки, если нажмем на правый верхний квадратик 1*1. Напишите программу, определяющую наименьшее количество нажатий мышки, при котором мы можем закрыть окно, кото...

2003-12-04 03:42:42 + Комментировать

Задачи и решения по программированию в среде TurboPascal - 4

Информационный Канал Subscribe.Ru Интервалы Здравствуйте, сегодня я вам предлагаю с одной стороны сложную задачу, но если найти закономерность, то она решается довольно легко . Ответ к этой задаче вы можете скачать с сайта рассылки www.Tpascal.boom.ru Задача: Интервал прямой с целочисленными координатами [a, b) содержит левую границу - точку a и не содержит правую границу - точку b. Интервал от 0 до 1000000000 выкрасили в белый цвет. Затем было выполнено N операций перекрашивания. При каждой операции цвета...

2003-11-17 17:40:25 + Комментировать

Задачи и решения по программированию в среде TurboPascal Опасный вирус

Информационный Канал Subscribe.Ru Опасный вирус Здравствуйте, сегодня я вам предлагаю намного посложней задачу, которая была на областной олимпиаде по информатике в городе Караганда. Ответ к этой задаче вы можете скачать с сайта рассылки www.Tpascal.boom.ru . Задача: В одной из компьютерной лабораторий установлены два серверных компьютера. Работники данной лаборатории заметили, что один из серверных компьютеров выдает различного рода ошибки. Они установили на этот компьютер антивирус, и он определил на дан...

2003-10-26 16:31:35 + Комментировать

Задачи и решения по программированию в среде TurboPascal Лестница

Информационный Канал Subscribe.Ru Лестница Привет всем, сегодня я вам одну из самых сложных задач. Она когда-то выставлялась на республиканскую олимпиаду в Казахстане (не помню когда, но она довольно быстро решается, если знать способ перебора всевозможных вариантов. Ответ к этой задаче вы можете скачать с сайта рассылки www.Tpascal.boom.ru . Задача: Дано натуральное число n (n<100. Определить, сколькими способами можно подняться на лестницу, состоящую из n лесенок, если разрешается перешагивать не боле...

2003-10-26 16:31:26 + Комментировать

Задачи и решения по программированию в среде TurboPascal Двойка в степени

Информационный Канал Subscribe.Ru Двойка в степени Здравствуйте, перед вами первый выпуск рассылки. Сегодня я вам предлагаю довольно простую задачу с решением. Возведите двойку в введеную степень. Ограничение: показатель степени не превышает 10000. Тесты: 1. 5 32 2. 10 1024 3. 20 1048576 Ответ: var j,i,p,k,z:integer; s:array[1.1000]of byte; begin write'Vedite pokazatel ctepeni ); readln(p); s[1000=1;z=0; for i=1 to p do begin for j=1000 downto 1 do begin s[j=s[j*2+z; z=s[j]div 10; s[j=s[j]mod 10; end; end;...

2003-10-26 16:21:50 + Комментировать
  • 1
  • 2