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

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
faith0097
0 / 0 / 0
Регистрация: 30.03.2011
Сообщений: 17
#1

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

14.04.2011, 21:08. Просмотров 240. Ответов 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 секунд
кто разбирается - помогите
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.04.2011, 21:08
Здравствуйте! Я подобрал для вас темы с ответами на вопрос перевод с Паскаля на С (C++):

Перевод с Паскаля на С++ - C++
Кому не трудно. Помогите перевести пару задач несложных. 1 var a,b,c,tmp:real; begin write('Введите три числа A,B,C='); ...

Перевод из Паскаля в C++ - C++
Переведите программу из Паскаля в С++, пожалусйта Вот код : const nmax=100; var a: array of integer; i,j,n,m,min:...

Перевод из Паскаля в с++ - C++
Задача: Найти все натуральные n-значные числа, цифры в которых образуют строго возрастающую последовательность Есть решение на...

Перевод с Паскаля на С++ - C++
Не могу ни как перевести полностью вот этот кусок кода на Паскале на си++ function h(var key: TKey): integer; {Вычисление хеш-функции} ...

Перевод с паскаля в с++ - C++
переводил код с паскаля в с++ и столкнулся с проблемой, помогите разобраться, пожалуйста! writeln(a,' rublej') написал в с++ как printf...

Перевод с Паскаля в С++ - C++
Помогите перевести этот код на С++ var a,z,x,x0,x1,xk,y,y0,y1,yk,zmin,h:real; i,n:integer; begin clrscr; write(‘Ввод X0:’); ...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.04.2011, 21:08
Привет! Вот еще темы с ответами:

Перевод с Паскаля в С++ - C++
var n: longint; max,x: byte; begin write('Введите число n: '); readln(n); max:=n mod 10; while n>0 do begin ...

Перевод из паскаля в с++ - C++
ребятки, спасайте! нивкакую не получаецо перевести программку: Program p32; uses crt; var s:string; procedure proc(var y:string); ...

Перевод с Паскаля на C++ - C++
Помогите пожалуйста перевести это код на C++!!!!!! Uses crt,graph; label 2,3,4; Var dr,md,i,k:integer; d:char; procedure dogd; ...

Перевод с паскаля на С++ - C++
Даны два массива A и B одинакового размера N. Сформировать новый массив C того же размера, каждый элемент которого равен максимальному из...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru