Pascal/Turbo Pascal - Sistema operativo en pascal

 
Vista:

Sistema operativo en pascal

Publicado por Francisco (3 intervenciones) el 21/09/2000 00:00:00
Necesito un pragrama que simule un Sistema operativo hecho en pascal.......gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Sistema operativo en pascal

Publicado por diego (1 intervención) el 10/04/2007 01:22:48
aca te va:

----------------------------------------------
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
Program odisea01;
uses
 crt,windos;
type
 Tstr25=string[25];
type
 Tsysblock=record
  coltext:integer;
  colfond:integer;
  username:string[12];
  password:string[8];
  end;
  var
  hallado:boolean;
  V_sysblock:Tsysblock;
  F_sysblock:File of Tsysblock;
  comandos:array[0..10] of Tstr25;
  comando:string[25];
  procedure _salir;
   var
    c:integer;
  begin
   writeln('Saliendo ');
   for c:=0 to 80 do BEGIN
    write('>'); delay(20);
    end;
   clrscr;
   delay(3000);
   writeln;writeln;writeln;writeln;writeln;writeln;writeln;writeln;writeln;writeln;writeln;writeln;
   writeln('                            APAGUE SU EQUIPO AHORA');READLN;
   READLN;
   EXIT;
  end;
  function error:string;
  var
   c:integer;
   enc:integer;
  begin
   enc:=0;
   for c:=0 to 10 do
       if comandos[c]=comando then
    begin
     enc:=enc+1; break;
    end;
    if enc=0 then
     error:='Comando invalido' else error:='';
 
  end;
  procedure sysini;
   begin
    V_sysblock.coltext:=7;
    V_sysblock.colfond:=15;
    V_sysblock.username:='diego';
    V_sysblock.password:='pass';
    assign(F_sysblock,'c:\odisea\system');
    rewrite(F_sysblock);
    write(F_sysblock,V_sysblock);
    close(F_sysblock);
   end;
   Procedure Console;
   var
    c:integer;
   begin
   comando:='';
   textcolor(15);
   clrscr;
   writeln('Iniciando');
   for c:=0 to 80 do begin write('>'); delay(10); end;
   Writeln('Listo');
   writeln;
    repeat
    comando:='';
    textcolor(10);
    Write('@>>');
    textcolor(15);
 
    readln(comando);
    if comando='version' then
     writeln('Version ....');
 
    if comando='texto' then
     writeln('Diego');
 
     writeln(error);
  until (comando='salir');_salir;
   end;
  begin
  hallado:=false;
  comandos[0]:='version';
  comandos[1]:='texto';
  comandos[2]:='calcular';
  comandos[3]:='salir';
  comandos[4]:='';
  comandos[5]:='';
  comandos[6]:='';
  comandos[7]:='';
  comandos[8]:='';
  comandos[9]:='';
  comandos[10]:='';
 
  {assign(F_sysblock,'c:\odisea\system');
  reset(F_sysblock);
 
  if filesize(F_sysblock)<9 then
   sysini;  }
   console;
  end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

RE:Sistema operativo en pascal

Publicado por deivid (9 intervenciones) el 14/03/2015 04:16:40
Fijate que al programarlo tira barios errores. como podria solucionar esto?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar