Предмет: Информатика, автор: Аноним

ИНФОРМАТИКА!!!! ОЧЕНЬ СРОЧНО!!!! Помогите, ПОЖАЛУЙСТА!!!!

Приложения:

Ответы

Автор ответа: encense

0

Ответ:

Ответ ошибка, скорее всего, в зависимости от языка

Предыдущий вопрос

Следующий вопрос

Похожие вопросы

Предмет: Другие предметы, автор: Gizel2000

Анализ по картине Д.Д. Бирлюк
"Красный полдень"

1 год назад

Предмет: Русский язык, автор: Pride24carat

Дать произносительные помёты словам алфавит,диалог

1 год назад

Предмет: Английский язык, автор: вика2002593

што надо вибрать done / made/1)mother has just........a tasty dinner
што надо вибрать does/makes 2)she ....... cooking every day
што надо вибрать done/made 3)have you .........your homework yet?
што надо вибрать done/made 4)i hope i havent.....any mistakes in my distation
што надо вибрать do/ make 5)he will......the translation tomorrow
што надо вибрать do/ make 6)she believes you ll .... the right choice

1 год назад

Предмет: Математика, автор: катюша581

построить график уравнения х-у=2 и 3х+у=1

8 лет назад

Предмет: Информатика, автор: Ymnichka13

Паскаль!!! Нужно написать модель солнечной системы с 3 планетами( Меркурий, Венера, Земля) и 1 спутник(Луна). Чем дальше планеты от солнца тем медленнее они крутятся. Есть код на одну планету, нужно дописать остальное в похожем стиле.

uses crt, graphABC ;
var
x , y , x0 , y0 , rvod , xe , ye , rel , dy , re , i : integer ;
Begin
x := 640 ; // ширина окна
y := 480 ; // высота окна
setwindowsize ( x , y ) ; // устанавливаем размер окна
x0 :=x div 2 ; // центр Х
y0 := y div 2 ; // центр у
rvod :=70 ; // радиус солнца
rel := 10 ; // радиус венеры .
dy :=100 ;
re :=y0 - dy ; // радиус вращения венеры

i :=360 ;
repeat
clearwindow ;
if i=360 then i:= 1 else inc ( i ) ;
setpencolor ( clorange ) ; // yer . цвет пepa
circle ( x0 , y0 , rvod ) ; // солнце
floodfill ( x0 , y0 , clyellow ) ; // заливка фигуры ( солнце )
xe := x0 + round ( re*cos( i*pi / 180 ) ) ;
ye := y0 + round ( re*sin (i*pi / 180 ) ) ;
circle ( xe , ye , rel ) ; // (венера)
delay ( 10 ) ;
until keypressed
End.

8 лет назад