jagerlayf
?>

Тапсырма №3Кемежайдан жылжыған кеме 1 сағатта 25 шақырым жүзді. Жел ілеспелі болғандықтан, кеме сағатына жылдамдығын 1 шақырымға көбейтті. Сегізінші сағатта ол 32км/сағ жылдамдықпен жүзді. 8 сағатта кеме қандай арақашықтықты жүзіп өтед кометесп жбернздерші​

Информатика

Ответы

irinaphones8
Var x,y,z,Ans:integer;
    u:real;
Begin
  Write('Введите числа x,y,z: ');
  Readln(x,y,z);
  Writeln('Что вычислить из числа ',x,' ?');
  Writeln('1 - sin; 2 - cos; 3 - tg;');
  Readln(Ans);
    case Ans of
    1: begin u:=sin(x); Writeln('sin(',x,') = ',u) end;
    2: begin u:=cos(x); Writeln('cos(',x,') = ',u) end;
    3: begin u:=tan(x);  Writeln('tg(',x,') = ',u) end;
    else Writeln('Ошибка!')    end;
  Writeln('Найти максимальное число из ряда ',u,', ',y,', ',z);
  Writeln('Без модуля - 1; по модулю - 2');
  Readln(Ans);
    case Ans of
     1: begin
         if (u>y) and (u>z) then
 Writeln('Максимальное число - ',u)
          else
                if (y>u) and (y>z) then Writeln('Максимальное число - ',y)
                  else
                      if (z>u) and (z>y) then Writeln('Максимальное число - ',z)
                        else
                            Writeln('Все числа равны.')
        end;
    2: begin
         if (abs(u)>abs(y)) and (abs(u)>abs(z)) then
 Writeln('Максимальное число - ',u)
          else
                if (abs(y)>abs(u)) and (abs(y)>abs(z)) then 
Writeln('Максимальное число - ',y)
                  else
                      if (abs(z)>abs(u)) and (abs(z)>abs(y)) then
 Writeln('Максимальное число - ',z)
                        else Writeln('Все числа равны.')
        end
    end
End.

*.pas прикрепил во вложения
marinakmaa86

Инструмента́льное програ́ммное обеспе́чение — программное обеспечение, предназначенное для использования в ходе проектирования, разработки и сопровождения программ, в отличие от прикладного и системного программного обеспечения.

Один из наиболее известных языков программирования, используется для обучения программированию в старших классах является Pascal.

Бе́йсик (Basic) — семейство высокоуровневых языков программирования. Был разработан в 1964 году профессорами Дартмутского колледжа Томасом Курцем и Джоном Кемени.

Word — текстовый процессор, предназначенный для создания, просмотра, редактирования и форматирования текстов статей, деловых бумаг, а также иных документов.

PowerPoint- программа для созданий презентаций

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

Поделитесь своими знаниями, ответьте на вопрос:

Тапсырма №3Кемежайдан жылжыған кеме 1 сағатта 25 шақырым жүзді. Жел ілеспелі болғандықтан, кеме сағатына жылдамдығын 1 шақырымға көбейтті. Сегізінші сағатта ол 32км/сағ жылдамдықпен жүзді. 8 сағатта кеме қандай арақашықтықты жүзіп өтед кометесп жбернздерші​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

galkavik
gen218
sokolskiy458
Serdechnaya636
vmnk38
alfastore4
gorushko-tabak3
Mikhail1369
a-lossev111
tefdst
egamedicalbuh
Boss5519
astenSA
Melsan19914239
P7Y7V7