Задачи про окружность и про сутки, начальный уровень Опции

[ladupsik]

Помогите, пожалуйста, решить!!!
Задача номер 1.
Найти длину окружности и площадь круга данному значению радиуса. Определить площадь кольца, у которого внешний диаметр D, а внутренний d. D и d - выбранные значения пользователя. Результат вывести с двумя цифрами после запятой.

Задача номер 2.
Определить длину суток в секундах и ответ оформить в текстовом виде.

Заранее спасибо!!!
P.s. Если возможно, оформите как можно проще))

[Гость]

Помогите, пожалуйста, решить!!!
Задача номер 1.
Найти длину окружности и площадь круга данному значению радиуса. Определить площадь кольца, у которого внешний диаметр D, а внутренний d. D и d - выбранные значения пользователя. Результат вывести с двумя цифрами после запятой.

Задача номер 2.
Определить длину суток в секундах и ответ оформить в текстовом виде.

Заранее спасибо!!!
P.s. Если возможно, оформите как можно проще))

1- writeln(S:8:2);

2- 86400

[Гость]

1- writeln(S:8:2);

2- 86400

Спасибо конечно, но можете оформить в виде программы: program, begin и т.д.

[sheka]

Аж руки чешутся

program p2;
var
  s: string;
begin
  s := '86400';
end.

[Федосеев Павел]

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.

Сообщение отредактировано: Федосеев Павел - 25.02.2012 20:06