Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Type pharmacy=record
- name: string[64];
- dose: integer;
- pak: string[32];
- firm: string[50];
- price: integer;
- end;
- function menu(): integer;
- var
- temp: string[10];
- begin
- writeln('----------');
- writeln('record lab');
- writeln('select one:');
- writeln('1. add record');
- writeln('2. remove record');
- writeln('3. show records');
- writeln('4. import records');
- readln(temp);
- case temp[1] of
- '1': menu := 1;
- '2': menu := 2;
- '3': menu := 3;
- '4': menu := 4
- else menu := 0;
- end;
- end;
- function error():integer;
- begin
- writeln('unknown option');
- error := 0;
- end;
- function inmort():integer;
- begin
- writeln('unknown option');
- inmort:= 0;
- end;
- function show():integer;
- begin
- writeln('unknown option');
- show:= 0;
- end;
- function remove():integer;
- begin
- writeln('unknown option');
- remove := 0;
- end;
- function add():integer;
- begin
- writeln('unknown option');
- add:= 0;
- end;
- begin
- while(true) do
- begin
- var branch := menu();
- var records =
- case branch of
- 0: error();
- 1: add();
- 2: remove();
- 3: show();
- 4: inmort();
- end;
- write(branch);
- writeln('Press any key');
- readln();
- end
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement