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

C++

Войти
Регистрация
Восстановить пароль
 
Юляшко
2 / 2 / 0
Регистрация: 02.03.2010
Сообщений: 95
#1

нужно перевести на С++ - C++

25.04.2010, 19:06. Просмотров 414. Ответов 1
Метки нет (Все метки)

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
uses crt;
const n=4;
type rec=record
      name,str:string;
      oc1,oc2:integer;
      sum:integer;
     end;
var x:array[1..n] of rec;
    i:integer;
    max:integer;
    k:string;
begin
ClrScr;
for i:=1 to n do
 begin
  Write(' Имя: ');
  Readln(x[i].name);
  Write(' Странна: ');
  Readln(x[i].str);
  Write(' оценка 1: ');
  Readln(x[i].oc1);
  Write(' оценка 2: ');
  Readln(x[i].oc2);
  writeln;
 end;
 clrscr;
Writeln('Таблица: ');
for i:=1 to n do
 x[i].sum:=x[i].sum+x[i].oc1+x[i].oc2;
Writeln('----------------------------------------------------');
Writeln('||  иМя    |  Страна  | оценка 1| оценка 2| сумма ||');
Writeln('----------------------------------------------------');
for i:=1 to n do
 Writeln('||',x[i].name:9,'|',x[i].str:11,'|',x[i].oc1:9,'|',
          x[i].oc2:8,'|',x[i].sum:7,'||');
Writeln('----------------------------------------------------');
max:=x[1].sum;
for i:=1 to n do
 if x[i].sum>max then
  begin
   max:=x[i].sum;
   k:=  x[i].name;
  end;
Writeln(' Чемпион: ',k,' Заработал ',max,' очков');
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.04.2010, 19:06     нужно перевести на С++
Посмотрите здесь:

Нужно перевести программы из Pascal в C C++
нужно перевести с Паскаля на С++ C++
Нужно перевести программу из Паскаля в С++ C++
C++ Нужно перевести псевдокод в С++
C++ Нужно перевести коды программ с паскаля, в С++!
C++ Builder Нужно перевести из языка Си в С++
Visual C++ Нужно перевести HEX строку в float
нужно перевести с паскаля на с++ C++
Нужно перевести на язык Pascal C++
Нужно перевести программу из Паскаля в С++ C++
Нужно все массивы перевести в двумерные C++
C++ нужно перевести с pascal на c++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Юляшко
2 / 2 / 0
Регистрация: 02.03.2010
Сообщений: 95
27.04.2010, 22:13  [ТС]     нужно перевести на С++ #2
помогите пожалуйста! Я в С++ не очень разбираюсь
Yandex
Объявления
27.04.2010, 22:13     нужно перевести на С++
Ответ Создать тему
Опции темы

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