Задачу по Pascal'u срочняк надо

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ

Скрыть

		ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
Задачу по Pascal'u срочняк надо

Опции темы

Поиск в этой теме

Опции просмотра

Задачу по Pascal'u срочняк надо

15.01.2010, 07:57

Sin3v

Участник форума

Регистрация: 16.07.2008

Сообщений: 159

С нами: 9379190

Репутация: 240

Задачу по Pascal'u срочняк надо

Задача. Носки
Имя входного файла: socks.in
Имя выходного файла: socks.out
Ограничения по времени: 2 секунды
Ограничения по памяти: 64mb

В куче лежат N носков, известно, что для каждого носка из кучи есть пара, но как всегда они перемешались. Какое минимальное количество носков нужно взять из кучи, чтобы среди взятых носков гарантированно нашлась хотя бы одна пара?
Формат входных данных.
Входного файла содержит одно целое положительное число N, состоящий не более чем из 100 десятичных цифр – количество носков в куче.
Формат выходных данных
На единственной строке выходного файла введите одно целое число без ведущих нулей - ответ к задаче.

Еще одна

Задача. Муравьи
Имя входного файла: ants.in
Имя выходного файла: ants.out
Ограничения по времени: 2 секунды
Ограничения по памяти: 64mb

N Муравьев в момент времени 0 начинают одновременно двигаться по горизонтальному отрезку со скоростью 1см в секунду в заданных направлениях . Если 2 муравья сталкиваются , то они мгновенно разворачиваются и двигаются с прежней скоростью в противоположенном направлении. Муравей, дошедший до края отрезка падает. Определите. Через сколько секунд упадет последний муравей.
Формат входных данных
На первой строке входного файла дано 2 первых числа: N – количество муравьев (1<= N <=10). l. Длина отрезка в сантиметрах (2 <= l. <= 10^6). На второй строке расположены N через i-e число – расстояние в сантиметрах от левого края до i-го муравья (расстояние целое число в промежутке от 1 до l. -1) Третья строка также содержит N чисел. I-e число равно 0 если i-й муравей начинает двигаться и l. Если вправо. Числа в строках разделены пробелам.
Формат выходных данных.
На e. десятичной строке выходного файла выведите одно целое число – ответ к задаче.

и еще))

Задача. Велосипедист
Имя входного файла: biker.in
Имя выходного файла: bikep.out
Ограничения по времени: 2 секунды
Ограничения по памяти: 64mb

Велосипедист измеряет свою скорость раз в минуту всего N раз. Измерение проводятся в начале каждой минуты. Зная результат измерений, найдите его среднюю скорость за время, прошедшее от первого до последнего измерения. Считайте, что между моментами измерений скорость изменяется строго равномерно.
Средняя скорость – это расстояние, деленное на время, за которое это расстояние выло пройдено.
Формат входных данных
На первой строке входного файла дано целое число N – количество замеров (1<= N <= 10^5).
На второй строке расположены N числа: i-e числа - мгновенная скорость велосипедиста в начале i-й минуты(в метрах в секунду). Скорости – целые числа в промежутке от 0 до 100. Числа в строке разделены пробелам.
Формат выходных данных.
На единственной строке файла выведите одно вещественное число, округленное до двух знаков после десятичной точки – ответ к задаче в метрах в секунду.

𝕏 Twitter Reddit Telegram Копировать ссылку

Последний раз редактировалось Sin3v; 15.01.2010 в 09:33..

15.01.2010, 12:20

Algol

Регистрация: 29.05.2002

Сообщений: 1,794

С нами: 12604706

Репутация: 0

Цитата:

Сообщение от Sin3v

100 десятичных цифр – количество носков в куче.

Нехилая такая кучка

Код:

function Div2(inS: string):string;
var outS:string;
    i:integer;
    d:integer;
    r:integer;
begin
outS := '';
r :=0;
for i:=1 to length(inS) do
  begin
  d:=strToInt(inS[i]);
  d:= d + r;
  if d mod 2 = 0 then
     r := 0
  else
     r := 10;
  outS := outS + intToStr(trunc(d/2));
  end;
result := outS;
end;

function Inc(inS:string):string;
var d:integer;
    r:integer;
    i:integer;
    outS:string;
begin
r:=1;
for i:=length(inS) downto 1 do
  begin
  d:=strToInt(inS[i]);
  d:= d + r;
  if d <= 9 then
    begin
     r := 0;
     outS := intToStr(d) + outS;
    end
  else
     outS := '0' + outS;
  end;
if r=1 then
  outS := '1'+outS;
result:=outS;
end;

procedure TForm1.Button1Click(Sender: TObject);
var outS:string;
begin
outS := Div2('758346754265436243257821647832674532287478');
outS := Inc(outS);
end;

15.01.2010, 13:07

Dive_n0ll

Познающий

Регистрация: 17.10.2009

Сообщений: 40

С нами: 8719224

Репутация: 0

Что-то понять не могу. Можешь объяснить что где. Код нужен под компилятор TURBO PASCAL 7.1.

Имя входного файла: socks.in
Имя выходного файла: socks.out
Ограничения по времени: 2 секунды
Ограничения по памяти: 64mb

Последний раз редактировалось Dive_n0ll; 15.01.2010 в 13:50..

15.01.2010, 21:33

Algol

Регистрация: 29.05.2002

Сообщений: 1,794

С нами: 12604706

Репутация: 0

Цитата:

Сообщение от Dive_n0ll

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

PS И какие 64mb ? В турбопаскале адресуемое простарнство - 64кб

Предыдущая тема Следующая тема

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Установка Windoze глазами линуксоида (100% факты)	nerezus	Болталка	47	16.10.2005 15:06

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Быстрый переход