Помогите, пожалуйста, решить!!! Задача номер 1. Найти длину окружности и площадь круга данному значению радиуса. Определить площадь кольца, у которого внешний диаметр D, а внутренний d. D и d - выбранные значения пользователя. Результат вывести с двумя цифрами после запятой.
Задача номер 2. Определить длину суток в секундах и ответ оформить в текстовом виде.
Заранее спасибо!!! P.s. Если возможно, оформите как можно проще))
Гость
25.02.2012 3:45
Цитата(ladupsik @ 24.02.2012 16:39)
Помогите, пожалуйста, решить!!! Задача номер 1. Найти длину окружности и площадь круга данному значению радиуса. Определить площадь кольца, у которого внешний диаметр D, а внутренний d. D и d - выбранные значения пользователя. Результат вывести с двумя цифрами после запятой.
Задача номер 2. Определить длину суток в секундах и ответ оформить в текстовом виде.
Заранее спасибо!!! P.s. Если возможно, оформите как можно проще))
1- writeln(S:8:2);
2- 86400
Гость
25.02.2012 16:04
Цитата(Гость @ 24.02.2012 23:45)
1- writeln(S:8:2);
2- 86400
Спасибо конечно, но можете оформить в виде программы: program, begin и т.д.
sheka
25.02.2012 23:37
Аж руки чешутся
program p2; var s: string; begin s := '86400'; end.
Федосеев Павел
26.02.2012 0:03
ladupsik, Для первой задачки
program First; var d1, { внутренний диаметр кольца - d (по условию) } d2 : real; { внешний диаметр кольца - D (по условию) } s : real; { площадь кольца } begin {ввод исходных данных} Write('d: '); ReadLn(d1); Write('D: '); ReadLn(d2); {обработка данных - вычисление площади кольца} s:=(Pi*Sqr(d2)/4)-(Pi*Sqr(d1)/4); {вывод результата на экран} WriteLn('s: ', s:8:4); end.
Попробуй закончить первое задание по этому образцу. Как видишь, здесь решено тоько для площади кольца. Для длины окружности и площади круга действия аналогичны: 1. ввод данных (радиуса R); 2. обработка - нахождение длины L:=2*Pi*R и площади s:=Pi*Sqr( R ); 3. вывод результата - L и s.
А для второй задачи решение будет состоять из одной строки WriteLn(60*60*24).
Если будет непонятно, что такое Sqr - наведи на это слово курсор (в среде Turbo Pascal) и нажми Ctrl-F1.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.