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

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

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

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

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

Попадание точки. Массивы чисел. Массивы записей. - C++
Всем привет. По языкам задали три контрольные на си. Я сам си не знаю, даже не представляю, поэтому очень нужна ваша помощь. ...

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

Оброботка записей в Паскале - Pascal
В журнале студенческой группы ежедневно на каждом занятии напротив фамили студентов делаютса следующие пометки: 0 - отсуцтвие без...

Массивы в паскале - Pascal
Прозрачная пластина состоит из m слоев, показатели преломления которых заданы массивом (n1,....,nm). Луч входит в пластину из вакуума под...

Массивы в паскале. - Pascal
Ребят, за лето все вылетело из головы. Помогите решить задачу. Ввести через клавиатуру массив B размерами 2 на 3 (B), определить,...

Массивы в Паскале - Pascal
Нужно решить 3 задачки, если нужно заплачу. 1. Найти сумму элементов массива C (3,0,0,-9,7,6,0,6,5,0) кратных 3. 2. Найти среднее...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.04.2010, 18:22
Привет! Вот еще темы с ответами:

Массивы в паскале. - Pascal
програмку на паскале написать надо...... пожалуйста ребят помогите... в массиве из 40 элементов подсчитать число элементов с четными...

Массивы в паскале - Pascal
Помогите плиз решить задачку) Текст задачи: Исключение из массива всех пробелов и запятых со сдвигом остающихся элементов массива на...

Массивы на Паскале - Pascal
написать программку над на Паскале: в Массиве из 40 элементов подсчитать число элементов с четными номерами, имеющие значение False

Массивы в паскале - Pascal
помогите пожалуйста к среде надо решить хотя бы 5 задач 1. У прилавка магазина выстроилась очередь из п покупателей. Время...


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

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

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