bRiko

ребят послезавтра зачет я уже 2 дня ломаю голову над след. задачами а вам наверно делов на 5 минут..

1 Массив вещественных чисел A(N) упорядочен по возрастанию.Известно , что вещественное число x принадлежит отрезку чмсловой оси ,вмещающему заданный массив. Определить номер k, для которого A(k-1)<x<=A(k);

2
Дано целое число N (>1), а так же первый член А и знаменатель D геометрической прогрессии.Cформировать и вывести массив размера N,содержащий N первых членов данной прогессии:
A, AxD, AxD^2, AxD^3,... .
вот коды
1)Код:

[i]for i:=1 to n do
(if a<x) and (a[i+1]>x) then begin k:=i;break;end;

2)Код:

write(a:6);
for i:=2 to n do begin
a:=a*d;write(a:6);end;

пожалуйста напишите весь текст программы..ибо мои знания паскаля не позволяют сделать этого. Буду очеь благодарен..

@Puporev

И нафига тогда голову ломал?

0

bRiko

ломал голову т.е искал подобные решенные, какие то алгоритмы решения таких задач. Как видите не нашел