Поиск площади круга

Поиск площади круга

Тема в разделе "Темы со старого форума", создана пользователем Бэкап, 05.05.2015.

Загрузка...
Ответов: 0 Просмотров: 229 Ответить в теме
Воспользуйтесь функцией автоматического продвижения темы для увеличения числа просмотров темы, продаж платного контента и узнаваемости Вашего бренда. Услуга продвижения действует на протяжении 3-х дней и стоит всего 50 STF Wallet.

Продвинуть тему
  1. Бэкап
    uses
    graphabc;
    var
    r: integer;
    var
    S, radius: real;
    begin
    writeln('Введите радиус круга r = ');
    read(radius);
    r := round(radius);
    SetPenColor(clNavy);
    circle(320, 220, r);
    setpixel(320, 220, clblack);
    setpixel(320, 219, clblack);
    setpixel(320, 221, clblack);
    setpixel(319, 220, clblack);
    setpixel(321, 220, clblack);
    S := pi * (radius * radius);
    writeln('Радиус r = ', radius);
    writeln('Число пи = ', pi);
    writeln('Результат: площадь круга S = ', S)
    end.
     
    05.05.2015 Сообщений: Симпатий:
В этой теме всего одна страница
Вам, как гостю, ограничены возможности взаимодействия с темами. Пройдите бесплатную регистрацию и откройте для себя море возможностей.