profile
Размещено 4 года назад по предмету Информатика от NasAnishenko777

С помощью паскаля!

1.   Задано x.
Вычислить у(1 картинка):
2.    Даны действительные числа x,
y
(x≠y).
Меньшее из этих двух чисел заменить их
полусуммой, а большее - их удвоенным
произведением.
3.   Отредактируйте задачу zadacha3_11
так, чтобы при вводе
произвольного символа программа
выдавала ответ:
"Введена некорректная
арифметическая операция";
4.     Даны действительные числа х, у.
Получить:     max(x,y);                                              min(x,y);              max(x,y) и
min(x,y);

  1. Ответ на вопрос
    Ответ на вопрос дан Аккаунт удален
    1)
    var x,y:real;
    begin
    write('Введите число ');
    readln(x);
    if x<3 then y:=x*x-5;
    if (x>=3) and (x<=7) then y:=x;
    if x>7 then y:=x-3;
    writeln(y)
    end.

    2)
    var x,y,s,p:real;
    begin
    readln(x,y);
    s:=(x+y)/2;
    p:=2*x*y;
    if x<y then  
       begin   
          x:=s;
          y:=p
          end
       else
          begin
             y:=s;
             x:=p
             end;
    writeln('x=',x,'; y=',y)
    end.

    3)
    var 
       a,b,s:real;
       sim:char;
       f:boolean;
    Begin
    f:=true;
    writeln('Введите два числа');
    readln(a,b);
    writeln('Введите знак операции');
    readln(sim);
    case sim of
       '+': s:=a+b;
       '-': s:=a-b;
       '*': s:=a*b;
       '/': s:=a/b
       else f:=false
       end;
    if f then writeln ('результат ',a,sim,b,' = ',s) 
       else writeln('Введена некорректная арифметическая операция')
    End.

    4)
    var x,y,min,max:real;
    Begin
    writeln('Введите два числа');
    readln(x,y);
    if x<y then
       begin
          min:=x;
          max:=y
          end
       else
          begin
             min:=y;
             max:=x
             end;
    writeln ('min=',min,'; max=',max,'; min+max=',min+max)
    End.
    1. Ответ на вопрос
      Ответ на вопрос дан NasAnishenko777
      Найти макс., мин. и их сумму что-ли?
    2. Ответ на вопрос
      Ответ на вопрос дан NasAnishenko777
      и их сумму
    3. Ответ на вопрос
      Ответ на вопрос дан Аккаунт удален
      сейчас добавлю
    4. Ответ на вопрос
      Ответ на вопрос дан Аккаунт удален
      Только смысла не вижу, это же будет сумма исходных чисел. Но как сказано, так и сделано. Все. Готово
    5. Ответ на вопрос
      Ответ на вопрос дан NasAnishenko777
      спасибо
Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 5 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.