Задачи по задачнику Абрамова

[Andrux]

Доброго времени суток, Уважаемые программисты!
Прошу вас решить такие вот задачки, из задачника
С.А Абрамова(Задачи по программированию Гречникова Е.А)
если можно, то с блок схемой. На языке Паскаля.
Номера:
задачи на простейшие циклы ----- 81 ; 83-a ; 117-б
пошаговый ввод данных и вывод результатов ----- 136-в
сочетания цикла и разветвления ----- 179-в
вычисления с хранением последовательности значений ----- 271
вложенные циклы в матричных задачах ----- 367
Вот такие вот задачи...
Очень срочно нужно, пожалуйста решите мне...



Искреннее признателен и благодарен вам!

[Greblin]

7 программ = 300 рублей +
7 блок-схем = 200 рублей.
Итого 500. Аська в профиле. Или пытайтесь решать сами, а потом спрашивайте по тем местам, где не получается

[Andrux]

ок, покажите пожалуйста 1 задачку на массивы хотя бы, я их вообще не понял. Заранее благодарю!

[Andrux]

Я буду сам их решать(писать) тогда, только от вас я прошу помочь мне в решении и объяснить почему там так, как вы написали.
Я хочу это сам все понять!
Заранее благодарю!

[Andrux]

program andzad81;
uses crt;
var p,a:real;
n,i:integer;
            begin
            clrscr;
            writeln('Vvedite znachenie n');
            readln(n);
            writeln('Vvedite znachenie a');
            readln(a);
            p:=0;
            for i:=1 to n do
              p:=sqr(p+a);
            writeln('P=',p:10);
            readln;
            end.

[Andrux]

Вот еще одна задачка...
Тоже что получилось... дальше не получается

program andzad83a;
uses crt;
var a,p:integer;
s:longint;
          begin
          clrscr;
          writeln('Vvedite a');
          readln(a);
          s:=1;
          p:=1;
          while p<=a do
                begin
                for s:=1 to a do
                for s:=1+(1/2) to a do
                for s:=1+(1/2)+(1/3) to a do
                p:=p+1;
          end;
                writeln('S=' , s:8);
                readln;
end.

[ManU]

№83

S:=0; 
i:=1;
while s<=a do
begin
s:=s+1/i;
inc(i);
end;

[Andrux]

О Спасибо Manu

[Andrux]

И общий вид будет выглядеть так или нет?
Что-то ответ смушает...

program andzad83a;
uses crt;
var a,p:integer;
s:real;
          begin
          clrscr;
          writeln('Vvedite a');
          readln(a);
          s:=1;
          p:=1;
          while s<=a do
                s:=s+1/p;
                p:=p+1;
                writeln('S=' , s:8);
                readln;
end.

[Andrux]

вот 117 почти получилась но в самом примере чтото не правильно написал.
Проверьте пожалуйста и напишите как правильно будет...

program anzad117;
uses crt;
var p:real;
n,i:integer;
    begin
    clrscr;
    writeln('Vvedite znachenie n');
    readln(n);
    p:=1;
    for i:=1 to n do
    p:=p*((2*i-1)/i);
    writeln('P= ' , p:6:2);
    readln;
    end.