• 
  • 21 October 2012
  Английский язык
  • Автор: Zhasmin1985

  

  Напишите программу которая вычислит площадь геометрических фигур в Паскале.....1)Круг 2)прямоугольник 3)квадрат 4)паралеллограм

• 
  • 21 October 2012
  • Ответ оставил: Irian83

  1) по заданному радиусу:

   

  Program n1;
  Uses CRT;
  Var r,s: real;
  begin
  ClrScr;
  writeln('Vvedite radius');
  readln(r);
  s:=r*r*pi;
  Writeln('ploshad =',s:4:4);
  readln
  end.

   

  2) по заданным сторонам:

  Program n1;
  Uses CRT;
  Var a,b,s: real;
  begin
  ClrScr;
  writeln('Vvedite storoni');
  readln(a,b);
  s:=a*b;
  Writeln('ploshad =',s:4:4);
  readln
  end.

   

  3) по заданной стороне

  Program n1;
  Uses CRT;
  Var a,s: real;
  begin
  ClrScr;
  writeln('Vvedite storony');
  readln(a);
  s:=a*a;
  Writeln('ploshad =',s:4:4);
  readln
  end.

   

  3) по одной стороне и высоте к ней:

  Program n1;
  Uses CRT;
  Var a,b,s: real;
  begin
  ClrScr;
  writeln('Vvedite storony i vysoty k nei');
  readln(a,b);
  s:=a*b;
  Writeln('ploshad =',s:4:4);
  readln
  end.

  0
• 
  • НЕ НАШЛИ ОТВЕТ?

  Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: английский язык.
  На сегодняшний день (04.12.2024) наш сайт содержит 244793 вопросов, по теме: английский язык. Возможно среди них вы найдете подходящий ответ на свой вопрос.

  Найти другие ответы
• Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

  Ответить на вопрос

Последние опубликованные вопросы