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

переделайте пожалуйста с Паскаля на c++ - C++

Восстановить пароль Регистрация
 
bohdan1217
0 / 0 / 0
Регистрация: 23.11.2012
Сообщений: 9
05.12.2012, 11:25     переделайте пожалуйста с Паскаля на c++ #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
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
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
Program XFiles;
Uses
  Dos,
  Crt;
Var
  f,f1,f2,f3:text;
  n,i,j,k,sch_B,sch_C:integer;
  A,B,C:array[1..100] of real;
  st,filename:string;
  vibor:byte;
  ch:char;
Procedure NameFile;
  begin
    writeln('Hotite otkazatsja ot dejstvija, naberite simvol"~"');
    write('Vvedite imja fajla ::: ');
    readln(filename);
    if filename='~' then halt(1)
      else assign(f,filename);
  end;
Procedure VvodChisel;
  begin
    ClrScr;
    writeln('Vvedite chisla cherez probel dlja zapisi v fajl [chisla.txt] ::: ');
    readln(st);
    n:=length(st);
    assign(f1,'chisla.txt');
    rewrite(f1);
    write(f1,st);
    close(f1);
  end;
Procedure SozdSortIZap;
  begin
    VvodChisel;
    assign(f1,'chisla.txt');
    reset(f1);
    j:=0;
    k:=0;
    sch_B:=0;
    sch_C:=0;
    for i:=1 to n do
      begin
    read(f1,A[i]);
    if A[i]>0 then
      begin
        j:=j+1;
        B[j]:=A[i];
        sch_B:=sch_B+1;
      end;
    if A[i]<0 then
      begin
        k:=k+1;
        C[k]:=A[i];
        sch_C:=sch_C+1;
      end;
      end;
    close(f1);
    assign(f2,'plus.txt');
    rewrite(f2);
    for j:=1 to sch_B do
      begin
    write(f2,B[j]:5:0);
      end;
    close(f2);
    assign(f3,'minus.txt');
    rewrite(f3);
    for k:=1 to sch_C do
      begin
    write(f3,C[k]:5:0);
      end;
    close(f3);
  end;
Procedure ReadFromFile;
  begin
    NameFile;
    reset(f);
    if IOresult<>0 then
      begin
    writeln('Fajla ',FExpand(filename),' nesuwestvuet.');
    writeln('Hotite vvesti drugoe imja fajla?(Y/N).');
    ch:=ReadKey;
    if (ch='Y') or (ch='y') then ReadFromFile;
      end
      else
      begin
    Writeln('Soderzhimoe fajla na jekrane');Writeln;
    while not eof(f) do
      begin
        readln(f,st);
        writeln(st);
      end;
    close(f);
    writeln;
    writeln('Nazhmite ljubuju klavishu');
    ReadKey;
      end;
  end;
Procedure Menu;
  begin
    repeat
      repeat
    ClrScr;
    writeln('1 ::: Sortirovka i sozdanie 2-h fajlov:');
    writeln('           1-j - s otricatelnymi [minus.txt],');
    writeln('           2-j - s polozhitelnymi [plus.txt].');
    writeln('2 ::: Chtenie fajlov');
    writeln('3 ::: Vyhod');
    write('Vash vybor ::: ');readln(vibor);
      until (vibor>0) and (vibor<4);
    writeln;
    write('Vy vybrali ::: ');
    case vibor of
      1:begin
      writeln('Sortirovka i sozdanie 2-h fajlov:');
      writeln('           1-j - s otricatelnymi [minus.txt],');
      writeln('           2-j - s polozhitelnymi [plus.txt].');
      SozdSortIZap;
    end;
      2:begin
      writeln('Chtenie fajlov');
      ReadFromFile
    end;
    end;
    until vibor=3;
  end;
Begin
  ClrScr;
  Menu;
End.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.12.2012, 11:25     переделайте пожалуйста с Паскаля на c++
Посмотрите здесь:

переведите с Паскаля на си++ пожалуйста! C++
переведите с Паскаля на си++ пожалуйста! C++
Двумерный массив (Вычислить вектор D, компоненты которого равны сумме элементов строк матрицы). Пожалуйста переделайте готовую программу C++
Переведите, пожалуйста, с паскаля на C++ C++
C++ переведите с паскаля на с++.пожалуйста
переведите, пожалуйста, код паскаля в с++ C++
C++ Переделайте, пожалуйста, с использованием процедур. Код С++
C++ Пожалуйста перепишыте программу из паскаля в с++

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

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

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