Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > C/C++ программирование > Общие вопросы C/C++
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 08.05.2010, 19:54   #1
Юляшко
Пользователь
 
Регистрация: 21.04.2010
Сообщений: 24
Печаль переведите на С++ из паскаля

PHP код:
program zadacha_10;
 
uses crt;
  
type s=record
   f
string [15];   {фамилия}
   
fakulstring [15];   {факультет}
   
god,kurs,vozrost:integer; {дата рождения}
  
end;
   var
   
a:array[1..20of s;
    
i,n,j:integer;        {переменные-счетчикикол-во учеников}
    
wer:string;           {переменная для сортировки}
    
sgod:integer;        {сегодняшнее число}
   
begin
    clrscr
;
     
write('Введите кол-во учеников ');     {ввод учеников}
     
readln(n);
       
writeln('введите текущий год ');    {проверяем возрост}
       
readln(sgod);
    for 
i:= 1 to n do
    
with a[i] do
     
begin
      write
('Введите фамилию ',i,' учеников ');
      
readln(f);
      
write('Курс ');
      
readln(kurs);
      
write('факультет ');
      
readln(fakul);
      
write('Год рождения ');
      
readln(god);
      
vozrost:=sgod-god;
     
end;
      for 
i:=1 to 45 do       {выводим список}
        
write('-');
        
writeln;
        
writeln('| № |Фамилия | Курс |Факультет | год рожд. |');
        
writeln('|   |        |      |          |           |');
        
readln;
      for 
i:= 1 to n do
        
with a[i] do
         
begin
          write
(i:3,f:9,kurs:6,fakul:10,god:11,vozrost:5);
          
readln;
         
end;
      
begin
      end
;
      for 
i:= 1 to n do
      
with a[i] do
       
begin
        
for i:=1 to 45 do       {выводим список}
        
write('-');
        
end;
        
writeln;
    for 
i:=1 to n do
     if 
a[i].kurs=1 then begin
     writeln
('Первокурсники ',a[i].f);
    
end;
end
Юляшко вне форума Ответить с цитированием
Старый 08.05.2010, 20:18   #2
Ozerich
Студент 1 курса
Форумчанин Подтвердите свой е-майл
 
Аватар для Ozerich
 
Регистрация: 27.06.2008
Сообщений: 959
По умолчанию

Халява тут
Если не устраивает, стучись в асю - за скромную плату переведу.
C++(STL, QT, WinInet) / DHTML(CSS) / JavaScript / PHP Developer
Ozerich вне форума Ответить с цитированием
Старый 09.05.2010, 20:32   #3
coNsept
Форумчанин
 
Аватар для coNsept
 
Регистрация: 14.12.2009
Сообщений: 716
По умолчанию

- Существует такое слово как "пожалуйста" и соответственно "спасибо", не забываем об этом!

Код:
#include <stdio.h>
#include <conio.h>
#include <iostream>

using namespace std;

typedef struct S
{
    char f[15]; 
    char fakul[15];
    int god, kurs, vozrost;
} S;

S st; 

void main()
{
    system("CLS");

    st A[20]; 

    int i, j, n; char wer; int sgod;

    cout << "Введите кол-во учеников: "; 
    cin >> n;
    cout << "Введите текущий год: "; 
    cin >> sgod;
    cout << "\n";

    for (i = 0; i < n; i++)
    {
        // with a[i] do; не знаю как это работает
        cout << "Введите файмилию " << i << " учеников";
        cin >> st.f;

        cout << "Курс: ";
        cin >> st.kurs;
 
        cout << "Факультет: ";
        cin >> st.akul;

        cout >> "Год рождения: "
        cin >> st.god;

        st.vozrost = sgod - st.god;
    }

    for (i = 0; i < 45; i++)
    {
        cout << "-\n"

        cout << "| № | Фамилия | Курс | Факультет | Год рожд. |\n";
        cout << "|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||\n";
    }

    for (i = 0; i < n; i++)
    {
        // with a[i] do; не знаю как это работает
        cout << i << st.f << st.kurs << st.fakul << st.god << st.vozrost;
    }

    for (i = 0; i < 45; i++)
    {
        cout << "-";
    }
  
    cout << "\n";

    for (i = 0; i < n; i++)
    {
        if (A[i].kurs == 1)
        {
            cout << "Первокурсники: " << A[i].f;
        }
    }
      
    system("PAUSE");
}

Последний раз редактировалось coNsept; 09.05.2010 в 21:25.
coNsept вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
переведите с паскаля на си++ Bonne Помощь студентам 2 22.04.2010 00:21
Переведите пожалуйста из Pascal в C++ KamBall Паскаль, Turbo Pascal, PascalABC.NET 0 25.05.2009 14:57
Переведите кто-то из Паскаля в с++ пожалуйста. Отблагодарю голосами в контакте!!! megavolt91 Общие вопросы C/C++ 6 22.05.2009 17:55
Переведите на язык Delphi neomaximus Помощь студентам 1 26.11.2008 09:24
Переведите формулу на язык Delphi neomaximus Помощь студентам 3 11.11.2008 12:22