Написать программу вычисления площади параллелограмма. ниже приведен рекомендуемый вид экрана во время выполнения программы Вычисления объема прямоугольника
Введите исходные данные:
Длина 9см
Ширина -7.5 см
Площадь параллелограмма:67.50 кв. см Код написать и составить блок схему ​

Код:

#include <iostream>int main() {    double h, a;    std::cout << "Вычисление площади параллелограмма" << std::endl;    std::cout << "Введите исходные данные" << std::endl;    std::cout << "Длина основания "; std::cin >> a;    std::cout << "Высота "; std::cin >> h;    std::cout << "Площадь параллелограмма: " << h * a << std::endl;    return 0;}

язык си(откомпилирован и проверен был в dev-c++)

 

#include < stdio.h> #include < stdlib.h> #include < conio.h> int main(){      int a, b, c;       printf("\n vvedite 3 chisla :   ");       scanf("%d" "%d" "%d", & a, & b, & c);             if (a > b & & a > c) printf("\n a = %d", a);       if (b > c & & b > a) printf("\n b = %d", b);       if (c > b & & c > a) printf("\n c = %d", c);       if (a == b & & a > c) printf("\n a = %d b = %d", a, b);       if (a == c & & a > b) printf("\n a = %d c = %d", a, c);       if (b == c & & b > c) printf("\n b = %d c = %d", b, c);       if (a == b & & a == c) printf("\n a = %d b = %d c = %d", a, b, c);   printf("\n\n press ");   getch( );   return 0; }

 

паскаль (откомпилирован и проверен был в pascal abc)

program z1; uses crt; var a, b , c: integer; beginwrite('vvedite 3 chisla:   '); readln(a, b, c); if (a > b) and (a > c) then writeln(' a = ', a); if (b > c) and (b > a) then writeln(' b = ', b); if (c > a) and (c > b) then writeln(' c = ', c); if (a = b) and (a > c) then writeln(' a = ', a, ' b = ', b); if (a = c) and (a > b) then writeln(' a = ', a, ' c = ', c); if (b = c) and (b > c) then writeln(' b = ', c, ' c = ', c); if (a = b) and (a = c) then writeln(' a = ', a, ' b = ', b, ' c = ', c); end.

ха-ха-ха)) учебник по информатике за 10

там все

программа №4

program str999; uses crt; var s: string; begin writeln('введіте фразу'); read(s); if (s='край озер') then writeln ('край озер лесов и рек'); if (s='я учусь в школе') then writeln ('я учусь в 10-м классе') end.

 

 

 

потхоньку буду дополнять, не так все быстро)) 

 

 

№5

 

 

program р_1; uses crt; var s: string; begin writeln('введите фразу'); read(s); if (s='моя родина беларусь') then writeln ('беларусь моя родина'); if (s='люблю цябе мой родны кут') then writeln ('мой родны кут люблю цябе') end.