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

ИЗ 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

ИЗ PACKAL в C++ - C++

07.04.2011, 01:20. Просмотров 379. Ответов 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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.