Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

Определить, пройдет ли кирпич в прямоугольное отверстие (Pascal -> C++) - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Для десяти выстрелов вывести текстовые сообщения о попадании в мишень http://www.cyberforum.ru/cpp-beginners/thread1544849.html
Добрый день Прошу помощи по лабораторной по C++. Вот сама задача: Вариант 3. Для десяти выстрелов, координаты которых задаются с клавиатуры, вывести текстовые сообщения о попадании в мишень -...
C++ Скалярное произведение векторов Объясните, пожалуйста, значение вот этой строки: int scalar(int V1, int V2, int n) http://www.cyberforum.ru/cpp-beginners/thread1544845.html
Аргумент типа "LPCWSTR" несовместим с параметром типа "LPCSTR" C++
Выводит ошибку в условии. Если включать мультикодировку, то выводится одна ошибка, если Юникод, то другая. Как исправить? BOOL CreateGLWindow( LPCWSTR title, int width, int height, int bits, bool...
C++ Ошибка в sscanf
Доброго времени суток. Возникла ошибка в следующем коде: #include <iostream> #include <string.h> #include <ctype.h> #include <math.h> #include <stdio.h> #include <conio.h>
C++ Подскажите библиотеку для работы с файловой системой http://www.cyberforum.ru/cpp-beginners/thread1544835.html
Добрый день народ! Подскажите плиз библиотеки: Первая должна работать с файловой системой, (копирование, создание папок, вырезать, вставить ну и прочая лабуда). через команду system не канает...
C++ Найти сумму ряда с точностью 4 знака после запятой Здравствуйте есть программа для подсчета суммы ряда но требуемой точности 4 знака после запятой она не дает помогите разобраться где ошибка #include <iostream> #include <iomanip> #include... подробнее

Показать сообщение отдельно
gg12
0 / 0 / 0
Регистрация: 05.10.2015
Сообщений: 1

Определить, пройдет ли кирпич в прямоугольное отверстие (Pascal -> C++) - C++

05.10.2015, 00:15. Просмотров 229. Ответов 1
Метки (Все метки)

Помогите перевести из паскаля в си++



Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 uses crt;
 var a,b,c,x,y:real;
    t:boolean;
 begin
 clrscr;
 writeln('Пройдет ли кирпич в прямоугольное отверстие?');
 writeln;
 writeln('Введите три числа - размеры кирпича:');
 readln(a,b,c);
 writeln('Введите два числа - размеры прямоугольного отверстия:');
 readln(x,y);
 t:=   ((a<=x)and(b<=y))
    or((a<=x)and(c<=y))
    or((b<=x)and(c<=y))
    or((a<=y)and(b<=x))
    or((a<=y)and(c<=x))
    or((b<=y)and(c<=x));
 if t then write('Пройдет!')
 else write('Не пройдет!');
 readln
 end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru