Технический форум
Вернуться   Технический форум > Дневники > radiotexnik


Оценить эту запись

Электронные часы

Запись от radiotexnik размещена 17.01.2011 в 22:26

uses crt;
var min,sec:integer;
begin
clrscr;
for min :=1 to 3 do
begin
for sec:=1 to 60 do
begin
delay(1000);
gotoXY(1,1) ;
write (min,':',sec,'') ;
if keypressed then halt
end;
end;
end.
Размещено в Без категории
Просмотров 1238 Комментарии 3 Редактировать метки
Всего комментариев 3

Комментарии

  1. Старый комментарий
    Аватар для Jaruto Tokyama
    о паскаль)
    permalink
    Запись от Jaruto Tokyama размещена 19.01.2011 в 11:57 Jaruto Tokyama вне форума
  2. Старый комментарий
    Аватар для Fenix
    а я делал маленькие полупрозрачные часики на делфи. до сих пор только ими и пользуюсь)
    permalink
    Запись от Fenix размещена 19.01.2011 в 19:24 Fenix вне форума
  3. Старый комментарий
    Аватар для radiotexnik
    да, Паскаль
    permalink
    Запись от radiotexnik размещена 24.01.2011 в 23:32 radiotexnik вне форума
 


Часовой пояс GMT +4, время: 01:27.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.