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

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

 

• 14:21 05 Июля 2016
  Российско-китайский медуниверситет откроет магистерскую программу по TCM
• 01:21 05 Июля 2016
  На форуме МГУ Россия и Китай обсудят научно-образовательное сотрудничество
• 11:00 04 Июля 2016
  Реморенко: "ЕГЭ-туризм" в России сходит на нет
• 10:52 04 Июля 2016
  Летняя российско-австрийская школа откроется в Москве
• 15:31 01 Июля 2016
  В СПбГУ могут воссоздать географический факультет

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