Programalama > PASCAL

uses crt;
var
sonuc:longint;
dakika,saat,gun,hafta:integer;
begin
clrscr;
writeln('Nazm DEM˜R   (SDU/Senirkent MYO)');
writeln;
writeln;
textcolor(green);
writeln('                           SAN˜YEYE €EV˜R˜ PROGRAMI');
textcolor(white);
writeln;
writeln;
writeln('BoŸluklara ‡evrilmesini istedi§iniz de§erleri girin');
textcolor(red);
writeln;
writeln('HAFTA=..  GšN=..  SAAT=..  DAK˜KA=..');
textcolor(white);
writeln;
writeln('Sonu‡=.......  saniyedir');
textcolor(white);
gotoxy(7,9);
read(hafta);
gotoxy(15,9);
read(gun);
gotoxy(24,9);
read(saat);
gotoxy(35,9);
read(dakika);
sonuc:=(hafta*604800)+(gun*86400)+(saat*3600)+(dakika*60);
gotoxy(7,11);
write(sonuc);
gotoxy(24,11);
readln;
readln;
end.

nazim demir
demirnazim@hotmail.com