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

переведите на С++ из паскаля - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Вычисление суммы и произведения элементов матрицы, находящихся на главной диагонали http://www.cyberforum.ru/cpp-beginners/thread127007.html
Задана квадратная матрица размером к на к, составить программу вычисления суммы и произведения элементов матрицы, находящихся на главной диагонали.
C++ Треугольная матрица Как реализовать треугольную матрицу одномерным массивом? http://www.cyberforum.ru/cpp-beginners/thread127001.html
C++ Хафман
День добрый. Помогите разобраться с алгоритмом сжатия хафмана. Я так понимаю есть статистика текста она читается из файла. строим бинарное дерево и обходим его. Киньте хотя бы ссылок на инфу где почитать что нежно для написания кода. Учитывая что си я практически не знаю.
Код С++ (граф) C++
Задание: На плоскости задано множество n произвольным образом пересекающихся отрезков прямых линий. Перечислить множество всех треугольников, образованных указанными отрезками. По сути я немного разобрался, из условия можно понять что нам дан неориентированный, невзвешанный, простой граф. И мы должны пройти его все вершины, просматривая каждую на смежность с другими вершинами, если находится...
C++ cout http://www.cyberforum.ru/cpp-beginners/thread126990.html
for(i=1;i<=n;i++) cout<<'|'<<left<<internal<<ex; error C2065: 'left' : undeclared identifier error C2065: 'internal' : undeclared identifier что здесь ни то
C++ Курсовая работа Задание: На плоскости задано множество n произвольным образом пересекающихся отрезков прямых линий. Перечислить множество всех треугольников, образованных указанными отрезками. По сути я немного разобрался, из условия можно понять что нам дан неориентированный, невзвешанный, простой граф. И мы должны пройти его все вершины, просматривая каждую на смежность с другими вершинами, если находится... подробнее

Показать сообщение отдельно
Юляшко
2 / 2 / 0
Регистрация: 02.03.2010
Сообщений: 95
08.05.2010, 19:50     переведите на С++ из паскаля
помогите пожалуйста

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
56
57
program zadacha_10;
 uses crt;
  type s=record
   f: string [15];   {фамилия}
   fakul: string [15];   {факультет}
   god,kurs,vozrost:integer; {дата рождения}
  end;
   var
   a:array[1..20] of s;
    i,n,j:integer;        {переменные-счетчики, кол-во учеников}
    wer:string;           {переменная для сортировки}
    sgod:integer;        {сегодняшнее число}
   begin
    clrscr;
     write('Введите кол-во учеников ');     {ввод учеников}
     readln(n);
       writeln('введите текущий год ');    {проверяем возрост}
       readln(sgod);
    for i:= 1 to n do
    with a[i] do
     begin
      write('Введите фамилию ',i,' учеников ');
      readln(f);
      write('Курс ');
      readln(kurs);
      write('факультет ');
      readln(fakul);
      write('Год рождения ');
      readln(god);
      vozrost:=sgod-god;
     end;
      for i:=1 to 45 do       {выводим список}
        write('-');
        writeln;
        writeln('| № |Фамилия | Курс |Факультет | год рожд. |');
        writeln('|   |        |      |          |           |');
        readln;
      for i:= 1 to n do
        with a[i] do
         begin
          write(i:3,f:9,kurs:6,fakul:10,god:11,vozrost:5);
          readln;
         end;
      begin
      end;
      for i:= 1 to n do
      with a[i] do
       begin
        for i:=1 to 45 do       {выводим список}
        write('-');
        end;
        writeln;
    for i:=1 to n do
     if a[i].kurs=1 then begin
     writeln('Первокурсники ',a[i].f);
    end;
end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 14:07. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru