База знаний студента. Реферат, курсовая, контрольная, диплом на заказ

курсовые,контрольные,дипломы,рефераты

Часовые пояса — Программирование, Базы данных

uses crt,dos;

type str=record

     city:string;

     raz:integer;

     end;

label b;

var

f:text;

i:integer;

base:array[1..25] of str;

year, month, day, dow, h, m, s, hund:word;

procedure zapis;

begin

assign(f,'a:timecity.txt');

reset(f);

for i:=1 to 25 do

  with base[i] do

begin

readln(f,city);

readln(f,raz);

end;

end;

BEGIN

b:textbackground(0);

clrscr;

window(25,1,55,1);

textbackground(6);

clrscr;

write('      Ïðîãðàììà: Time 1.0');

getdate(year,month,day,dow);

gettime(h,m,s,hund);

window(5,3,35,5);

clrscr;

writeln;

writeln('    Òåêóùàÿ äàòà: ',day,'.',month,'.',year);

window(45,3,75,5);

clrscr;

writeln;

writeln('     Òåêóùåå âðåìÿ: ',h,':',m);

delay(2000);

zapis;

window(13,7,68,7);

clrscr;

write('  Âûáåðèòå ãîðîä â êîòîðîì íåîáõîæèìî ïîñìîòðåòü âðåìÿ:');

window(5,9,35,21);

clrscr;

for i:=1 to 12 do

  with base[i] do

writeln(i,') ',city);

write('13) ',base[13].city);

window(45,9,75,21);

clrscr;

for i:=14 to 25 do

  with base[i] do

writeln(i,') ',city);

delay(2000);

window(13,23,68,23);

clrscr;

write('  Ââåäèòå öèôðó ïîä êîòîðîé ñòîèò íóæíóé ãîðîä:');

readln(i);

h:=h+base[i].raz-5;

if h>=24 then begin day:°y+1; h:=h-24; end;

if h<=-24 then begin day:°y-1; h:=h-24; end;

window(25,10,55,15);

textbackground(blue);

clrscr;

writeln('Äàòà: ',day,'.',month,'.',year);

writeln('Âðåìÿ: ',h,':',m);

writeln('Õîòèòå ïðîäîëæèòü? Yes-1 No-0');

readln(i);

if i=1 then goto b;

END.

uses crt,dos; type str=record      city:string;      raz:integer;      end; label b; var f:text; i:integer; base:array[1..25] of str; year, month, day, dow, h, m, s, hund:word; procedure zapis; begin assign(f,'a:timecity.txt'); rese

 

 

 

Внимание! Представленная Курсовая находится в открытом доступе в сети Интернет, и уже неоднократно сдавалась, возможно, даже в твоем учебном заведении.
Советуем не рисковать. Узнай, сколько стоит абсолютно уникальная Курсовая по твоей теме:

Новости образования и науки

Заказать уникальную работу

Свои сданные студенческие работы

присылайте нам на e-mail

Client@Stud-Baza.ru