Tor_ Napisano Grudzień 27, 2010 Zgłoś Share Napisano Grudzień 27, 2010 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 Link do komentarza Udostępnij na innych stronach More sharing options...
nhjm Napisano Grudzień 5, 2012 Zgłoś Share Napisano Grudzień 5, 2012 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. Link do komentarza Udostępnij na innych stronach More sharing options...
Bogdanek1 Napisano Czerwiec 6, 2013 Zgłoś Share Napisano Czerwiec 6, 2013 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. Link do komentarza Udostępnij na innych stronach More sharing options...
babubabu Napisano Czerwiec 6, 2013 Zgłoś Share Napisano Czerwiec 6, 2013 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ć? Link do komentarza Udostępnij na innych stronach More sharing options...
Jason Napisano Czerwiec 15, 2013 Zgłoś Share Napisano Czerwiec 15, 2013 To jest inżynieria odwrotna... Najpierw narysuj schemat, a potem pisz program Link do komentarza Udostępnij na innych stronach More sharing options...
Polecane posty
Zarchiwizowany
Ten temat jest archiwizowany i nie można dodawać nowych odpowiedzi.