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

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

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

ИЗ PACKAL в C++ - C++

07.04.2011, 01:20. Просмотров 368. Ответов 2
Метки нет (Все метки)

Задача реализованная на PACKALЕ
Program zapic;
Uses Crt;
type AEROFLOT =record
Nazvanie:string;
Nomer:byte;
pynktpributya:string;
sovpadenie:byte;
End;
var Poletu:array[1..10] of AEROFLOT;
i,N:integer;k:string;
Begin
clrscr;
writeln('Vvedite nomer');
readln(N);
for i:=1 to N do
Begin
writeln('Nomer reisa');
readln(Poletu[i].Nomer);
End;
for i:=1 to N do
begin
writeln('Vvedite pynkt pribytya');
readln(Poletu[i].pynktpributya);
End;
for i:=1 to N do
Begin
writeln('Vvedite camoletu');
readln(Poletu[i].Nazvanie );
End;
for i:=1 to N do
Begin
if Poletu[i].Nomer=N then
writeln('nomer-',Poletu[i].Nomer,'pributie-',Poletu[i].pynktpributya,'camolet-',Poletu[i].Nazvanie)
else writeln('Net sovpadeniu');
End;
readkey;
End.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.04.2011, 01:20
Здравствуйте! Я подобрал для вас темы с ответами на вопрос ИЗ PACKAL в C++ (C++):

строки packal - Turbo Pascal
Дан текст, состоящий из строчных русских и англицких букв и знаков препинания. Определить, сколько раз в тексте встретились заданные буквы....

решить в Borland packal-e - Pascal
ПОМОГИТЕ, ПОЖАЛУЙСТА, решить задачу в Borland packal-e найти все натуральные трехзначные числа, в записи которых нет одинаковых цифр:...

напишите пожалуйста 4-5 примеров любых можно уравнение и перевидите их в язык паскаль (packal) - Pascal
пожалуйста:boredom:

строки packal - Turbo Pascal
Дан текст, состоящий из строчных русских и англицких букв и знаков препинания. Определить, сколько раз в тексте встретились заданные буквы....

решить в Borland packal-e - Pascal
ПОМОГИТЕ, ПОЖАЛУЙСТА, решить задачу в Borland packal-e найти все натуральные трехзначные числа, в записи которых нет одинаковых цифр:...

напишите пожалуйста 4-5 примеров любых можно уравнение и перевидите их в язык паскаль (packal) - Pascal
пожалуйста:boredom:


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

Или воспользуйтесь поиском по форуму:
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Jupiter
Каратель
Эксперт С++
6554 / 3975 / 226
Регистрация: 26.03.2010
Сообщений: 9,273
Записей в блоге: 1
Завершенные тесты: 2
07.04.2011, 01:21 #2
Цитата Сообщение от Villya Посмотреть сообщение
Задача реализованная на PACKALЕ
на чем?
0
Villya
0 / 0 / 0
Регистрация: 12.06.2010
Сообщений: 32
07.04.2011, 01:25  [ТС] #3
Цитата Сообщение от Villya Посмотреть сообщение
Задача реализованная на PACKALЕ
Program zapic;
Uses Crt;
type AEROFLOT =record
Nazvanie:string;
Nomer:byte;
pynktpributya:string;
sovpadenie:byte;
End;
var Poletu:array[1..10] of AEROFLOT;
i,N:integer;k:string;
Begin
clrscr;
writeln('Vvedite nomer');
readln(N);
for i:=1 to N do
Begin
writeln('Nomer reisa');
readln(Poletu[i].Nomer);
End;
for i:=1 to N do
begin
writeln('Vvedite pynkt pribytya');
readln(Poletu[i].pynktpributya);
End;
for i:=1 to N do
Begin
writeln('Vvedite camoletu');
readln(Poletu[i].Nazvanie );
End;
for i:=1 to N do
Begin
if Poletu[i].Nomer=N then
writeln('nomer-',Poletu[i].Nomer,'pributie-',Poletu[i].pynktpributya,'camolet-',Poletu[i].Nazvanie)
else writeln('Net sovpadeniu');
End;
readkey;
End.
Вот, что нужно чтоб было в проге по заданию:
1)Включить в класс методы set (…), get (…), show (…);
2)Aeroflot: Пункт назначения, Номер рейса, Тип самолета, Время вылета, Дни недели. Определить осуществляет ли самолет рейсы на выходных.

Добавлено через 1 минуту
Turbo Packal 7.1, а надо на С++
0
Ответ Создать тему
Опции темы

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