составьте программу,которая нарисует квадрат со стороной a и окружность,вписанную в квадрат
5-9 класс
|
uses graphabc;
var a: integer;
begin
write('Введите сторону квадрата: ');
read(a);
clearwindow;
rectangle(50,50,50+2*a,50+2*a);
circle(50+a,50+a,a);
end.
Программа должна работать, но есть одно "но": она рисует квадрат со стороной 2а вместо а. Такие дела :) Надеюсь, что не критично.
спасибо вы меня помогли
спасибо вы меня помогли
спасибо большое вы меня помогли )))
Другие вопросы из категории
составитель: В.И. Даль
Помогите ответить на следующие вопросы:
Издательство:
Год издания:
Число страниц :
Число строк на странице:
Число символов в строке:
Информационный объём одной страницы ( в байтах ):
Информационный
объём всего словаря ( в байтах):
Информационный объём всего словаря ( в килобайтах ):
Информационный
объём всего словаря ( в мегабайтах ):
высоте и радиусу основания. Данные задать статически. (Sосн=pR2; Sбок.пов=2pRh)
значениями пример вывода Исходный массив : 10 2 4 1 3 5 7 8 количество пар чётных элементов = 2
Читайте также
Или
составьте программу, которая определяет на сколько в строке S слов, начинающихся на главную букву больше, чем в строке T
надо решить одну из них
2)Составьте программу,которая заполняет массив e[1..8] случайными целыми числами в диапазоне от 1 до 20 и находит сумму элементов с нечётными значениями и количество элементов кратных 3.
3)Составьте программу,которая заполняет массив e[1..14] случайными целыми числами в диапазоне от -10 до 10,затем изменяет знак положительных элементов на противоположный,а отрицательные элементы заменяет на 0.Спасибо.
2. Составить программу, которая позволяет заменить все гласные символом "*"
Составить программу,которая выводит на экран сумму нечетных чисел от 1 до 30 в Pascal ABC.
2)Составить программу которая вычисляет произведение натуральных чисел от 5 до 10.