В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История

Составить программу, осуществляющую перевод величин из радианной меры в градусную или наоборот. Программа должна

Показать ответ
Ответ:
13573967
13573967
16.04.2019 23:00
var
 ch: char;
 r: real;
begin
 readln(r);
 writeln('В градусы(G)? В радианы(R)?');
 readln(ch);
  case ch of
   'G', 'g': writeln((r*180/pi):2:2, ' градусов');
   'R', 'r': writeln((r*pi/180):2:2, ' радиан');
  end;
end.
0,0(0 оценок)
Ответ:
Yxxxzy
Yxxxzy
16.04.2019 23:00
uses crt;
var gr,rad,a,b:real;
    c:byte;
Begin
clrscr;
writeln('1:grad>rad');
writeln('2:rad>grad');
readln(c);
case c of
1: begin
   clrscr;
   writeln('vvod grad');
   readln(a);
   rad:=(pi/180)*a;
   write('rad= ',rad:4:4);
   end;
2: begin
   clrscr;
   writeln('vvod rad');
   readln(b);
   gr:=(180/pi)*b;
   write('grad= ',gr:4:4);
   end;
end;
readln;
end.
0,0(0 оценок)
Популярные вопросы: Другие предметы
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота