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

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

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

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

25.04.2010, 18:22. Просмотров 224. Ответов 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     массивы записей на паскале
Посмотрите здесь:

Записи, массивы записей - C++
Нужно описать массив записей, в которых содержится информация о студентах (имя, и дата рождения). нужно вывести с файла День рождения по...

Вычисление массива на паскале и на С - C++
Привет ..) Помогите. С++ ещё понимаю, но паскаль это ппц. Задачу надо сделать и на паскале и на С. Задача такая: Вычислить...

Игрушка на паскале перевести в с++ - C++
Просьба помочь перевести игрушки на с++!:good: uses ABCObjects,Events,GraphABC,Timers,Utils; var kLeftKey,kRightKey: boolean;...

Код на паскале перевести в C++ - C++
Здраствуйте, есть код на паскале не могли бы вы помочь реализовать его на C++ uses crt,graphABC; var x,y: integer; procedure...

Есть программа на паскале, нужно на Си - C++
привет всем! Я недавно начало писать на Cи, и не знаю как решить эту задачку. точнее не знаю как написать её именно на Cи, на Паскале...

Есть на паскале, а как сделать на с++? - C++
Описать процедуру Chessboard(M, N, A), формирующую по целым положительным числам M и N матрицу A размера M x N, которая содержит числа 0 и...

Есть на паскале, а воткак сделать на С++ ? - C++
Описать процедуру LowCaseRus(S),преобразующую все прописные русские буквы строки S встрочные (остальные символы строки S...

В паскале это называется String - C++
Чем больше я изучаю С, тем больше понимаю, что этот язык придумали извращенцы. В общем это... в паскале это делается так: Z String; ...

переписать на С++ задачи на паскале (12 штук) - C++
Помогите перенетси в С++ Несколько задач.. 12 штук.. Они не сложные написанны на паскале.. Буду очень благодарен.. Все лежит в архвие..

Считать даные из файла как в Паскале - C++
Есть в с++ такая функция чтобы считать файлы так же само как Паскале, то есть функция считывает допустим одно число и сразу же...


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

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

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