Вопрос № 117051: Здравствуйте! Пожалуйста объясните алгоритм программы. Файлы а и в, компоненты которых являются целыми числами, упорядочены по неубыванию. Получить в файле с все числа файлов а и в без повторений. Файл с должен быть упорядочен по возрастанию. Если мо...Вопрос № 117052: Зраствуйте эксперты. Пожалуйста помогите написать программу:
Спортсмен, начав тренировки, в первый день пробежал 10км. Каждый следующий день он увеличивал дистанцию на 12%. Написать программу, определяющую общую длину пробега за месяц и первый д...Вопрос № 117053: Приветствую уважаемые знатоки:) Пожалуйста помогите с программой:
С клавиатуры вводится строго возрастающая последовательность натуральных чисел до тех пор, пока произведение трех соседних введенных чисел не превысит 100. Вычислить сумму факториа...
Вопрос № 117.051
Здравствуйте! Пожалуйста объясните алгоритм программы. Файлы а и в, компоненты которых являются целыми числами, упорядочены по неубыванию. Получить в файле с все числа файлов а и в без повторений. Файл с должен быть упорядочен по возрастанию. Если можно, то описать подробно. Сам код есть.
Приложение:
Отправлен: 05.01.2008, 15:49
Вопрос задал: Swordfish (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Зенченко Константин Николаевич
Здравствуйте, Swordfish!
Алгоритм такой:
Из файлов А и В читаются числа Х и У, проверяются между собой и с промежуточным значением Т(последнее записанное значение). В файл С записывается только наименьшее значение Х или У которое больше промежуточного значения Т.
Удачи!
Приложение:
--------- И только наступив на грабли мы приобретаем драгоценный опыт!
Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал) Украина, Киев Тел.: +380958380164 Адрес: Украина г.Киев ---- Ответ отправлен: 10.01.2008, 14:10
Вопрос № 117.052
Зраствуйте эксперты. Пожалуйста помогите написать программу:
Спортсмен, начав тренировки, в первый день пробежал 10км. Каждый следующий день он увеличивал дистанцию на 12%. Написать программу, определяющую общую длину пробега за месяц и первый день с начала тренировок, после которого дистанция превысит 25км ( с помощью цикла FOR)
Отвечает: Tribak
Здравствуйте, Кадыров Артур Петяевич!
program www;
uses crt;
const
n=30;
var
l,S:real;
i,j:integer;
first:boolean;
begin
clrscr;
l:=10;
s:=10;
first:=true;
for i:=2 to n do
begin
l:=1.12*l;
s:=s+l;
if (s>25) and first then begin
j:=i;
first:=false;
end;
end;
writeln(j, ' den kogda probeg bolshe 25 km');
writeln('za mesyac probejal ', S:5:2);
readln;
end.
Ответ отправил: Tribak (статус: 10-ый класс)
Ответ отправлен: 05.01.2008, 16:12 Оценка за ответ: 5
Program prog;
Uses crt;
Const n=31; {dney v mesyace}
Var i,d:integer;
len,sum:real;
first:boolean;
Begin
clrscr;
len:=10;
sum:=10;
first:=true;
for i:=2 to n do begin
len:=len+len/100*12;
sum:=sum+len;
if (sum>25) and first then begin
d:=i;
first:=false;
end;
end;
writeln('Distanciya previsit 25 km na ',d,' den');
writeln('Distanciya za mesyac - ',sum:5:1,' km');
readln;
End.
Удачи!
--------- Всегда фпиред! =)
Ответ отправил: Romnet (статус: 6-ой класс)
Ответ отправлен: 05.01.2008, 19:44 Оценка за ответ: 5
Вопрос № 117.053
Приветствую уважаемые знатоки:) Пожалуйста помогите с программой:
С клавиатуры вводится строго возрастающая последовательность натуральных чисел до тех пор, пока произведение трех соседних введенных чисел не превысит 100. Вычислить сумму факториалов всех введенных чисел. Эта работа должна быть выполнена как можно эффективнее, без повторов. ( while, repeat )
Отвечает: Зенченко Константин Николаевич
Здравствуйте, Кадыров Артур Петяевич!
В приложении программа использующая рекурсию(рекурсивный вызов). Операторы While | Do и Repeat | Until не используются. Если начальные значения А, В и С равны 1, то ввод чисел может быть закончится и при меньшем значении соседних чисел. К примеру А=101 или А=6 и В=20. Если начальные значения сделать равными нулю, то ввод остановится только после трёх и более соседних числах. Удачи!
Приложение:
--------- И только наступив на грабли мы приобретаем драгоценный опыт!
Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал) Украина, Киев Тел.: +380958380164 Адрес: Украина г.Киев ---- Ответ отправлен: 08.01.2008, 19:12
