Блок-схемы алгоритмов для Паскаль-программ. :)

[GTO*Centurion]

Кто соображает и кому нетрудно - сделайте пожалуста Просто по средней программе написать блок-схему алгоритм Если что - могу оплатить работу в гп на Офри

[Lord Santa]

Я в Блок Схемах секу маленька... Таблица Истинности и Схема к ней...
Задание выложи короче тут))

[vampire]

Одеколоныча попроси он в скриптах рубит, мож и прямоугольнички умеет рисовать) Правда думаю у него щас дел и так полно...

[StarDron]

Ты бы саму программу выложил.

[GTO*Centurion]

Гавно-базар Ловите

Program zadacha2;
Type info = record
name:string;
godr:integer;
godo:integer;
otestat:array[1..20] of integer;
obschaga: char;
egzamen:array[1..20] of integer;
end;
var m : integer;
procedure write_in_file(fil:string);
var F : file of info;
x : info;
i, m : integer;
n : char;
begin
Assign(F, fil);
ReWrite(F);
for i:=1 to 20 do x.otestat[i] := 0; {obnuliaem masyv}
for i:=1 to 20 do x.egzamin[i] := 0; {obnuliaem masyv}
repeat
Write('Name: ');
ReadLn(x.name);
Write('God rozhdenija: ');
ReadLn(x.godr);
Write('God okonchanija: ');
ReadLn(x.godo);
Write('Ocenki otestata (0 zakonchit vvod): ');
i := 1;
repeat
Write(i,' ocenka: ');
ReadLn(m);
if (m > 0) Then
begin
x.otestat[i] := m;
i := i + 1;
end;
until not (m > 0);
Write('Obschaga (yes/no): ');
ReadLn(n);
if (n = 'y') or (n = 'Y') then x.obschaga := '1' {esli pervaja bukva y
ili Y to xochet obschagu}
else x.obschaga := '0';
Writeln('Ocenki egzanima (0 zakonchit vvod): '); {poka ocenka ne 0 vvodim
ocenki}
i := 1;
repeat
WriteLn(i,' ozenka: ');
ReadLn(m);
if (m > 0) Then
begin
x.egzamin[i] := m;
i := i + 1;
end;
until not (m > 0);
Write(F, x);
Write('Enter 1 to continue, 2 to Exit');
ReadLn(m);
until m > 1; {poka ne 1 to vvoim zapisi}
Close(F);
end;

procedure read_from_file(fil:string);
var F : file of info;
x : info;
i : integer;
begin
Assign(F, fil);
Reset(F);
While not Eof(F) do
begin
Read(F, x);
WriteLn('Name: ',x.name);
WriteLn('God rozhdenija: ', x.godr);
WriteLn('God okonchanija: ', x.godo);
Writeln('Ocenki otestata: ');
i := 1;
while x.otestat[i] <> 0 do {vyvodim ocenki}
begin
writeln(i, ' ocenka : ', x.otestat[i]);
i := i + 1;
end;
Write('Obschaga (yes/no): ');
if x.obschaga = '1' Then Writeln('yes')
else Writeln('no');
writeln('Ocenki egzanima: ');
i := 1;
while x.egzamin[i] <> 0 do {vyvodim ocenki}
begin
writeln(i, ' ocenka : ', x.egzamin[i]);
i := i + 1;
end;
end;
Writeln('Press Enter to continue.');
Readln;
Close(F);
end;

procedure scitat(fil1, fil2:string);
var F, G : file of info;
x : info;
a, i, suma : integer;
bal: real;
begin
a := 0;
Assign(F, fil1);
Assign(G, fil2);
Reset(F);
Rewrite(G);
While not Eof(F) do
begin
Read(F, x);
if x.obschaga = '1' Then {esli xochet obschagu to delaem}
begin
i := 1;
suma := 0;
while x.egzamin[i] <> 0 do
begin
suma := suma + x.egzamin[i]; {suma balov}
i := i + 1;
end;
bal := suma / (i - 1); {srednyj bal}
if (bal > 4) then
begin
Write(G, x); {esli srednyj bal > 4 to pishem v fail}
a := a + 1;
end;
end;
end;
Writeln('Vneseno f fail ',a,' zapisi.');
Writeln('Press Enter to continue.');
Readln;
Close(F);
Close(G);
end;

begin
repeat
writeln('1. Vvesti dannyje.');
writeln('2. Pokazat dannyje.');
writeln('3. Poscitat.');
writeln('4. pokazat rezultat.');
writeln('5. EXIT.');
ReadLn(m);
if (m = 1) then write_in_file('info.txt');
if (m = 2) then read_from_file('info.txt');
if (m = 3) then scitat('info.txt', 'data.txt');
if (m = 4) then read_from_file('data.txt');
until (m > 4);
end.

[-VipeX-]

о боже блин я думал помочь но меня на такую длинную нехватит...

[GTO*Centurion]

о боже блин я думал помочь но меня на такую длинную нехватит...

Обман зрения

[Sir Mage]

У меня тоже всё время с этими блоксхемами косяки были Прогу написать 10 минут, схему 3 часа
ЗЫ:Цент замени ифы в конце кейсами, красивее будет

[-VipeX-]

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

[Eidolon]

Одеколоныча попроси он в скриптах рубит, мож и прямоугольнички умеет рисовать) Правда думаю у него щас дел и так полно...

Вот прямоугольнички как раз никогда не любил %)
Мне в исходниках разбираться проще, чем в них %)
:D

[Torian Kel]

Да, действительно, дибилные схемки, повесишься их вырисовывать. Хотя всё ж они для фтыкания в алгоритмы твой мозга упдейтят...

[Dalamar Dword 6567614D]

2GTO*Centurion: бр... юзай тег [code]. А то не круто читать, когда без отступов...

[bil]

писать блоксхемы по коду программы это идиотизм., Вообще сначала рисуются блоксхемы, а по ним пишется код программы.

[Lord Santa]

Ты где такой порядок действий вычитал?? ноборот всегда делали!

[-VipeX-]

ты когда думаеш сначало пишеш идею а потом намётки?

[Lord Santa]

Вообщето да!

[Torian Kel]

Сначала блоксхемы. Адназначна. Остальным фуфел ибо бред.