0 / 0 / 0
Регистрация: 09.12.2013
Сообщений: 19
1

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

13.12.2013, 10:36. Показов 1161. Ответов 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
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.12.2013, 10:36
Ответы с готовыми решениями:

Нужно перевести код из Turbo Pascal в Pascal ABC.NET
Доброго времени суток. На форуме находил похожие темы, но к сожалению так и не смог разобраться....

Нужно перевести код с Pascal ABC на Turbo Pascal - рисование работающей мельницы
Вот код, он должен рисовать работающею мельницу. uses graphABC,crt; type point=record ...

Перевести в код Pascal ABC из кода Pascal Delphi
procedure TForm1.Button1Click(Sender: TObject); const n=8; var x:array of real; y,z:array of...

Перевести в код Pascal ABC из кода Pascal Delphi
Помогите перевести в код ABC а то с Delphi вообще не знаком. Задание было такое: Записать в файл...

2
351 / 344 / 279
Регистрация: 21.05.2013
Сообщений: 1,312
13.12.2013, 11:05 2
Лучший ответ Сообщение было отмечено DaStAn1996 как решение

Решение

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
87 / 86 / 27
Регистрация: 04.10.2012
Сообщений: 350
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
13.12.2013, 11:11
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.12.2013, 11:11
Помогаю со студенческими работами здесь

Нужно перевести код из Turbo Pascal в Pascal ABC
Program n5; { Задача. Описать функцию less(f) от непустого файла f ...

Перевести код с Pascal
Помогите перевести пожалуйста код с pascal на VBA Составить алгоритм и написать программу,...

Перевести код с Pascal на С
Помогите перевести код на С или С++ var speed: array of integer; count, i, max: byte; ...

Перевести код с Pascal на C#
var a:arrayof real; max,sum,c:real; i,j:integer; begin for i:= 1 to 20 do ...

Перевести код с Pascal
var s,s1:string; p,i:integer; begin s1:=' '; writeln (&quot;введите строку !&quot;); readln (s); i:=1;...

Перевести код с Pascal
var a,b,sum:integer; begin randomize; a:=random(10); b:=random(10); ...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru