Задача 2. Прожектора Имя входного файла: стандартный ввод
Имя выходного файла: стандартный вывод
Ограничение по времени: 0.5 секунды
Ограничение по памяти: 512 мегабайт
На дискотеке в ряд стоят три прожектора, которые поочерёдно светят в следующем порядке:
левый, средний, правый, средний, левый, средний, правый, средний и т.д. (слева направо, затем
налево, опять направо, ...). Каждый прожектор горит в течение одной секунды.
Известно, что лампа левого прожектора имеет ресурс A секунд горения, среднего — B секунд,
правого — C секунд. Определите, сколько времени сможет продолжаться этот процесс горения
прожекторов.
Формат входных данных
Программа получает на вход три целых неотрицательных числа A, B, C — время горения левого,
среднего, правого прожектора.
Формат выходных данных
Программа должна вывести одно целое число.
Система оценивания
Решение, правильно работающее только для случаев, когда все входные числа не превосходят
10, будет оцениваться в
Решение, правильно работающее только для случаев, когда все входные числа не превосходят
104
, будет оцениваться в
В будет оцениваться решение, правильно работающее, когда сумма всех входных
чисел по модулю не превосходит 2 × 109
.
Пример
стандартный ввод стандартный вывод
3 7
3
3
Пояснение к примеру
Прожектора горят в следующем порядке: левый, средний, правый, средний, левый, средний, правый. После этого должен загореться средний прожектор, но он уже выработал ресурс и загореться
не сможет. Поэтому процесс обрывается после 7 с.
Казалось бы легкие задачи, а не получается...
Заранее огромное Вычислить среднее арифметическое тангенсов трех вещественных чисел.
Входные данные:
Во входном потоке в первой строке задано три вещественных числа. Значения чисел по модулю не превышают 1 000 000 000.
Выходные данные:В выходной поток вывести одно вещественное число с точностью пять знаков после запятой.
0
Лучшие ответы (1)
Сообщение: #3619519
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.10.2012, 19:48
ответы с готовыми решениями:
Вычислить среднее арифметическое тангенсов трех вещественных чисел
Вычислить среднее арифметическое тангенсов трех вещественных чисел. Входные данные: Во входном...
Найти среднее арифметическое трех вещественных чисел, заданных с клавиатуры
найти среднее арифметическое трех вещественных чисел, заданных с клавиатуры
Вычислить среднее арифметическое двух заданных вещественных чисел
Вычислить среднее арифметическое двух заданных вещественных чисел. Входные данные: Во входном...
Вывести массив из 50 вещественных чисел от 20 до 40, вычислить среднее арифметическое , посчитать количество элементов.
Добрый день.Задали задание, в паскале я только начинающий. Ничего не могу понять, как и что...
2
CodeR
Фрилансер
3402 / 2799 / 3000
Регистрация: 08.02.2012
Сообщений: 7,606
Записей в блоге: 1
28.10.2012, 08:55 2
Лучший ответ Сообщение было отмечено Cкорпион как решение
Решение
PascalВыделить код
1
2
y:=sin(a)/cos(a)+sin(b)/cos(b)+sin(c)/cos(c);
writeln(y/3:0:5);
так как в Паскале Abc нет стандартной функции tg поэтому выражаем через sin and cos
1
Cкорпион
1 / 1 / 5
Регистрация: 27.10.2012
Сообщений: 46
28.10.2012, 08:58 [ТС] 3
Цитата Сообщение от Artem7 Посмотреть сообщение
PascalВыделить код
1
2
y:=sin(a)/cos(a)+sin(b)/cos(b)+sin(c)/cos(c);
writeln(y/3:0:5);
так как в Паскале Abc нет стандартной функции tg поэтому выражаем через Думаю, если с тангенсами (как и с синусами и косинусами в паскале) разобраться, то ничего трудного в них не будет.
0
28.10.2012, 08:58
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.10.2012, 08:58
Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.
Определить среднее арифметическое вещественных чисел
Даны натуральное число п и вещественные числа а1, а2, ..., а10 . Определить среднее арифме-тическое...
Дан файл вещественных чисел. Найти среднее арифметическое его элементов
Дан файл вещественных чисел. Найти среднее арифметическое его элементов.
Даны вещественные числа а1, а2, ..., а10. Определить среднее арифметическое вещественных чисел
1)Вычислить приближенно площадь фигуры, об¬разованной кривой у == 0,3(х — l)2+4, осью абс¬цисс и...
Дан файл вещественных чисел. Найти среднее арифметическое его элементов
дан файл вещественных чисел. найти среднее арифметическое его элементов.
Искать еще темы с ответами
Или воспользуйтесь поиском по форуму:
3
ответ Создать тему
Объяснение:
const
nDay:array[1..12] of integer=(31,28,31,30,31,30,31,31,30,31,30,31);
type
Date=record
Day,Month,Year:integer
end;
function DOW(Dat:Date):integer;
// день недели по дате. 0-Вс. 1-Пн, 7-Сб
var
a,y,m:integer;
begin
With Dat do begin
a:=(14 - month) div 12;
y:=Year-a;
m:=month+12*a-2;
DOW:=(7000+(day+y+y div 4-y div 100+y div 400+(31*m) div 12)) mod 7
end
end;
procedure DMY2Date(d,m,y:integer; var data:Date);
// Преобразует к дате заданные день, месяц и год
begin
data.Day:=d; data.Month:=m; data.Year:=y
end;
procedure LastDays(month,year:integer; var Wd,Fr:Date);
// даты последней среды (Wd) и пятницы (Fr) для месяца в году }
var
LastDay:Date;
n:integer;
begin
n:=nDay[month];
if (month=2) and (year mod 4 = 0) then Inc(n);
DMY2Date(n,month,year,LastDay);
n:=DOW(LastDay); // номер последнего дня недели
Wd.Month:=month; Wd.Year:=year;
if n<3 then Wd.Day:=LastDay.Day-(n+4)
else
if n=3 then Wd.Day:=LastDay.Day
else Wd.Day:=LastDay.Day+3-n;
Fr.Month:=month; Fr.Year:=year;
if n<5 then Fr.Day:=LastDay.Day-(n+2)
else
if n=3 then Fr.Day:=LastDay.Day
else Fr.Day:=LastDay.Day-1
end;
var
Wd,Fr:Date;
ff,mf:Text;
m:integer;
begin
Assign(ff,'father.txt'); Rewrite(ff);
Assign(mf,'mother.txt'); Rewrite(mf);
// Сентябрь-декабрь 2015 года
for m:=9 to 12 do begin
LastDays(m,2015,Wd,Fr);
if Odd(Wd.Day) then Writeln(mf,Wd.Day,'.',m,'.2015 - 1 класс')
else Writeln(ff,Wd.Day,'.',m,'.2015 - 1 класс');
if Odd(Fr.Day) then Writeln(mf,Fr.Day,'.',m,'.2015 - 5 класс')
else Writeln(ff,Fr.Day,'.',m,'.2015 - 5 класс')
end;
// Январь - май 2016 года
for m:=1 to 5 do begin
LastDays(m,2016,Wd,Fr);
if Odd(Wd.Day) then Writeln(mf,Wd.Day,'.',m,'.2016 - 1 класс')
else Writeln(ff,Wd.Day,'.',m,'.2016 - 1 класс');
if Odd(Fr.Day) then Writeln(mf,Fr.Day,'.',m,'.2016 - 5 класс')
else Writeln(ff,Fr.Day,'.',m,'.2016 - 5 класс')
end;
Close(ff); Close(mf)
end.
Содержимое выходных файлов:
father.txt
30.9.2015 - 1 класс
28.10.2015 - 1 класс
30.10.2015 - 5 класс
30.12.2015 - 1 класс
24.2.2016 - 1 класс
26.2.2016 - 5 класс
30.3.2016 - 1 класс
mother.txt
25.9.2015 - 5 класс
25.11.2015 - 1 класс
27.11.2015 - 5 класс
25.12.2015 - 5 класс
27.1.2016 - 1 класс
29.1.2016 - 5 класс
25.3.2016 - 5 класс
27.4.2016 - 1 класс
29.4.2016 - 5 класс
25.5.2016 - 1 класс
27.5.2016 - 5 класс