Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
T
//Baeza, Virginia com 110 program TP2; uses crt,sysutils; var ch, salir: char; intento, clavecorrecta, codciudad, nomempresa, codempresa, mail, direccion: string; numintento, numopcion, ROS, CBA, BA, telefono: integer; procedure EMPRESAS; begin password; menu_empresas_desarrolladoras; end; procedure password; begin clavecorrecta:= '1234'; numintento:= 0; ClrScr; Repeat writeln('INGRESE PASSWORD: '); ch:= readkey; While (ch<>#13) do Begin intento:=intento + ch; write('*'); ch:=readkey End; If (intento=clavecorrecta) then begin ClrScr; writeln('clave correcta'); end Else begin ClrScr; writeln('clave incorrecta'); numintento:= numintento+1; intento:=''; end; Until (intento=clavecorrecta) or (numintento=3); readkey; end; procedure menu_empresas_desarrolladoras; begin writeln('|============= MENU EMPRESAS DESARROLLADORAS =============|'); writeln('| |'); writeln('| 1-ALTA DE CIUDADES |'); writeln('| 2-ALTA DE EMPRESAS |'); writeln('| 3-ALTA DE PROYECTOS |'); writeln('| 4-ALTA DE PRODUCTOS |'); writeln('| 0-MENU PRINCIPAL |'); writeln('| |'); writeln('|=========================================================|'); repeat writeln('Selecciones una opcion'); readln(numopcion); until (numopcion>=0) and (numopcion<=4); end; begin repeat menu_empresas_desarrolladoras; case numopcion of 1:alta ciudad; 2:alta empresa; 3:alta proyectos; 4:alta productos; end; until numopcion=0; end; procedure alta_ciudad; procedure alta_empresas; procedure alta_proyectos; procedure alta_productos; begin writeln('en proceso...') end; procedure CLIENTES(); begin end; procedure MENU(); begin writeln('|============= MENU PRINCIPAL =============|'); writeln('| |'); writeln('| 1-Empresas |'); writeln('| 2-Clientes |'); writeln('| 0-Fin del programa |'); writeln('| |'); writeln('|==========================================|'); repeat writeln('Selecciones una opcion'); readln(numopcion); until (numopcion>=0) and (numopcion<=2); end; begin tEXTcOLOR(10); MENU(); while (numopcion>=0) and (numopcion<=2) do begin case numopcion of 1:begin clrscr; EMPRESAS; clrscr; end; 2:begin clrscr; CLIENTES; clrscr; end; 0: end; MENU; end; end.
run
|
edit
|
history
|
help
0
Урок 3 задача 1 повышенная сложность. Задача 1484. Усложнённая.
[DE/GER] Caesar Chiffre (Verschlüsseln)
1
Lab1SumWithRepeat
sorting_direct_choise_no_optimized
solar_system_n_planets_any_time
practica 6 ejercicio 4
Calculatrice 1.0
4
Task 1