: 4
[Pascal]: Найти площадь кольца, если даны его внутренний и внешний радиус.
Найти площадь кольца,внутренний радиус которого R1, а внешний R2(R2>R1). Значения радиусом ввести с клавиатуры или задать с помощью генератора случайных чисел. Вывести на экран изображение кольца и результат вычислений.
Последний раз редактировалось Вадим Мошев; 24.12.2016 в 20:09 .
: 8,570
Прощать кольца равна: R2 — R1. Как находить площадь круга знаете?
: 4
Как найти площадь круга я знаю. Я составила две отдельные программы для нахождения площадь и вывода на экран,не знаю как совместить в одну
Я самый любопытный
Участник клуба
: 1,919
var r1,r2,s1,s2,s:real; begin Write(‘R1 = ‘);Readln(r1); Write(‘R2 = ‘);Readln(r2); s1:=pi*r1*r1; s2:=pi*r2*r2; s:=s2-s1; Writeln(s:5:5); Readln; end.
: 4
Еще бы знаеь,что им понравится,а что нет)
| Похожие темы | ||||
| Тема | Автор | Раздел | Ответов | Последнее сообщение |
| Составить программу для вычисления | ss1112 | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 20.12.2016 22:09 |
| Написать программу для Паскаль 9 класс: составить программу которая печатает таблицу умножения и сложения натуральных чисел | goodula | Помощь студентам | 23.01.2014 17:39 | |
| Составить программу вычисления и печати таблицы значений функции при заданных значениях параметров Составить программу вычисле | Марина1986 | C/C++ Сетевое программирование | 1 | 08.05.2013 13:34 |
| Составить программу для библиотеки | free23 | Помощь студентам | 5 | 30.11.2011 18:24 |
| Составить программу для вычисления Y и Z | 5shadow2 | Помощь студентам | 6 | 17.10.2011 18:54 |
Хитрая задача старого рабочего Найти площадь кольца
Источник: www.programmersforum.ru
Составить программу вычисления площади кольца по значениям внутреннего и внешнего радиусов, используя подпрограмму — Turbo Pascal
Дано: Составить программу вычисления площади кольца по значениям внутреннего и внешнего радиусов, используя подпрограмму вычисления площади круга (2 варианта: с процедурой и с функцией). С процедурой вроде как сделал, с функцией не поможете?
Решение простых задач на python | Площадь и периметр прямоугольного треугольника
Program vozvedenie; uses crt; var r1,r2:real; function Scirkle(r:real):real; begin Scirkle:=pi*sqr(r); end; begin clrscr; writeln(‘r1,r2’); readln(r1,r2); writeln(‘Площадь кольца равна**’,Scirkle(r1)-Scirkle(r2)); readln; end.
Код к задаче: «Составить программу вычисления площади кольца по значениям внутреннего и внешнего радиусов, используя подпрограмму»
Листинг программы
var r1,r2,sr1,sr2:real; Procedure Scirkle(r:real;var sr : real); begin sr:=pi*sqr(r); end; begin writeln(‘r1,r2’); readln(r1,r2); Scirkle(r1,sr1); Scirkle(r2,sr2); writeln(‘Площадь кольца равна**’,sr1-sr2); readln; end.
Источник: studassistent.ru
Программа которая вычисляет площадь кольца
Напишите программу вычисления площади кольца, радиусы вводятся с клавиатуры. Используйте функцию вычисления площади круга
Ответ проверен экспертом
5 (3 оценки)
petyaGavrikov 6 лет назад
Светило науки — 5869 ответов — 21974 помощи
var r1,r2,s:real;
function square(r:real):real;
begin
square:=pi*r*r;
end;
begin
writeln(‘r1, r2:’);
readln(r1,r2);
s:=abs(square(r1)-square(r2));
writeln(‘Площадь кольца = ‘,s:5:2);
end.
Пример:
r1, r2:
3 5
Площадь кольца = 50.27
Источник: vashurok.com