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

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

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

массивы записей на паскале - C++

25.04.2010, 18:22. Просмотров 220. Ответов 0
Метки нет (Все метки)

Помогите переделать с паскаля на Си,пожалуйста


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
uses crt;
const n=3;
type rec=record
      name:string;
      p1,p2,p3:byte;
      sum:integer;
     end;
var x:array[1..n] of rec;
    i:byte;
    max1,max2,max3,maxx:integer;
begin
ClrScr;
for i:=1 to n do
 with x[i] do
  begin
   Write(' Name: ');
   Readln(name);
   Write(' P1: ');
   Readln(p1);
   Write(' P2: ');
   Readln(p2);
   Write(' P3: ');
   Readln(p3);
  end;
Writeln('Table: ');
x[i].sum:=0;
for i:=1 to n do
 x[i].sum:=x[i].sum+x[i].p1+x[i].p2+x[i].p3;
Writeln('----------------------------------');
Writeln('||  Name  | P1 | P2 | P3 || Sum ||');
Writeln('----------------------------------');
for i:=1 to n do
 Writeln('||',x[i].name:8,'|',x[i].p1:4,'|',x[i].p2:4,'|',x[i].p3:4,
         '||',x[i].sum:5,'||');
Writeln('----------------------------------');
max1:=-1;
for i:=1 to n do
 if (x[i].p1>max1) then
  max1:=x[i].p1;
max2:=-1;
for i:=1 to n do
 if (x[i].p2>max2) then
  max2:=x[i].p2;
max3:=-1;
for i:=1 to n do
 if (x[i].p3>max3) then
  max3:=x[i].p3;
maxx:=max1;
if (max2>max1) and (max2>max3) then
 maxx:=max2;
if (max3>max2) and (max3>max1) then
 maxx:=max3;
Writeln('High result: ',maxx);
Readln;
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.04.2010, 18:22     массивы записей на паскале
Посмотрите здесь:

В паскале это называется String C++
Вычисление массива на паскале и на С C++
C++ Считать даные из файла как в Паскале
C++ Есть на паскале, а как сделать на с++?
Есть на паскале, а воткак сделать на С++ ? C++
переписать на С++ задачи на паскале (12 штук) C++
C++ Игрушка на паскале перевести в с++
C++ Есть программа на паскале, нужно на Си
C++ Записи, массивы записей
C++ Код на паскале перевести в C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

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