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

ИЗ PACKAL в C++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Разрезание шахматной доски http://www.cyberforum.ru/cpp-beginners/thread271573.html
Написать программу нахождения всех способов разрезания шахматной доски с числом клеток nxn (n-четное) на две одинаковые по форме части (не считая вращений и отражений). #include <windows.h>...
C++ Репетитор Ищу онлайн репетитора по С++.Естественно с оплатой. http://www.cyberforum.ru/cpp-beginners/thread271569.html
C++ Запуск приложения с условием и параметром
Народ, интересует вот такая вещь. Есть у кого код или кто нить может это написать: Программка при наличии проверяет наличие нужного файла и запускает другой файлик с параметром. Например 1.exe -...
C++ Работа с файлами
Помогите, пожалуйста понять в чем ошибка. Данный код реализует такой мини органайзер, с возможностями записи и считывания заданий, но при выборе пункта меню "запись нового задания", либо "текущее...
C++ Не вызывается функция по поиску цифр из заданной строки http://www.cyberforum.ru/cpp-beginners/thread271562.html
Никак не могу найти,где ошибка! Вроде все работает, а вот функция по поиску цифр из заданной строки не вызывается.. #include<iostream> #include<string.h> #include<stdio.h> using namespace std; ...
C++ Проверить, является ли введенная с клавиатуры квадратная матрица "магическим" квадратом Написать программу, которая проверяет, является ли введенная с клавиатуры квадратная матрица "магическим" квадратом. "Магическим" квадратом называется матрица, у которой сумма чисел каждом... подробнее

Показать сообщение отдельно
Villya
0 / 0 / 0
Регистрация: 12.06.2010
Сообщений: 32
07.04.2011, 01:25  [ТС]
Цитата Сообщение от 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