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

Объектно-ориентированное программирование - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Составить программу которая переворачивает список L, изменяет ссылки в этом списке так, чтобы его элементы оказались расположенными в обратном порядке http://www.cyberforum.ru/cpp-beginners/thread298440.html
Составить программу, которая переворачивает список L, т.е. изменяет ссылки в этом списке так, чтобы его элементы оказались расположенными в обратном порядке.
C++ Произведение n первых нечетных чисел равно р. Сколько сомножителей взято? Произведение n первых нечетных чисел равно р. Сколько сомножителей взято? Если введенное число n не является указанным произведением, сообщить об этом. http://www.cyberforum.ru/cpp-beginners/thread298438.html
Создать файл wares, содержащий сведения об экспортируемых товарах (10 записей) C++
Создать файл wares, содержащий сведения об экспортируемых товарах (10 записей): указывается наименование товара, страна, импортирующая товар, и объём поставляемой партии в штуках. Найти страны, в которые экспортируется данный товар, и общий объём его экспорта.
Найти сумму первых N членов арифметической (геометрической) прогрессии. C++
Задачу нужно решить с помощью рекурсии.... Найти сумму первых N членов арифметической (геометрической) прогрессии.
C++ Структуры. Описать переменную служащий http://www.cyberforum.ru/cpp-beginners/thread298423.html
Описать переменную служащий, состоящую из имени, фамилии, отчества служащего, даты рождения, образования, домашнего адреса, профессии. Определить имена людей с высшим образованием. Выдать данные о служащем, который имеет ту или иную профессию.
C++ Сформировать квадратную матрицу порядка n по заданному образцу сформировать квадратную матрицу порядка n по заданному образцу 1111 1001 1001 1111 Именуйте темы осмысленно. Название темы должно максимально полно отражать ее содержимое. подробнее

Показать сообщение отдельно
Елена ))
 Аватар для Елена ))
-2 / 0 / 0
Регистрация: 11.05.2011
Сообщений: 67
25.05.2011, 10:21  [ТС]     Объектно-ориентированное программирование
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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
program hgft;
type
   TMassiv=Object
        mas:array[1..100] of String;
        ind:integer;
         procedure index(i:integer);
         procedure dl(d:integer);
         Procedure Sceplenie(a,a1:array  of String);
         Procedure slijanie(a,a1:array of String);
 
   end;
   var
     k,l:integer;
   q:boolean;
   i1,j:integer;
   s:string;
   as:array [1..200] of string;
   a,a1:tmassiv;
     procedure a.dl(d:integer);
 
         begin
         For I1:= 1 to 100 do
         begin
         j:=1;
         while j<=d do
          begin
         s:='a' ;
          inc(j) ;
         end;
            a.mas[i1]:=S;
            a1.mas[i1]:=s;
         end;
         end;
         procedure a.index(i:integer);
        begin
          writeln(a.mas[i]);
           writeln(a1.mas[i]);
     end;
             Procedure a.Sceplenie(a,a1:array  of String);
                begin
                 for i1:=1 to 100 do
                  begin
                    a[i1]:=a[i1]+ a1[i1];
                    write(a[i1]);
                    end;
 
                 end;
                     Procedure a.slijanie(a,a1:array of String);
 
                     begin
                     q:=true;
                     l:=1;
                 for i1:=1 to 100 do
                  begin
                    as[i1]:=a[i1];
 
                   end;
 
                   for i1:=101 to 200 do
                  begin
                  for k:=1 to 100
                  begin
                  if as[k]=a[i1]  then
                  begin
                  q:=false;
                  break;
                   end;
                    end;
                    If q<>false then
                    as[i1] :=a1[l] ;
                    inc(l);
                   end;
 
                 end;
     begin
      Writeln ('Vvedite dlinu stroki');
      readln(d);
      Writeln('Vvedite index stroki');
      readln(p);
      a.dl(m);
     a.index(p);
     a.Sceplenie(a.mas,a1.mas);
      a.Slijanie(a.mas,a1.mas);
     end.
Добавлено через 1 минуту
Помогите,пожалуйста, перевести в С++
 
Текущее время: 21:36. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru