Блок-схема к программе

[Shredder]

Текст программы
№1
P

rogram Lr4;
    VAR a,x,c,b,t:real;
         n:integer;
    BEGIN
    a:=2.8; x:=5.1; c:=1.8;b:=0.81;t:=0;
    for n:=2 to 10 do begin
    t:=t+5*ln(a*b*n)/ln(10);
    writeln(' n=',n,' t=',t:0:3);
       end;
    READLN;
    END.

№2

Program lr4;
  VAR
         c,b,t:integer;
    BEGIN
     t:=0;
    for c:=2 to 7 do begin
    t:=t*c*b*b;
    writeln(' c=',c:3,' b=',b:3,' t=',t:3);
    for b:=1 to 5 do begin
    t:=t+c*b*b;
    writeln(' c=',c:3,' b=',b:3,' t=',t:3);
                     end;     end;


    READLN;
    END.

тут 2 блок схемы нужно.
И вот еще, срочно нужно... Завтро экзамен... Не как нарисовать её не могу...

program lr3;
var p,stx,sint,e: real;
i,fakt,z: integer;
begin
write('Vvedite p: ');
readln(p);
write(‘vvedite tochnost e: ’);
readln(e);
stx:=p;
fakt:=1;
sint:=0;
i:=1;
z:=1;
while stx/fakt>e do begin 
sint:=sint+z*stx/fakt;
inc(I,2);
stx:=stx*p*p;
fakt:=fakt*(i-1)*I;
z:=z*(-1);
end;
writeln(‘Kol-vo elementov v razlogenii = ’, I div 2);
writeln(‘znachenie sin(‘,p:6:6,’)= ,sint:6:6’);
writeln(‘znachenie komp: ’,sin (p/3) :6:6);
end.

Простите... Чуток ошибся.... Нужны Блоки ....
Что такое "блог схемы"? Да что ж вы блоги и блоки путаете???

[Sweta]

Рисуете прямоугольничек с закругленными углами. В нем пишите «Начало», только без кавычек
Со средины нижней стороны проводите линию до средины верхней стороны следующего прямоугольничка (с обычными углами), в котором записываете «a:=2.8» тоже без кавычек.
Со средины нижней стороны проводите линию до средины верхней стороны следующего прямоугольничка, в котором записываете «a:= x:=5.1» тоже без кавычек так до начала цикла.
Перед началом цикла в прямоугольничке пишите «n:=2»
Далее по образцу и подобию в прямоугольничках «t:=t+5*ln(a*b*n)/ln(10)»
«writeln(' n=',n,' t=',t:0:3)»
Далее рисуете ромбик и в нем пишите «n:= n+1=10?».
Вход в вершину ромбика со средины последнего прямоугольника.
Выход (со словом «нет») с любой боковой стороны. С этой вершины ведете ломаную линию к средине линии, соединяющей прямоугольнички с записями «n:=2» и «t:=t+5*ln(a*b*n)/ln(10)».
С нижней вершины (со словом «да») ведем линию к средине прямоугольничка, в котором помещаем «READLN»
Слова Да и Нет пишем за пределами ромбика.
От последнего прямоугольничка ведем линию на прямоугольничек похожий первый.
В нем пишем Конец.
От боковой линии каждого прямоугольничка рисуем вилочку,
---
| Здесь пишем какое действие производим
--------| Например.
| Вычисление переменной t в соответствии с формулой
--
Короче, не получилось нормальное изображение.

[Sweta]

Извините, у Вас эта программа работает?

№2

Program lr4;
VAR
c,b,t:integer;
BEGIN
t:=0;
for c:=2 to 7 do begin
t:=t*c*b*b;
writeln(' c=',c:3,' b=',b:3,' t=',t:3);
for b:=1 to 5 do begin
t:=t+c*b*b;
writeln(' c=',c:3,' b=',b:3,' t=',t:3);
end; end;

Я не знаю Паскаля, но по-моему в любом языке прежде чем выполнять какие-то действия нужно инициализировать переменные.

[Shredder]

Все программы работают... все нормално.... Просто просил Блок схемы...

[Sweta]

Ну смотрим вычисления.

c,b,t:integer;
BEGIN
t:=0;

Переменной присваиваем значение 0;

for c:=2 to 7 do begin
t:=t*c*b*b;
writeln(' c=',c:3,' b=',b:3,' t=',t:3);

В цикле пока с изменяется от 2 до 7 вычисляем

t:=t*c*b*b;

, т.е получается что t =0*с*?*?, ведь b неизвестна. Хотя результат t = 0.

[Shredder]

все известно просто я не написал)))) у меня все есть... Прости что не понятно сразу забыл про это a=2.8 x=5.1 c=1.8 b=0.81

[Shredder]

Мне бы сейчас Лушче к Lr3... Вот что мне больше напрягает... Чуток не разобрался...

[Sweta]

Это на lr3 остальные комментарии самостоятельно.

[Shredder]

Благодарствую, спасибо огромное, во век не забуду...