Programalama > PASCAL

Etiketler: saniye, çeviricisi

Ort. 0
Puan ver:
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


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2024 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.