М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
misha223414
misha223414
11.06.2020 11:03 •  Информатика

Напишите в pascalabc машину (только машину) с graphabc (использовать только простые команды)

👇
Ответ:
Darishka22
Darishka22
11.06.2020
Вот программа:
program Speed;
uses crt,graphABC;
begin
circle (180,330,30);
circle (180,330,40);
Line (180,330,165,315);
Line (180,330,195,315);
Line (180,330,195,330);
Line (180,330,165,330);
Line (180,330,165,345);
Line (180,330,195,345);
Line (180,345,180,315);
circle (450,330,30);
circle (450,330,40);
Line (435,330,465,330);
Line (450,315,450,345);
Line (465,315,435,345);
Line (435,315,465,345);
Line (143,315,120,315);
Line (120,315,110,330);
Line (110,330,60,330);
Line (60,330,55,320);
Line (55,320,55,280);
Line (55,280,64,280);
Line (63,280,90,240);
Line (90,240,180,225);
Line (180,225,210,160);
Line (210,160,510,160);
Line (510,160,480,210);
Line (489,195,540,300);
Line (540,300,491,330);
Line (491,330,540,330);
Line (540,330,510,355);
Line (510,355,481,355);
Line (540,330,540,300);
Line (418,355,212,355);
Line (147,355,60,355);
Line (60,355,60,330);
Line (105,240,86,280);
Line (86,280,60,280);
Line (220,330,410,330);
Line (480,210,450,210);
Line (450,210,440,160);
Line (165,270,300,270);
Line (165,270,165,292);
Line (165,270,213,165);
Line (213,165,420,165);
Line (420,165,420,240);
Line (420,240,360,320);
Line (360,320,310,320);
Line (310,320,305,315);
Line (305,315,330,240);
Line (330,240,420,240);
Line (330,270,360,270);
Line (330,240,330,165);
Line (180,260,220,170);
Line (220,170,320,170);
Line (320,170,300,270);
Line (180,260,300,260);
Line (300,270,283,320);
Line (283,320,220,320);
Line (255,300,285,300);
Line (55,287,165,287);
Line (385,287,533,287);
Line (102,247,175,247);
Line (416,247,514,247);
end.

также посмотри результат работы:


Напишите в pascalabc машину (только машину) с graphabc (использовать только простые команды)
4,7(29 оценок)
Открыть все ответы
Ответ:
gghggggg1
gghggggg1
11.06.2020

языка SQL может:Организовывать данные и доступ к ним,их обработку,их целостность,их совместное использование.

функции:

1.NOW() — функция, возвращающая системное время и дату. 

2.MID() — функция, выводящая определенное количество символов текстового поля таблицы. 

3.LEN() — функция возвращает длину в текст.поле

4.LCASE() — функция возвращает столбцы

5.ROUND()- округляет десятичные числа

6.SUM()-возвращакт сумму значений столба

7.MAX()/MIN()-возврощает минимальную/максимальную сумму значений столбцов/столбца

8.AVG()-возврощает среднее значение

9.COUNT() — функция возвращающая количество записей (строк) таблицы.

Это если очень коротко

4,4(45 оценок)
Ответ:
dashechka1707
dashechka1707
11.06.2020
//1. Переборный алгоритм Евклида (цикл repeat)

var a, b, с: integer; 

begin

  write('Введите два числа: ');

  readln(a, b);

  if a < b then с := a + 1 else с := b + 1;

repeat с := с - 1

  until (a mod с = 0) and (b mod с = 0);

  write('NOD = ', с)

end.

 

//2. Алгоритм с вычитанием (цикл while)

var  a, b: integer;

begin

  write('a = ');

  readln(a);

  write('b = ');

  readln(b);

  while a <> b do

    if a > b then

      a := a - b

    else

      b := b - a;

  writeln('NOD = ', a);

end.

4,4(78 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