Поступил на 1й курс и уже кидают такие задачки.

[абвгд]

Мне нужно приготовить отчёт. Один из пунктов - это Описание алгоритма решения задачи.
Думаете так подойдёт для задания 60?

Вводятся переменные n,i,k,m,s. Переменным n,i,k присваивается значение integer, переменным m,s значение extended.
Сначала вводится переменная N. Далее рассматривается цикл FOR для i, от 1го до N.
Далее переменной m присваивается значение “1”
Рассматривается цикл FOR для k:=i to 2*I do.
После значению m присваиваем m*k, значению s:=s+m
Конец цикла
Выводится сумма
Конец рабочей программы.

[абвгд]

И как в блок-схеме выделить for i:=1 to n do ???

[Sweta]

http://cert.obninsk.ru/gost/282/282.html -

ЕДИНАЯ СИСТЕМА ПРОГРАММНОЙ ДОКУМЕНТАЦИИ

СХЕМЫ АЛГОРИТМОВ, ПРОГРАММ, ДАННЫХ И СИСТЕМ

УСЛОВНЫЕ ОБОЗНАЧЕНИЯ И ПРАВИЛА ВЫПОЛНЕНИЯ

ГОСТ 19.701-90
(ИСО 5807-85)

[Alex11223]

Эм...Что-то не очень понял где там цикл. Гугл говорит, что так:

Я тоже примерно так всегда делал:

[Sweta]

Цикл это шестиугольник и действия. В шестиугольнике к Вашему случаю
от i=1, до i=n, шаг 1

Прошу прощенья посмотрела не тот код, там в действиях еще один цикл, т.е вместо прямоугольника действия у Вас д.б.
прямоугольник с присвоением временного множителя значения 1
далее шестиугольник от k=i, до k=2*i, шаг 1
в прямоугольнике действиявообще то у Вас д.б.два)
Вычисление очередного члена ряда
Вычисление суммы

[абвгд]

program z60;
 var n, i, k, mult_t, summ : longint;
begin
   summ:=0;
   writeln('vvedite n');
   readln(n);
   for i:=1 to n do begin
     mult_t := 1;
     for k:=i to 2*i do
        mult_t := mult_t * k;
     summ := summ + mult_t;
   end;
   writeln ('Summa = ',  summ);
   readln;
end.

Блок-схема примерно так? ...

[Alex11223]

Эм...Не уверен насчет ГОСТов, но по-моему это больше похоже на

   for i:=1 to n do
     mult_t := 1;
   for k:=i to 2*i do 
   begin
     mult_t := mult_t * k;
     summ := summ + mult_t;
   end;

чем на цикл в цикле (вложенный цикл).

[fizteh]

sign это такая математическая функция, по-моему, функция Дирихле. А насчёт книжек по Pascal, то юзай в качестве справочника Немнюгин, название не помню.

[абвгд]

Помогите пожалуйста составить блок-схемы для этих задач на паскале.
п.с: почему-то [.code] не работает

PHP код:

uses crt;
var n,k:integer;
    p:real;
begin
clrscr;
write('n=');
readln(n);
p:=1;
for k:=1 to n do
p:=p*cos(k);
write('P=',p:0:8);
readln
end 


PHP код:

uses crt;
function sign(a:real):integer;
begin
if a<0 then sign:=-1
else if a=0 then sign:=0
else sign:=1;
end;
var x,y:real;
    z:integer;
begin
clrscr;
writeln('Введите 2 числа:');
readln(x,y);
z:=(sign(x)+sign(y))*sign(x+y);
write('Z=',z);
readln
end 


PHP код:

uses crt;
{функция определения палиндрома}
function Palindrom(n:integer):boolean;
var m,p,i,k:integer;
begin
m:=n;
p:=0; {получим перевернутое число}
while m>0 do
  begin
    i:=m mod 10;
    p:=p*10+i;
    m:=m div 10;
  end;
Palindrom:=p=n;{если оно равно исходному то палиндром}
end;
{процедура переворота числа}
procedure Revers(n:integer;var p:integer);
var m:longint;
    i:integer;
begin
m:=n;
p:=0;
while m>0 do
  begin
    i:=m mod 10;
    p:=p*10+i; {записываем цифры с конца в начало нового числа}
    m:=m div 10;
  end;
end;
{проверка на завершение за данное число итераций}
function Zaversh(n,m:integer):boolean;
var a,p,k:integer;
    f:boolean;
begin
k:=0;
f:=true;
repeat
if not Palindrom(n) then {если не палиндром}
 begin
  a:=n; {запомним}
  k:=k+1; {считаем итерации}
  Revers(a,p);{переворачиваем}
  n:=n+p; {суммитуем}
 end;
if k>m then {если не вложились}
 begin
  f:=false;
  break; {завершаем проверку}
 end;
until Palindrom(n)or not f; {если палиндром или не уложились, конец цикла}
Zaversh:=f;
end;
var k,l,m,i:integer;
begin
clrscr;
write('Введите начало диапазона k=');
readln(k);
repeat
write('Введите конец диапазона l>=',k,' l=');
readln(l);
until l>=k;
write('Введите максимальное число итераций m=');
readln(m);
for i:=k to l do
 begin
  if Zaversh(i,m) then writeln('Для числа ',i,' завершается')
  else writeln('Для числа ',i,' не завершается');
 end;
readln
end 


[Rin]

На, не мучайся. Если не будет что-то строить, то урежь количество кода, ну то есть :
было----------
!\
60 строк кода
\\
стало --------
!\
30 строк кода
\\
Только не режь циклы и условия с Begin ----- end;
то есть (код, как пример, не всматривайся в действия):
Неправильно

!\
for i:= 1 to 10 do
begin
b:=inc(b);
z:=cos(z)*b;
\\
mass[i]:=z;
end;

Правильно

!\
for i:= 1 to 10 do
begin
b:=inc(b);
z:=cos(z)*b;
mass[i]:=z;
end;
\\

А , ещё у цикла repeat --- until может не быть begin и end! Будь повнимательней.
Правда строит он их огромные, так что придётся похимичить в графическом редакторе и делать их поменьше. Зато не надо будет париться, что да как.
Надеюсь понял.