Pascal

[SuperRembo]

Sis ir mans darbs, velos izdarit sadus uzlabojumus.

Aizsargat darbu ar paroli(jauzkode sada lieta) Kad programu ataisi prasa ievadit paroli ja nepareiza atkarto atgriezot kursoru uz sakumu ar operatoru goto, ja parole pareiza proga strada bet sak stradat no sakumpunkta izdzesot ievadito paroli.

aptuveni sapratat ko gribu, seit pats kods kas ir gatavs jau.

program p7;

uses crt;

var a,b,c,d,d3,d4,d5,p,d6,d7,p1:string; g,m,diena:integer;

begin

write(chr(218));

write(chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196));

writeln;

write(chr(179),' Ievadiet datus par savu vardu: ');

readln(a);

write(chr(195),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196));

writeln;

write(chr(179),' Ievadiet datus par savu uzvardu: ');

readln(;

write(chr(195),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196));

writeln;

write(chr(179),' Ievadiet jusu izglitibas limeni: ');

readln©;

write(chr(195),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196));

writeln;

write(chr(179),' Dzimsanas datums: ');

writeln;

write(chr(179));

writeln(' ------------------');

write(chr(179));

write(' Gads: ');

readln(g);

write(chr(179));

write(' Menesis: ');

readln(m);

write(chr(179));

write(' Diena: ');

readln(diena);

write(chr(195),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196));

write();

writeln;

write(chr(179));

write(' Darba nosaukums:');

writeln;

write(chr(179),' ----------------');

writeln;

write(chr(179),' Ievadiet sava prieksnieka(ces) vardu: ');

readln(d5);

write(chr(179),' Ievadiet savu darba algu: ');

readln(p1);

write(chr(179),' Ievadiet darba laiku: ');

readln(d6);

write(chr(179),' Ievadiet datus par darba transportu: ');

readln(d7);

write(chr(192),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196));

writeln;

write(chr(218),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(191));

writeln;

writeln(chr(179),' Jusu dati tiek saglabati! ',chr(179));

writeln(chr(192),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(196),chr(217));

write(chr(201),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205));

write(chr(203));

writeln(chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205));

writeln(chr(186),' VARDS: ',chr(186),' ',a);

writeln(chr(204),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(206),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205));

writeln(chr(186),' Uzvards: ',chr(186),' ',;

writeln(chr(204),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(206),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205));

writeln(chr(186),' Izglitiba: ',chr(186),' ',c);

writeln(chr(204),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(206),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205));

writeln(chr(186),' DZ.Datums: ',chr(186),' ',diena,'/',m,'/',g);

writeln(chr(204),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(206),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205));

writeln(chr(186),' prieksniek:',chr(186),' ',d5);

writeln(chr(204),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(206),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205));

writeln(chr(186),' Darba alga:',chr(186),' ',p1,' LS');

writeln(chr(204),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(206),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205));

writeln(chr(186),' Darbalaiks:',chr(186),' ',d6,' stundas');

writeln(chr(204),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(206),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205));

writeln(chr(186),' masina: ',chr(186),' ',d7,' modelis');

writeln(chr(200),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(202),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205),chr(205));

readln;

end.

[siruss]

[SuperRembo]