Этот заказ уже выполнен на сервисе Автор24
На нашем сайте вы можете заказать учебную работу напрямую у любого из 72000 авторов, не переплачивая агентствам и другим посредникам. Ниже приведен пример уже выполненной работы нашими авторами!
Узнать цену на свою работу

Часы. Pascal ABC.

Номер заказа
120003
Создан
28 февраля 2014
Выполнен
1 марта 2014
Стоимость работы
188
Не получается сделать. Надо срочно сделать решение задач по информатике. Есть буквально 1 день. Тема работы «Часы. Pascal ABC.».
Всего было
18 предложений
Заказчик выбрал автора
Этот заказ уже выполнен на сервисе Автор24
На нашем сайте вы можете заказать учебную работу напрямую у любого из 72000 авторов, не переплачивая агентствам и другим посредникам. Ниже приведен пример уже выполненной работы нашими авторами!
Узнать цену на решение своих задач
Или вы можете купить эту работу...
Страниц: 9
Оригинальность: Неизвестно
188
Не подошла
данная работа?
Вы можете заказать учебную работу
на любую интересующую вас тему
Заказать новую работу

Часы с секундной, минутной, часовой стрелками, графические на pascal
Среда разработки - ABC Pascal.
Написать программу на языке Pascal в среде Pascal ABC
PascalABC.NET — система программирования. Язык системы близок к языку программирования Delphi. (...) Поскольку в PascalABC.NET можно пользоваться всеми библиотеками платформы .NET
1. А. С. Цветков – Язык программирования PASCAL. Система программирования ABC Pascal .
2. О. Ф. Еремин – Методическое пособие по программирования на языке Pascal FDC – 2009г, Моздок.
NET, мы можем создать подвижные часы, описание которых находятся в разделе «Задача».Листингuses GraphABC;var x0,y0,x,y,i,min,sec,chas: integer; xk,yk,r:real;begin SetWindowSize(500,500); //задает размер экрана x0:=250; y0:=250; min:=0; sec:=0; //начальные значения центра часов ClearWindow; //очистить окно SetBrushColor(clMaroon); circle(250,250,190); for i:=0 to 360 do begin //кружочки разноцветные по контуру (желтые) SetBrushColor(clYellow); r:=i*pi/180; xk:=sin(r); yk:=cos(r); if i mod 30=0 then circle(250+ROUND(xk*180),250+round(yk*180),5); if i mod 6=0 then circle (250+ROUND(xk*180),250+round(yk*180),2); end; for i:=0 to 360 do begin //Сами стрелки рисуем Показать все
Автор24 - это фриланс-биржа. Все работы, представленные на сайте, загружены нашими пользователями, которые согласились с правилами размещения работ на ресурсе и обладают всеми необходимыми авторскими правами на данные работы. Скачивая работу вы соглашаетесь с тем что она не будет выдана за свою, а будет использована исключительно как пример или первоисточник с обязательной ссылкой на авторство работы. Если вы правообладатель и считаете что данная работа здесь размещена без вашего разрешения - пожалуйста, заполните форму и мы обязательно удалим ее с сайта. Заполнить форму
Оценим бесплатно
за 10 минут
Эта работа вам не подошла?
У наших авторов вы можете заказать любую учебную работу от 200 руб.
Оформите заказ и авторы начнут откликаться уже через 10 минут!
Заказать решение задач