Четверг, 25 Апреля 2024, 07:34

Приветствую Вас Гость

[ Новые сообщения · Игроделы · Правила · Поиск ]
  • Страница 1 из 1
  • 1
Форум игроделов » Программирование » Delphi/Pascal/Object Pascal » Прошу помощи в нелегком деле
Прошу помощи в нелегком деле
Fejk2015Дата: Суббота, 04 Октября 2014, 12:11 | Сообщение # 1
заслуженный участник
Сейчас нет на сайте
В общем то , закинули меня на олимпиаду.


vanvanichДата: Суббота, 04 Октября 2014, 12:16 | Сообщение # 2
почетный гость
Сейчас нет на сайте
На каком языке надо ?
И кстати задача элементарная .


Сообщение отредактировал vanvanich - Суббота, 04 Октября 2014, 12:17
Fejk2015Дата: Суббота, 04 Октября 2014, 13:26 | Сообщение # 3
заслуженный участник
Сейчас нет на сайте
vanvanich, можно на паскале. Ну лучше на C#
Незнаю, дя меня всегда что то такое было трудным. Начал изучать все с геймдева и как то, в общем не могу в обще понять с чего начинать.

Добавлено (04.10.2014, 13:23)
---------------------------------------------

Код
var n,a,b,c,max,min: integer;
begin
read(n);
max:=n*6;
a:=n div 6;
b:=a;
a:=a*6;
a:=n-a;
If a<>0 then begin

If a=1 then a:=6
else
If a=2 then a:=5
else
If a=3 then a:=4
else
If a=4 then a:=3
else
If a=5 then a:=2
else
If a=6 then a:=1;
end
else a:=b;
min:=a;
write(min,' ',max);
end.


Доработайте код. Нужно что бы
1.Входной файл INPUT.TXT содержит одно натуральное число n — количество очков, которые получил первый игрок (n ≤ 1010).
2.В выходной файл OUTPUT.TXT выведите два разделенных пробелом целых числа: минимальное и максимальное количество очков соответственно, которые мог набрать второй игрок при таком броске кубиков.

Добавлено (04.10.2014, 13:26)
---------------------------------------------

Код

uses math;
var a,b,p,t:extended;
   n,i:integer;
   s:string;
begin
   read(n);
   readln(p);
   a:=30;
   b:=4000;
   for i:=2 to n do
   begin
     readln(t,s);
     if p=t then
     else if (p<t) and (s=' closer') or (p>t) and (s=' further') then
       a:=max(a,(p+t)/2.0)
     else
       b:=min(b,(p+t)/2.0);
     p:=t;
   end;
   writeln(a:1:6,' ',b:1:6);
end.

Тут почти тоже самое, но
В выходной файл OUTPUT.TXT необходимо вывести через пробел два вещественных числа – наименьшее и наибольшее возможное значение


Форум игроделов » Программирование » Delphi/Pascal/Object Pascal » Прошу помощи в нелегком деле
  • Страница 1 из 1
  • 1
Поиск:

Все права сохранены. GcUp.ru © 2008-2024 Рейтинг