Форум программистов, компьютерный форум, киберфорум
Наши страницы
С++ для начинающих
Войти
Регистрация
Восстановить пароль
 
CyberClear
0 / 0 / 0
Регистрация: 18.10.2017
Сообщений: 4
1

Записи, с паскаля на с++

25.01.2018, 17:19. Просмотров 153. Ответов 4
Метки нет (Все метки)

Вечер добрый, на учёбе начали юзать плюсы, задание с Паскаля нужно переделать под с++,
написал,
данные вводятся, но сортировка и поиск не работает, и чепуху выдаёт(на скрине).

Поправьте, где не правильно, буду благодарен.

Условие задания:
Кликните здесь для просмотра всего текста


1.Описать запись с именем Zodiac, содержащую следующие поля:
• Фамилия, имя;
• знак Зодиака;
• день рождения (массив из трёх чисел);
2.Написать программу, выполняющую следующие действия:
• Ввод данных с клавиатуры в массив, состоящий из восьми элементов типа Zodiac; записи должны быть упорядочены по датам дней рождения;
• Вывод на экран информации о человеке, чья фамилия введена с клавиатуры; если таких нет, вывести на экран соответствующее сообщение.




Код на Паскале:

Кликните здесь для просмотра всего текста



C++ (Qt)
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
74
75
76
77
78
79
80
81
82
program lab7;
uses crt;
Type zodiac=record
   fio: string[45];
   znak: string;
   dat_r:array [1..3] of integer;
 
end;
 
var
q,y,t:integer;
pupil: array [1..7] of zodiac;
 
I:integer;
s:string;
begin
clrscr;
 
 
for I:=1 to 6 do
begin
writeln('vvedite info o ',I, '-m cheloveke');
writeln('FIO:');
readln(pupil[I].fio);
 
writeln('Datu rozhdenija:');
readln(pupil[I].dat_r[1]);
readln(pupil[I].dat_r[2]);
readln(pupil[I].dat_r[3]);
 
writeln('Znak zodiaka:');
readln(pupil[I].znak);
 
writeln('  ');
end;
 
writeln(' ');
 
 
for q:=1 to 6 do begin 
 
for i:=1 to 5 do begin
 
  if pupil[i].dat_r[3] > pupil[i+1].dat_r[3] then begin
 
   pupil[7]:=pupil[i+1];
    pupil[i+1]:=pupil[i];
    pupil[i]:=pupil[7];
 
end;
 
 
 
end;
end;
                   
 
for I:=1 to 6 do
 writeln(pupil[I].fio,' ', pupil[I].dat_r[1],' ', pupil[I].dat_r[2],' ', pupil[I].dat_r[3],' ', pupil[I].znak); 
 
writeln('');
 
writeln('vvedite familiyu dlya poiska:');
readln(s);
 
writeln('  ');
 
  for I:=1 to 6 do begin                
    if s = pupil[I].fio then begin
      writeln ( pupil[I].fio );
      writeln( pupil[I].dat_r[1],pupil[I].dat_r[2],pupil[I].dat_r[3]);
      writeln( pupil[I].znak);
      break;
    end
    else
      if I = 6 then
      writeln('TAKIH NeT!');
 
   end;
 
     readln
end.


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
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
#include <iostream>
#include <stdio.h>
#include <locale.h>
#include <string>
#include <conio.h>
#include <windows.h>
#include <math.h>
 
using namespace std;
struct zodiac
{
    char fio[500];
    char znak[500];
    int dat_r[3];
 
};
 
