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

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

Восстановить пароль Регистрация
 
faith0097
0 / 0 / 0
Регистрация: 30.03.2011
Сообщений: 17
14.04.2011, 21:08     перевод с Паскаля на С #1
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 секунд
кто разбирается - помогите
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.04.2011, 21:08     перевод с Паскаля на С
Посмотрите здесь:

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

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

Текущее время: 12:00. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru