• Напишите программы для следующих задач, организуя экран пользователя по предложенному варианту.
    Задача 1:Написать программу вычисления площади поверхности параллелепипеда.
    S=2*(A*B+B*C+C*A)
    Введите данные А=9,В=7.5,С=5
    Экран пользователя:Вычислите S поверхности параллелепипеда.
    Введите исходные данные:
    Длина(см)? 9
    Ширина(см)? 7.5
    Высота(см)? 5
    Площадь поверхности: 30000 кв.см.

    Задача 2: Записать программу вычисления стоимости покупки, состоящей из нескольких тетрадей и карандашей.
    Экран пользователя: Вычисление стоимости покупки
    Введите исходные данные:
    Цена тетради(руб.)? 2.75
    Количество тетрадей? 5
    Цена карандашей(руб.)? 0.85
    Количество карандашей? 2
    Стоимость покупки: 15.45 руб.

Ответы 1

  • program p1;var  a, b, c, s: real;begin  Writeln('Вычислите S поверхности параллелепипеда.');  Writeln('Введите исходные данные:');  Write('Длина(см)? '); Readln(a);  Write('Ширина(см)? '); Readln(b);  Write('Высота(см)? '); Readln(c);  s := 2 * (a * b + b * c + c * a);  Writeln('Площадь поверхности: ', s, ' кв.см.')end.Тестовое решение:Вычислите S поверхности параллелепипеда.Введите исходные данные:Длина(см)? 9Ширина(см)? 7.5Высота(см)? 5Площадь поверхности: 300 кв.см.program p2;var  ct,ck,s:real;  kt,kk:integer;begin  Writeln('Вычисление стоимости покупки');  Writeln('Введите исходные данные:');  Write('Цена тетради(руб.)? '); Readln(ct);  Write('Количество тетрадей? '); Readln(kt);  Write('Цена карандашей(руб.)? '); Readln(ck);  Write('Количество карандашей? '); Readln(kk);  s:=ct*kt+ck*kk;  Writeln('Стоимость покупки: ',s:0:2,' руб.')end.Тестовое решение:Вычисление стоимости покупкиВведите исходные данные:Цена тетради(руб.)? 2.75Количество тетрадей? 5Цена карандашей(руб.)? 0.85Количество карандашей? 2Стоимость покупки: 15.45 руб.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years