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

перевод с Паскаля на С - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Как ограничить число знаков после запятой? http://www.cyberforum.ru/cpp-beginners/thread276609.html
надо ограничить число знаков до 4-х после запятой. В x. вот программа, а вівод x конечно в конце: #include <iostream.h> #include <conio.h> #include <stdlib.h> void main() { int colPos, rowPos; int i, j, k, razm;
C++ Функция дважды считывает данные собственно возникла проблема связанная с тем, что при выборе ввода массива вручную считается и определяется сумма элементов для ручного ввода, а затем уже сама по себе получившаяся сумма добавляется к сумме чисел в файле и четность высчитывается еще раз. #include <iostream> #include <fstream> using namespace std; void output(int sum); int main() { setlocale( LC_ALL, "Russian" ); ... http://www.cyberforum.ru/cpp-beginners/thread276607.html
C++ не работает qsort
Возникла проблема: в MSVS 2010 данный код выполняется неправильно, массив не сортируется,этот же код, скомпилированный в gcc работает как надо, какая может быть причина??? #include <stdio.h> #include <stdlib.h> int cmp(const void *a,const void *b) { if ((*((int*)a))>(*((int*)b))) return 1; return 0; }
C++ Дано n различных чисел, напечатать все возможные перестановки этих чисел
Помогите пожалуйста решить задачу через рекурсию: Дано n различных чисел, напечатать все возможные перестановки этих чисел.
C++ Моделирование работы сетевого протокола http://www.cyberforum.ru/cpp-beginners/thread276585.html
Доброго времени суток! Нужна ваша помощь.:) Необходимо разработать две программы, одна из которых будет посылать пакет, а другая - принимать. В качестве пакета используется файл со словом "привет" Заранее благодарен:)
C++ Моделирование работы концентратора Доброго времени суток! Необходимо объединить 4 компьютера в виде ячеек. Задача концентратора определять (указывать) адрес от кого, кому. К примеру нудно передать слово "привет":) Заранее благодарен:) Добавлено через 20 часов 51 минуту Помогите кто-то:) подробнее

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

перевод с Паскаля на С - C++

14.04.2011, 21:08. Просмотров 236. Ответов 0
Метки (Все метки)

uses Crt;
type
auto = (audi,bmw,opel,mersed,volvo,man);
mnoz=set of auto;
const
n=4;
mas:array[0..5] of string =('ауди','БМВ','оппель','мерсед ес','вольво','MAN');
var m:array[1..n] of mnoz;
f:boolean;
k:auto;
i,p:byte;
begin
clrscr;
m[1]:=[audi,bmw,opel,mersed];
m[2]:=[audi,bmw,opel];
m[3]:=[audi,opel,mersed];
m[4]:=[audi,bmw,opel];
writeln('Доставлены во все страны: ');
f:=false;
for k := audi to man do
begin
p:=0;
for i:=1 to n do
if k in m[i] then p:=p+1;
if p=4 then
begin
write(mas[ord(k)],' ');
f:=true;
end;
end;
if f=false then writeln('Таких марок нет!');
writeln;
writeln;
writeln('Доставлены в некоторые страны');
f:=false;
for k := audi to man do
begin
p:=0;
for i:=1 to n do
if k in m[i] then p:=p+1;
if p in [1..3] then
begin
write(mas[ord(k)],' ');
f:=true;
end;
end;
if f=false then writeln('Таких марок нет!');
writeln;
writeln;
writeln('Не доставлены ни в одну страну: ');
f:=false;
for k:=audi to man do
begin
p:=0;
for i:=1 to n do
if k in m[i] then p:=p+1;
if p=0 then
begin
write(mas[ord(k)],' ');
f:=true;
end;
end;
if f=false then writeln('Таких марок нет!');
readln
end

Добавлено через 37 секунд
кто разбирается - помогите
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru