zhannetka
Новичок
|
   
и вот есчо....
1) сколько элементов числовой последовательности больше своих соседей?
решить с помощью random,....
|
Всего сообщений: 3 | Присоединился: ноябрь 2008 | Отправлено: 20 нояб. 2008 18:32 | IP
|
|
Zhustinna
Новичок
|
Serega1992, в том-то и дело, что нет :-/
Странно. Все равно спасибо за помощь 
|
Всего сообщений: 13 | Присоединился: июнь 2008 | Отправлено: 21 нояб. 2008 18:00 | IP
|
|
Zhustinna
Новичок
|
zhannetka, 1-е задание (про числа Фибоначчи) я бы выполнила так:
Uses CRT;
Var f1,f2,a,b:integer;
Begin
ClrScr;
WriteLn('Vvedite a,b:');
ReadLn(a,b);
f2 := 1;
f1 := 1;
While f2<=b Do
Begin
If (f2>=a) Then
Write(f2:10);
f1 := f2-f1;
f2 := f2+f1
End;
ReadLn
End.
Последнее - так:
Uses CRT;
Const n=10; {кол-во эл-тов последовательности}
Var k,i:integer;
M:array[1..n]of integer;
Begin
ClrScr;
Randomize;
WriteLn('Posledovatelnost:');
For i:=1 to n Do
Begin
M:=Random(100);
Write(M:5)
End;
k := 0;
For i:=2 to (n-1) Do
If M>M[i+1] Then
If M>M[i-1] Then
k := k+1;
If M[1]>0 Then
k := k+1;
If M[n]>M[n-1] Then
k := k+1;
WriteLn;
If k>0 Then
WriteLn('Otvet: ',k)
Else
WriteLn('Elementy ne najdeny');
ReadLn
End.
(Сообщение отредактировал Zhustinna 21 нояб. 2008 19:00)
|
Всего сообщений: 13 | Присоединился: июнь 2008 | Отправлено: 21 нояб. 2008 18:33 | IP
|
|
camakob
BANNED
|
Добрый день !
Люди помогите с задачей: Создать файл, содержащий записи о дате:день(1..31), месяц(1..12), год(00..99). Обработать этот файл и указать максимальную дату для второй половины года. Создавать я могу, а потом абзац.
|
Всего сообщений: 40 | Присоединился: февраль 2008 | Отправлено: 22 нояб. 2008 13:27 | IP
|
|
motorola
Новичок
|
Помогите пожалуйста с задачками:
1. Составить программу, которая в зависимости от введеного номера месяца выводит название сезона, к которому он относится.
2. Даны координаты двух точек на плоскости. Составить программу, которая вводит эти координаты и выясняет, является ли треугольник, вершинами которого являются начало координат и эти точки, равнобедренными.
Пожалуйста помогите.
|
Всего сообщений: 3 | Присоединился: ноябрь 2008 | Отправлено: 22 нояб. 2008 20:47 | IP
|
|
Serega1992
Новичок
|
motorola, первая задача решается при помощи оператора выбора case, вторая - по формуле расстояния между двумя точками. Попытайтесь хоть что-нибудь написать самостоятельно.
|
Всего сообщений: 50 | Присоединился: апрель 2008 | Отправлено: 22 нояб. 2008 23:44 | IP
|
|
Yarik
Новичок
|
Помогите плиз решить задачки
Задача 1:
Входной файл: Sum.in
Выходной файл: Sum.out
Время: 2 секунды
Память: 64 мб
Заданы числители и знаменатели двух простых дробей. Найти их сумму, выделить целую часть и сократить дробную.
Входные данные.
Четыре числа через пробел: Числитель и знаменатель первой дроби, Числитель и знаменатель второй дроби - все натуральные числа до 10^9
Выходные данные.
Целая часть (если есть), числитель и знаменатель результата.
Задача 2:
Входной файл: result.in
Выходной файл: result.out
Время: 2 секунды
Память: 64Мб
В соревнованиях участвовало N человек (1<N<1000). Известны их фамилии и результаты. Все результаты различны. Определите, какое место занял участник с заданной фамилией. Входные данные.
Входные данные.
В первой строке записано число N - количество участников соревнований. В следующих строках данные об участниках: фамилия и количество набранных очков (от 0 до 10 ). Фамилии записаны латинскими буквами. В последней строке фамилия участника, для которого нужно определить его место. Выходные данные.
Выходные данные.
Одно число - место, занятое указанным участником.
|
Всего сообщений: 1 | Присоединился: ноябрь 2008 | Отправлено: 23 нояб. 2008 8:04 | IP
|
|
Volonter
Новичок
|
Помогите пожалуйста решить эту простейшую задачу: "Дано натуральное число n, вычислить произведение первых n cомножителей: 1/1*3/2*5/3*........"
(Сообщение отредактировал Volonter 24 нояб. 2008 13:48)
|
Всего сообщений: 8 | Присоединился: ноябрь 2008 | Отправлено: 24 нояб. 2008 13:36 | IP
|
|
KMA 
Долгожитель
|
 
Помогите пожалуйста решить эту простейшую задачу: "Дано натуральное число n, вычислить произведение первых n cомножителей: 1/1*3/2*5/3*........"
Code Sample:
var i,j,n: byte;
p: real;
BEGIN
write('n=');
readLn(n);
p:=1;
j:=1;
for i:=1 to n do
begin
p:=p*(j/i);
j:=j+2;
end;
writeLn('p=',p:10:3);
END.
|
Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 25 нояб. 2008 0:48 | IP
|
|
Volonter
Новичок
|
Спасибо, все работает меня самого переклинило! Вот есче задачка: "Даны целые числа a1, a2,... Известно что a1>0 и что среди a2, a3,... есть хотябы одно отрицательное число. Пусть a1, ..., an - члены данной последовательности, предшествующие первому отрицательному члену(n заранее неизвестно). Получить: max(a1, a1a2,...a1a2...an);"
(Сообщение отредактировал Volonter 25 нояб. 2008 12:07)
(Сообщение отредактировал Volonter 26 нояб. 2008 19:04)
|
Всего сообщений: 8 | Присоединился: ноябрь 2008 | Отправлено: 25 нояб. 2008 12:02 | IP
|
|
|
Форум
Решение задач на Pascal. Форум 2
