Составьте програму, которая вводит с клавиатуры длину и ширину прямаугольника и определяет, является ли прямаугольник квадратом. Постройте данный
5-9 класс
|
прямоугольник ( единицу длины показать 5 пикселями)
uses crt,graphABC;
var x,y,xc,yc:integer;
begin
xc:=windowwidth div 2;
yc:=windowheight div 2;
write ('Введите ширину ');
read (x);
write ('Введите длину ');
read (y);
if (x=y) then write ('Это квадрат');
hidecursor;
setpencolor(clAqua);
rectangle(xc-x*5,yc-y*5,xc+x*5,yc+y*5);
floodfill(xc,yc,clAqua);
readkey;
end.
Другие вопросы из категории
Составьте программу,которая предлагает ввести с клавиатуры две строки s и t и выводит на экран более длинную строку.
Пример ввода:
школа (Строка s)
ученик (Строка t)
Пример вывода :
ученик
Читайте также
например армия(строка а)
арбуз (строка б)
2)составьте программу ,которая предлагает ввести с клавиатуры две строки а и б ,соеденяет их и выводит результат в одну строку
например: тепло(строка а)
ход(строка б)
а) определяет, есть ли в определенной строке заданный символ; б) копирует в новую строку имя и выводит его; в) выводит сначала фамилию, а затем имя. Задание 2. Составьте программу, которая в строке "Касіу Ясь канюшыну" заменяет имя "Ясь" на "Янка". Задание 3. Составьте программу, которая в строке "реки горы и болота": а) удаляет слово "горы"; б) Заменяет слово "болота" на "озера". Буду безмерно благодарна!!!
определяет, есть ли в определенной строке заданный символ; б) копирует в новую строку имя и выводит его; в) выводит сначала фамилию, а затем имя. Задание 2. Составьте программу, которая в строке "Касіу Ясь канюшыну" заменяет имя "Ясь" на...