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

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
DaStAn1996
0 / 0 / 0
Регистрация: 09.12.2013
Сообщений: 19
#1

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

13.12.2013, 10:36. Просмотров 301. Ответов 2
Метки нет (Все метки)

Перевести код из 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.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.12.2013, 10:36
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевести код из Pascal на С++ (C++):

Перевести код с Pascal - C++
l:array of integer; a,b,n,i:integer; w:boolean; begin readln(n); randomize; for i:=1 to n do begin l:=random(10)-3; ...

Перевести код с Pascal - C++
Помогите разобраться, что тут написано. Хотелось бы это на Си, т.к паскаль не знаю( заранее спасибо) var ans, a, p :int64; ...

Перевести код с Pascal - C++
program lab4; var i,j,jmax:integer; a:array of real; b:array of real; k,max,s:real; begin for i:=1 to 5 do for j:=1 to 4 do...

Перевести код с Pascal на C# и C++ - C++
Помогите переписать прогу с одного языка на другой. Вот Pascal const maxn = 150; var w: array of byte; link, lx, ly:...

Перевести код с Pascal - C++
пожалуйста помогите перевести код с паскаля в с++ uses crt; var N,M:longint; k:byte; begin clrscr; write('N=');readln(n); ...

Перевести код Pascal на C++ - C++
Program PROGRAMMA6; uses dos, crt, graph; Const N=110; M=90; s=13; r=6; h=5; Var y, yy, u : array of integer; ...

2
newyork7776
350 / 343 / 80
Регистрация: 21.05.2013
Сообщений: 1,312
Завершенные тесты: 1
13.12.2013, 11: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
#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"); // пауза
}
0
mytilus
83 / 83 / 9
Регистрация: 04.10.2012
Сообщений: 335
13.12.2013, 11:11 #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);}
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.12.2013, 11:11
Привет! Вот еще темы с ответами:

Перевести код с Pascal - C++
нужно написать программу на C++ из паскаля program pr1; uses crt; const WG=100; type tmasi=array of integer; var a:tmasi;...

Перевести код с Pascal на C++ - C++
Здравствуйте, дана задача : &quot;Последовательность Фибоначчи образуется так: первый и второй члены последовательности равны 1, каждый...

Перевести код из Pascal в C++ - C++
Помогите пожалуйста. begin for i := 1 to n do begin P :=i; C := 1 ; PR:=истина; end; C := 0; write(P,...,P); i := 1; ...

Перевести код из Pascal в С++ - C++
Всем привет! Нужно срочно сделать задачку, условие такое: &quot;Вычислить приближенное значение бесконечной суммы cos(x) = 1 - x^2/2! +...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.