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

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

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

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

05.12.2012, 11:25. Просмотров 208. Ответов 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
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++
const n=10; k=8; var p:array of integer; i,j,s:integer; begin Randomize; For i:=1 to n do begin ...

Переделайте, пожалуйста, с использованием процедур. Код С++ - C++
#include &lt;iostream&gt; #include &lt;time.h&gt; #define SIZE_X 10 #define SIZE_Y 12 #define MAX_NUM 256 int main() ...

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

Переведите пожалуйста с паскаля на с++ - C++
var i,j: integer; function lol(x: integer): integer; var i,k: integer; begin k:=0; for i:=1 to x-1 do if x mod i = 0 then ...

переведите с паскаля на с++.пожалуйста - C++
uses crt; var i,j,n,k:integer; a:array of byte; begin Write ('Введите n='); Readln(n); clrscr; k:=0; j:=0; i:=1;

Переведите, пожалуйста, с паскаля на C++ - C++
type Person = record Surname, Name, Adress, City: string; ...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.12.2012, 11:25
Привет! Вот еще темы с ответами:

переведите с Паскаля на си++ пожалуйста! - C++
в Паскале получается...а в СИ++ нет( procedure Mean(x,y:real; var AMean,GMean:real); begin AMean:=(x+y)/2; GMean:=sqrt(x * y); ...

переведите с Паскаля на си++ пожалуйста! - C++
Дано имя файла и целое число N (0 &lt; N &lt; 27). Создать текстовый файл с указанным именем и записать в него N строк длины N; строка с номером...

Пожалуйста перепишыте программу из паскаля в с++ - C++
Program Zadacha; var n,i: integer; a,s: real; begin write('ВВ.n'); read(n); s:=0; for i:=1 to n do begin ...

переведите, пожалуйста, код паскаля в с++ - C++
Вот, добрые люди, само задание: заданной и действительной квадратной матрицы порядка n найти сумму элементов строки, в которой расположен...


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

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

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