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

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

Восстановить пароль Регистрация
 
Юляшко
2 / 2 / 0
Регистрация: 02.03.2010
Сообщений: 95
08.05.2010, 19:50     переведите на С++ из паскаля #1
помогите пожалуйста

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
program zadacha_10;
 uses crt;
  type s=record
   f: string [15];   {фамилия}
   fakul: string [15];   {факультет}
   god,kurs,vozrost:integer; {дата рождения}
  end;
   var
   a:array[1..20] of 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.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.05.2010, 19:50     переведите на С++ из паскаля
Посмотрите здесь:

Переведите с Паскаля C++
C++ переведите с Паскаля на си++
C++ переведите с Паскаля на си++
Переведите, пожалуйста, с паскаля на C++ C++
C++ переведите с паскаля на с++.пожалуйста
C++ переведите лабы с паскаля на си++
C++ Переведите из Паскаля в С++
C++ Переведите программу из Паскаля на С++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Manjak
 Аватар для Manjak
269 / 175 / 7
Регистрация: 12.03.2010
Сообщений: 494
09.05.2010, 12:05     переведите на С++ из паскаля #2
Как-то так:
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
#include <iostream>
#include <iomanip>
#include <vector>
#include <algorithm>
#include <functional>
using namespace std;
 
class Student
{
public:
    static const int CurrentYear = 2010;
 
    Student() : m_surname("Not set"), m_faculty("Not set"), 
                m_course(), m_age(), m_year()
    {
    }
    Student(const Student& cStud) : m_surname(cStud.m_surname), m_faculty(cStud.m_faculty), 
                              m_course(cStud.m_course), m_age(cStud.m_age), m_year(cStud.m_year)
    {
    }
    
    Student(string surname, string faculty, int course, int age, int year) :
        m_surname(surname), m_faculty(faculty), m_course(course), m_age(age), m_year(year)
    {
    }
 
    void printData()
    {
        cout << "| " << setw(15) << m_surname.c_str() << " | " << setw(15) << m_faculty.c_str() 
             << "| " << setw(4)  << m_course << " | " << setw(6) << m_year << " |" << endl;
    }
 
private:
    string m_surname;
    string m_faculty;
    int m_course;
    int m_age;
    int m_year;
};
 
Student getStudentData();
 
int main()
{
    vector<Student> students;
    for (int i = 0; i < 5; ++i)
        students.push_back(getStudentData());
 
    cout << "| " << setw(15) << "Surname" << " | " << setw(15) << "Faculty" 
         << "| " << setw(4)  << "Course" << " | " << setw(6) << "Birth" << " |" << endl;
    for_each(students.begin(), students.end(), mem_fun_ref(&Student::printData));
 
    system("pause");
    return 0;
}
Student getStudentData()
{
    string surname;
    string faculty;
    int course;
    int year;
 
    cout << "\nEnter student's surname: ";
        copy(istreambuf_iterator<char>(cin), istreambuf_iterator<char>(), back_inserter(surname));
    cout << "\nCourse: ";
        cin >> course;
    cout << "\nFaculty: ";
        copy(istreambuf_iterator<char>(cin), istreambuf_iterator<char>(), back_inserter(faculty));
    cout << "\nBirth date: ";
        cin >> year;
 
    return Student(surname, faculty, course, Student::CurrentYear - year, year);
}
Yandex
Объявления
09.05.2010, 12:05     переведите на С++ из паскаля
Ответ Создать тему
Опции темы

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