Информатика | 5 - 9 классы
Составьте программу ПОЖАЛУЙСТА в PASCAL ABC.
Вот типа такой цветочек.
Я так понял что эти лепестки надо либо эллипсами либо дугами делать, но не получается ХЕЕЕЕЛП.
Нужно написать программу на pascal abc?
Нужно написать программу на pascal abc.
PASCAL ABC : Составьте программу вычисления суммы четных чисел в диапазоне от 1 до 100?
PASCAL ABC : Составьте программу вычисления суммы четных чисел в диапазоне от 1 до 100.
Помогите, пожалуйста, нужны программы для Pascal ABC?
Помогите, пожалуйста, нужны программы для Pascal ABC.
Составьте программу , которая выводит на экран коды символов в слове BEBY?
Составьте программу , которая выводит на экран коды символов в слове BEBY.
ABC Pascal.
Нужно написать программу на pascal abc?
Нужно написать программу на pascal abc.
Нужно написать программу pascal abc?
Нужно написать программу pascal abc.
У ромашки 2016 лепестков?
У ромашки 2016 лепестков.
За ход разрешается сорвать либо один лепесток, либо два или пять рядом растущих лепестка.
Проигрывает тот, кто не сможет сделать ход.
Кто выиграет при правильной игре?
Составьте программу на Pascal ABC y = x2(квадрат) + 3?
Составьте программу на Pascal ABC y = x2(квадрат) + 3.
Составьте программу в Pascal ABC которая определяет является ли число 10 двузначным?
Составьте программу в Pascal ABC которая определяет является ли число 10 двузначным.
Составьте программу подсчета количества слов мама в строке?
Составьте программу подсчета количества слов мама в строке.
Pascal ABC.
На этой странице вы найдете ответ на вопрос Составьте программу ПОЖАЛУЙСТА в PASCAL ABC?. Вопрос соответствует категории Информатика и уровню подготовки учащихся 5 - 9 классов классов. Если ответ полностью не удовлетворяет критериям поиска, ниже можно ознакомиться с вариантами ответов других посетителей страницы или обсудить с ними интересующую тему. Здесь также можно воспользоваться «умным поиском», который покажет аналогичные вопросы в этой категории. Если ни один из предложенных ответов не подходит, попробуйте самостоятельно сформулировать вопрос иначе, нажав кнопку вверху страницы.
В идеале вот :
uses ABCObjects, GraphABC ;
const x0 = 300 ; y0 = 300 ; K = 10 ; var i, j, x1, y1, x, y, n : integer ; x2, y2, fi, t : real ; begin x : = x0 ; y : = y0 ; n : = 500 ; for j : = 0 to K - 1 do begin fi : = 2 * pi * j / K ; for i : = 1 to n do begin t : = 2 * pi * i / n ; x2 : = 100 * cos(t) + 150 ; y2 : = 20 * sin(t) ; x1 : = round(x2 * cos(fi) - y2 * sin(fi)) ; y1 : = round(x2 * sin(fi) + y2 * cos(fi)) ; if i > ; 1 then Line(x + x0, y0 - y, x0 + x1, y0 - y1) ; x : = x1 ; y : = y1 ; end ; end ; new CircleABC(x0, y0, 50, clyellow) ; end.