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

Перевести код из Pascal на С++ - C++

Восстановить пароль Регистрация
 
DaStAn1996
0 / 0 / 0
Регистрация: 09.12.2013
Сообщений: 19
13.12.2013, 10:36     Перевести код из Pascal на С++ #1
Перевести код из Pascal на С++:
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
Uses crt; 
 Type 
 book=Record 
 fam: String; 
 pred: String; 
 st: Byte; 
 nagr: Byte; 
 end; 
 Var 
 x: Array [1..20] of book; 
 i,n: Integer; 
 BEGIN 
 Clrscr; 
 Writeln('Введите кол-во учителей: '); Readln(n); 
 For i:=1 to n do 
 begin 
    Write('Фамилия учителя: '); Readln(x[i].fam); 
    Write('Предмет: '); Readln(x[i].pred); 
    Write('Стаж: '); Readln(x[i].st); 
    Write('Нагрузка: '); Readln(x[i].nagr); 
 end; 
 Writeln('Список тех учителей школы, которые преподают математику и информатику:'); 
 For i:=1 to n do 
 If (x[i].pred='Математика') or (x[i].pred='Информатика') Then 
 begin 
    Writeln(x[i].fam); 
    Writeln(x[i].st); 
    Writeln(x[i].nagr); 
    Writeln('--------'); 
 end; 
 Readln 
 END.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.12.2013, 10:36     Перевести код из Pascal на С++
Посмотрите здесь:

C++ Перевести код с Pascal
Перевести код с Pascal C++
C++ Перевести код с Pascal
C++ Перевести код с Pascal
Перевести код из Pascal в C++ C++
Перевести код с Pascal C++
Перевести код с Pascal C++
C++ Перевести код с Pascal
C++ Перевести код с Pascal
Перевести код с Pascal C++
Перевести код с C++ в Pascal C++
C++ Перевести код с Pascal на С++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
newyork7776
 Аватар для newyork7776
346 / 339 / 79
Регистрация: 21.05.2013
Сообщений: 1,305
Завершенные тесты: 1
13.12.2013, 11:05     Перевести код из Pascal на С++ #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
#include <iostream>
#include <string>
 
using namespace std;
 
struct book
{
    string name;
    string predm;
    int age;
    int nagr;
};
 
void print(const book &m)
{
    cout << "Name = "    << m.name    << "\n"
         << "   Pred = "    << m.predm   << "\n"
         << "   Age = "     << m.age     << "\n"
         << "   Nagr = "    << m.nagr    << "\n\n";
}
 
void init(book &m)
{
    cout << "Name = ";cin >> m.name;
    cout << "   Pred = ";cin >> m.predm;
    cout << "   Age = ";cin >> m.age;
    cout << "   Nagr = ";cin >> m.nagr;
}
 
int main()
{
    const int size = 10;
    book pArr[size];
    int n;
    cout << "Enter number N[1..10] = ";cin >> n;
    // в цикле инициализируем структуры
    for (int i=0; i < n; i++)
        init(pArr[i]);
 
    for (int i=0; i < n; i++)
        print(pArr[i]); // вызываем функцию print, передавая элемент массива pArr[i]
 
    for(int i=0;i<n;i++)
    {
        if ((pArr[i].predm == "Математика") || (pArr[i].predm=="Информатика"))
        {
                print(pArr[i]);
        }
    } 
    system("pause"); // пауза
}
mytilus
82 / 82 / 8
Регистрация: 04.10.2012
Сообщений: 329
13.12.2013, 11:11     Перевести код из Pascal на С++ #3
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
#include <iostream>
 
using namespace std;
 
int main() {
  struct book {
    char *fam, *pred;
    unsigned char st, nagr;} x[20];
  int i, n;
  char *locale = setlocale(LC_CTYPE, "");
  setlocale(LC_CTYPE, "russian");
  system("cls");
  cout << "Введите кол-во учителей:" << endl; cin >> n;
  for (i = 0; i < n; i++) {
    cout << "Фамилия учителя: "; cin >> x[i].fam;
    cout << "Предмет: "; cin >> x[i].pred;
    cout << "Стаж: "; cin >> x[i].st;
    cout << "Нагрузка: "; cin >> x[i].nagr;}
  cout << "Список тех учителей школы, которые преподают математику и информатику:" << endl;
  for (i = 0; i < n; i++) if (!strcmp(x[i].pred, "Математика") || !strcmp(x[i].pred, "Информатика")) {
    cout << x[i].fam << endl;
    cout << x[i].st << endl;
    cout << x[i].nagr << endl;
    cout << "--------" << endl;}
  system("pause");
  setlocale(LC_CTYPE, locale);}
Yandex
Объявления
13.12.2013, 11:11     Перевести код из Pascal на С++
Ответ Создать тему
Опции темы

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