Schemat Blokowy

[Tor_]

Witam wszystkich.

Jestem początkujacy i chciałbym się zoriętować czy taki schemat blokowy algorytmu obliczania potęgi o wykładniku naturalnym nie jest zbyt ogólny.

 

Pozdrawiam

[nhjm]

• strzałka − wskazuje jednoznacznie powiązania i ich kierunek,
  
• operand − prostokąt, do którego wpisywane są wszystkie operacje z wyjątkiem instrukcji wyboru,
  
• predykat − romb, do którego wpisywane są wyłącznie instrukcje wyboru,
  
• etykieta − owal służący do oznaczania początku bądź końca sekwencji schematu (kończą, zaczynają lub przerywają/przenoszą schemat).
  

Schemat blokowy pozwala dostrzec istotne etapy algorytmu i logiczne zależności między nimi.

Zależnie od przedstawianego algorytmu stosowane są różne zestawy figur geometrycznych zwanych blokami, których kształty reprezentują umownie rodzaje elementów składowych.

[Bogdanek1]

Czy mógłby ktoś napisać mi schemat blokowy do poniższego programu???? Program pisany w Pascalu. Procedury mogą być pisane osobno.

 

 

 

program cw1;

uses

Crt2;

type uczen= record

nr: integer;

imie: string[20];

nazwisko: string[20];

polski: string[20];

historia: string[20];

biologia: string[20];

matematyka: string[20];

geografia: string[20];

fizyka: string[20];

zachowanie: string[20];

end;

 

var

f: file of uczen;

o,y: array [1..30] of uczen;

s: uczen;

a: byte;

 

procedure wprowadzanie;

var

a,b,i: integer;

begin

ClrScr;

writeln('Ilu uczniow chcesz wpisac do dziennika???');

readln(a);

assign(f,'C:\TP\Patryk\PROJ\test.txt');

rewrite(f);

for i:=1 to a do

begin

writeln;

write('Nr: ');

readln(o.nr);

write('Imie: ');

readln(o.imie);

write('Ocena z Jezyka Polskiego: ');

readln(o.polski);

write('Ocena z historii: ');

readln(o.historia);

write('Ocena z biologii: ');

readln(o.biologia);

write('Ocena z Matematyki: ');

readln(o.matematyka);

write('Ocena z geografii: ');

readln(o.geografia);

write('Ocena z Fizyki: ');

readln(o.fizyka);

write('Zachowanie: ');

readln(o.zachowanie);

write(f,o);

end;

close(f);

end;

 

procedure wczytywanie;

var

a,i:integer;

begin

ClrScr;

assign(f,'C:\TP\Patryk\PROJ\test.txt');

reset(f);

while not eof(f) do

begin

read(f,o);

with o do

begin

writeln;

write('Nr: ');

writeln(o.nr);

write('Imie: ');

writeln(o.imie);

write('Ocena z Jezyka Polskiego: ');

writeln(o.polski);

write('Ocena z historii: ');

writeln(o.historia);

write('Ocena z biologii: ');

writeln(o.biologia);

write('Ocena z Matematyki: ');

writeln(o.matematyka);

write('Ocena z geografii: ');

writeln(o.geografia);

write('Ocena z Fizyki: ');

writeln(o.fizyka);

write('Zachowanie: ');

writeln(o.zachowanie);

end;

end;

end;

 

procedure dopisywanie;

var

i,a:integer;

begin

ClrScr;

assign(f,'C:\TP\Patryk\PROJ\test.txt');

reset(f);

write('Podaj liczbe uczniow do dopisania: ');

readln(a);

for i:=1 to a do

begin

seek(f, filesize(f));

writeln;

write('Nr: ');

readln(o.nr);

write('Imie: ');

readln(o.imie);

write('Ocena z Jezyka Polskiego: ');

readln(o.polski);

write('Ocena z historii: ');

readln(o.historia);

write('Ocena z biologii: ');

readln(o.biologia);

write('Ocena z Matematyki: ');

readln(o.matematyka);

write('Ocena z geografii: ');

readln(o.geografia);

write('Ocena z Fizyki: ');

readln(o.fizyka);

write('Zachowanie: ');

readln(o.zachowanie);

write(f,o);

end;

close(f);

end;

 

procedure szukaj;

var

i,pom: integer;

t:string[20];

begin

ClrScr;

pom:=0;

assign(f,'C:\TP\Patryk\PROJ\test.txt');

reset(f);

write('Podaj szukane imie: ');

read(t);

while not eof(f) do

begin

read(f,o);

with o do

if t=(o.imie) then

begin

pom:=1;

write('Nr: ');

writeln(o.nr);

write('Imie: ');

writeln(o.imie);

write('Ocena z Jezyka Polskiego: ');

writeln(o.polski);

write('Ocena z historii: ');

writeln(o.historia);

write('Ocena z biologii: ');

writeln(o.biologia);

write('Ocena z Matematyki: ');

writeln(o.matematyka);

write('Ocena z geografii: ');

writeln(o.geografia);

write('Ocena z Fizyki: ');

writeln(o.fizyka);

write('Zachowanie: ');

writeln(o.zachowanie);

end;

end;

if pom=0 then writeln('Nie ma ucznia o takim nazwisku!');

end;

 

procedure edytuj;

var

i,pom: integer;

t: integer;

begin

ClrScr;

pom:=0;

assign(f,'C:\TP\Patryk\PROJ\test.txt');

reset(f);

write('Podaj numer ucznia, ktorego chcesz edytowac: ');

readln(t);

begin

for i:=1 to 3 do

read(f,o);

with o do

if t=(o.nr) then

begin

pom:=1;

write('Nr: ');

readln(o.nr);

write('Imie: ');

readln(o.imie);

write('Ocena z Jezyka Polskiego: ');

readln(o.polski);

write('Ocena z historii: ');

readln(o.historia);

write('Ocena z biologii: ');

readln(o.biologia);

write('Ocena z Matematyki: ');

readln(o.matematyka);

write('Ocena z geografii: ');

readln(o.geografia);

write('Ocena z Fizyki: ');

readln(o.fizyka);

write('Zachowanie: ');

readln(o.zachowanie);

write(f,o);

end;

end;

if pom=0 then writeln('Nie ma ucznia o tym numerze!');

end;

 

procedure menu;

var

q:integer;

begin

writeln('No Heeeeeej, ktora opcej wybierzesz tym razem??? ');

writeln('1. Podac dane do dziennika.');

writeln('2. Wypisac dane z dziennika.');

writeln('3. Dopisac ucznia do dziennika.');

writeln('4. Wyszukac ucznia w dzienniku.');

writeln('5. Edytowac ucznia z dziennika.');

writeln('6. Zakonczyc dzialanie programu.');

readln(q);

begin

if q=1 then

begin

wprowadzanie;

menu;

end

else

if q=2 then

begin

wczytywanie;

menu;

end

else

if q=3 then

begin

dopisywanie;

menu;

end

else

if q=4 then

begin

szukaj;

menu;

end

else

if q=5 then

begin

edytuj;

menu;

end

else

if q=7 then

begin

end;

end;

end;

begin

ClrScr;

menu;

end.

[babubabu]

Nie nikt niemógłby bo ty nawet nie zadałeś sobie trudu sformatowania kodu i wstawienia go w znaczniki, więc czemu ktoś miał by cokolwiek dla Ciebie zrobić?

[Jason]

To jest inżynieria odwrotna... Najpierw narysuj schemat, a potem pisz program