Нужна помощь в решении задач на Паскале

tatca · 20.05.2011, 09:10

1. Рассмотрим последовательность, образованную дробями: 1/1, 2/1, 3/2,..., в которой числитель (знаменатель) следующего члена последовательности получается сложением числителей (знаменателей) двух предыдущих членов. Числители двух первых дробей равны 1 и 2, знаменатели 1. Верно ли, что сумма n первых членов этой последовательности больше числа A?
2. Даны натуральные числа a и b, обозначающие соответственно числитель и знаменатель дроби. Сократить дробь.
3. Определить среднее арифметическое элементов одномерного массива с k1-го до k2-й.
4. Дан одномерный массив вещественных чисел. Вывести на экран новое состояние массива, в котором все элементы с нечетными номерами увеличить на 1, с четными - уменьшить на 1.
5. Дан массив целых чисел. Найти сумму элементов, кратных заданному числу.

Vladimir_S · 20.05.2011, 10:45

Цитата:

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

1. Рассмотрим последовательность, образованную дробями: 1/1, 2/1, 3/2,..., в которой числитель (знаменатель) следующего члена последовательности получается сложением числителей (знаменателей) двух предыдущих членов. Числители двух первых дробей равны 1 и 2, знаменатели 1. Верно ли, что сумма n первых членов этой последовательности больше числа A?

Код:

VAR
 nom,denom:array[1..100] of LongInt;
 i,n:Byte;
 A,S:Real;
BEGIN
 nom[1]:=1;
 nom[2]:=2;
 denom[1]:=1;
 denom[2]:=1;
 Write('n (2<n<101)= ');
 ReadLn(n);
 Write('A= ');
 ReadLn(A);
 S:=3.0;
 For i:=3 to n do
  begin
   nom[i]:=nom[i-2]+nom[i-1];
   denom[i]:=denom[i-2]+denom[i-1];
   S:=S+nom[i]/denom[i];
  end;
 WriteLn(S>A);
 ReadLn
END.

Цитата:

2. Даны натуральные числа a и b, обозначающие соответственно числитель и знаменатель дроби. Сократить дробь.

Код:

VAR
 a,b,c,i:Word;
 bu:boolean;
BEGIN
 Write('a= ');
 ReadLn(a);
 Write('b= ');
 ReadLn(b);
 If a<b then c:=a else c:=b;
 Repeat
  bu:=true;
  i:=1;
  repeat
   inc(i);
   if ((a mod i)=0) and ((b mod i)=0) then
    begin
     bu:=false;
     a:=a div i;
     b:=b div i;
     c:=c div i;
    end;
  until i>c;
 Until bu;
 WriteLn('New a= ',a);
 WriteLn('New b= ',b);
 ReadLn;
END.

Остальные три задачки - это, извините, тупые школьные упражнения на массивы, и этим, с Вашего позволения, я заниматься не буду. Уж как-нибудь сами.

tatca · 20.05.2011, 17:28

Спасибо!

20.05.2011, 09:10	#1 (permalink)
tatca Member Регистрация: 19.05.2011 Сообщений: 11 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Нужна помощь в решении задач на Паскале 1. Рассмотрим последовательность, образованную дробями: 1/1, 2/1, 3/2,..., в которой числитель (знаменатель) следующего члена последовательности получается сложением числителей (знаменателей) двух предыдущих членов. Числители двух первых дробей равны 1 и 2, знаменатели 1. Верно ли, что сумма n первых членов этой последовательности больше числа A? 2. Даны натуральные числа a и b, обозначающие соответственно числитель и знаменатель дроби. Сократить дробь. 3. Определить среднее арифметическое элементов одномерного массива с k1-го до k2-й. 4. Дан одномерный массив вещественных чисел. Вывести на экран новое состояние массива, в котором все элементы с нечетными номерами увеличить на 1, с четными - уменьшить на 1. 5. Дан массив целых чисел. Найти сумму элементов, кратных заданному числу.

20.05.2011, 09:10
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Дабы не тратить время на поиски, отправлю вам сюда схожие обсуждения Требуется срочная помощь в решении задач по электротехнике Нужна помощь в решении задачи Нужна помощь в решении двух задач

20.05.2011, 17:28	#3 (permalink)
tatca Member Регистрация: 19.05.2011 Сообщений: 11 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Спасибо!

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070