int main()
{
int q;
zodiac pupil[7];
zodiac x;
int i;
char s[500];
 
for (i=0;i<6;i++){
    cout << "vvedite inf o  "<< i << "-m" << endl;
 
cout << "vvedite fio  "<< endl;
cin>> pupil[i].fio;
 
cout << "vvedite datu rozhdenija  "<< endl;
cin>> pupil[i].dat_r[1]>>pupil[i].dat_r[2]>>pupil[i].dat_r[3];
 
cout << "vvedite znak zodiaka  "<< endl;
cin>> pupil[i].znak;
 
cout << " " <<endl;
}
 
cout << pupil[i].fio << endl;
cout << pupil[i].znak << endl;
cout << pupil[i].dat_r[1] << endl;
cout << pupil[i].dat_r[2] << endl;
cout << pupil[i].dat_r[3] << endl;
cout << "  " << endl;
 
    for (q=0;q<6;q++){   //3333
            for (i=0;i<6;i++){
                if (pupil[i].dat_r[3] > pupil[i+1].dat_r[3]) {
                    x=pupil[i+1];
                pupil[i+1]=pupil[i];
                pupil[i]=x;
                }
                else
 
                if ((pupil[i].dat_r[3] == pupil[i+1].dat_r[3]) && (pupil[i].dat_r[2] > pupil[i+1].dat_r[2])) {
                    x=pupil[i+1];
                pupil[i+1]=pupil[i];
                pupil[i]=x;
                }
                else
                if (pupil[i].dat_r[1] == pupil[i+1].dat_r[1]) {
                    x=pupil[i+1];
                pupil[i+1]=pupil[i];
                pupil[i]=x;
                }
            }
 
 
    }
 
for (i=0;i<6;i++){
    cout << pupil[i].fio << pupil[i].dat_r[1] << pupil[i].dat_r[2] << pupil[i].dat_r[3] << pupil[i].znak << endl;
    cout << " " <<endl;
}
 
cout << "vvedite familiju:  "<< endl;
cin>>s;
cout << "  " << endl;
 
 
    for (i=0;i<6;i++) {
        if (s == pupil[i].fio) {
          cout << "FIO:  "<< pupil[i].fio << endl;
               cout << "God:  "<< pupil[i].dat_r[3] << endl;
                    cout << "Znak:  "<< pupil[i].znak << endl;
break;
        }
        else
        if (i==6){
            cout<< "Takih net!" << endl;
        }
    }
 
 
}
скрин результата программы:
0
Миниатюры
Записи, с паскаля на с++  
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.01.2018, 17:19
Ответы с готовыми решениями:

с паскаля на Си++
uses crt; var a:array of integer; i,n,max,min:integer; c:char; begin ClrScr; repeat...

из паскаля в С++
Здравствуйте! Помогите пожалуйста перевести код программы в паскале на С++: Program Example; uses...

Из паскаля в С++
Ребят, помогите, пожалуйста, перевести из паскаля в С++, буду благодарен за помощь. Заранее...

с паскаля на с++
Всем добрый день. помогите перевести с паскаля на с++. Буду очень благодарен Program zarplata;...

Из Паскаля в С++
Здравствуйте. Помогите переписать этот код на C++. Сам пробовал, но не получается. var...

4
CyberClear
0 / 0 / 0
Регистрация: 18.10.2017
Сообщений: 4
25.01.2018, 17:28  [ТС] 2
Вот, чё на паскале выходило:
0
Миниатюры
Записи, с паскаля на с++  
RusTNT
0 / 0 / 0
Регистрация: 17.01.2018
Сообщений: 6
25.01.2018, 17:33 3
Это делается легко , додумайтесь сами!
0
CyberClear
0 / 0 / 0
Регистрация: 18.10.2017
Сообщений: 4
25.01.2018, 17:35  [ТС] 4
RusTNT, у меня таких навыков, поэтому обратился к профессионалам
0
RusTNT
0 / 0 / 0
Регистрация: 17.01.2018
Сообщений: 6
25.01.2018, 17:39 5
...
0
25.01.2018, 17:39
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.01.2018, 17:39

С паскаля на С++
Всем добрый вечер!! Вот сама задача.....Дана квадратная матрица порядка M. Обнулить элементы...

Из Паскаля на С++
Здравствуйте. Помогите переписать это решение на C++. uses crt; var a:integer; function...

Из Паскаля в С++
Дана программа на Паскале: Program q; var a,b:byte; begin Writeln('Двузначные числа,...


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

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

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