Acasa | Trimite referat | Cere referat | Contact

Referat Program testeaza capabilitatea sistemului dvs de a trece automat

Program testeaza capabilitatea sistemului dvs de a trece automat

Categorie: Referate Informatica

Referat downloadat de: 137 ori.

Cauta referat dupa: program testeaza capabilitatea sistemului trece automat

Descriere referat:

{Program testeaza capabilitatea sistemului dvs de a trece automat "hopul de la miezul noptii" anului 2000. Versiunea Turbo Pascal de mai jos a fost compilata cu Turbo Pascal 7.0 for DOS si a fost testata pe o seama de sisteme, 386, 486 Intel si AMD, Pentium, Pentium II, (Celeron, Klamath, Mendocino), K6, K6II. Pe unele sisteme (Pentium) programul da "Runtime error 200" adica "division by zero". Problema este cunoscuta, apare si la alte programe (de exemplu fox 2.6 for windows, anumite versiuni) si se pare ca in acest caz este provocata de "incompatibilitatea" procesorului (Celeron...) cu unit-ul CRT. In acest program instructiunile ce fac referire la unit-ul crt au fost comentate. Incercati ambele variante: folosind si nefolosind unit-ul CRT. Sper sa va fie util acest program! Scrieti-mi ce rezultate obtineti, precizand sistemul pe care ati testat (procesor) si rezultatul obtinut pentru a putea pune si la dispozitia altora aceste informatii. max@mail.multinet.ro MULT SUCCES!!!} program dax; uses Dos; type TAn = array[1..4] of byte; procedure BackupDate(var x, y:TAn); var r: registers; begin r.ah := $04; intr($1a, r); x[1] := r.ch; x[2] := r.cl; x[3] := r.dh; x[4] := r.dl; r.ah := $02; intr($1a, r); y[1] := r.ch; y[2] := r.cl; y[3] := r.dh; y[4] := r.dl; end; procedure RestoreDate(x, y:TAn); var r: registers; begin r.ah := $05; r.ch := x[1]; r.cl := x[2]; r.dh := x[3]; r.dl := x[4]; intr($1a, r); r.ah := $03; r.ch := y[1]; r.cl := y[2]; r.dh := y[3]; r.dl := y[4]; intr($1a, r); end; function GetAll: string; var r: registers; u, i: byte; an: TAn; x, y: string; begin x:='Anul '; r.ah := $04; intr($1a, r); u := r.ch; an[2] := (u and $0f); an[1] := (u shr 4); u := r.cl; an[4] := (u and $0f); an[3] := (u shr 4); for i:=1 to 4 do begin str(an[i], y);

Alte referate din materia: Informatica

Nr.	Nume referat	Hits
1	mtSZPKbW	20
2	TkkvMlabSupl	50
3	qzpymq@dxuzju.com	147
4	email@gmail.com	269
5	pfuqxd@exjswl.com	288
6	ncqcez@hdtnnq.com	244
7	Hard	722
8	ISTORIA INTERNET-ULUI	782
9	Impera	469
10	Info Doc	524
11	Info-TIRON	467
12	Informatica - Grafica pentru web	938
13	Informatica - Introducere in HTML	711
14	Initiere in pc	701
15	Instalarea sistemului de operare Windows	593
16	Internetul ca sursa de comunicare	580
17	Istoria Internetului	617
18	Istoria calculatorului	539
19	Istoria metodelor de proiectare	359
20	Java visavis de C++	401
21	Java vizavi de C	333
22	LIMBAJUL DE PROGRAMARE PASCAL - Programul defineste tipul salariat, o inregistrare cu variante, valorile citite fiind salvate in fisierul salariat.dat	0
23	Limbajul C	413
24	Lista vinuri prg	322
25	Lotus software	293

Acasa Trimite referat Cere referat Adauga la favorite Seteaza ca homepage Contact libertateailuziei Trailere Filme Filme Noi Jocuri Online Jocuri Barbie Jocuri pentru Copii GameBox.ro Make Money Bucuresti regim hotelier