-1 / 1 / 0
Регистрация: 14.06.2010
Сообщений: 75
1

Перевод с Паскаля на С++

20.05.2011, 23:13. Показов 1312. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите переделать с Паскаля на С++.

1)Вывести максимальное число из файла in.txt.

Листинг:
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
Program num23;
uses crt;
var f1:file of integer;
    f2:text;
    n,i,a,max,imax,k:integer;
    m:array[1..1000]of integer;
begin
clrscr;
assign(f1,'in.txt');
rewrite(f1);
assign(f2,'number.txt');
rewrite(f2);
write('Vvedite kolichestvo chisel n=');
readln(n);
randomize;
for i:=1 to n do
  begin
    a:=random(201)-100;
    write(f1,a);
    write(a,' ');
  end;
writeln;
close(f1);
reset(f1);
max:=-maxint;
for i:=1 to n do
   begin
    read(f1,m[i]);
    if m[i]>max then
      begin
        max:=m[i];
        imax:=i;
      end;
    end;
writeln('Max=',max);
 
write(f2,max,' ');
close(f1);
close(f2);
readln
end.
2) Создать текстовый файл, состоящий из 2-3 предложений. Определить количество слов в нем.

Листинг:
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
program TextFile;
uses
  Crt;
var
  F1, F2: Text;
  CharCount, WordCount, LineCount: Integer;
  i: Integer;
  s: String;
  c: Char;
  f: Boolean;
begin
  Assign (F1, 'my.txt');
  Assign (F2, 'stat.txt');
  Reset (F1);
  Rewrite (F2);
   WordCount := 0;
   while not EOF (F1) do begin
    readln (F1, s);
    Inc (LineCount);
    Inc (CharCount, Length (s));
    f := True;
    for i := 1 to Length (s) do begin
      if (s[i] <> ' ') and f then begin
        Inc (WordCount);
        f := False;
      end;
      if (s[i] = ' ') and (not f) then begin
        f := True;
      end;
    end;
 
    writeln (s);
    c := readkey;
  end;
  writeln (F2, 'Слова: ', WordCount);
  Readln;
  Close (F1);
  Close (F2);
 Writeln(‘Clova=, WordCount);
Readln;
end.
 Комментарий модератора 
Используйте теги форматирования кода!
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.05.2011, 23:13
Ответы с готовыми решениями:

Перевод кода с Паскаля (перевод в метры)
var a,b,d:integer; c,e:real; begin writeln('1-дециметр 2-километр'); writeln('3-метр ...

Перевод с Паскаля в си
Всем привет! Прошу , пожалуйста помогите этот замечательный код перевести в си язык. const n...

Перевод из Паскаля в С
uses crt; var a,b,c,d:byte; begin clrscr; repeat writeln('Положение коня:');...

Перевод с паскаля
var x,y:real; o1,o2,o3:boolean; begin Readln(x,y); o1:=(y&lt;=7) and (y&gt;=1) and...

1
3 / 3 / 1
Регистрация: 30.04.2011
Сообщений: 51
21.05.2011, 01:09 2
Лучший ответ Сообщение было отмечено Alisa22 как решение

Решение

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#include<iostream>
#include<fstream>
 
using namespace std;
 
int main()
{
    setlocale(0,"");
    int i=0,a,max=0;
    ifstream inf;
    inf.open("in.txt"); 
    while (inf>>a)
    {
        if (a>max)
            max=a;
    }
    cout<<a<<endl;
        inf.close();
    system("pause");
    return 0;
}
Проверки на открытие файла не делаю, считаю, что файл in.txt должен быть.
Программа проверяет только целые числа, если нужны числа с плавающей точкой,
то a и max будут иметь тип double.

Добавлено через 1 час 18 минут
C++
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
#include<iostream>
#include<fstream>
#include<string>
 
using namespace std;
 
int main()
{
    setlocale(0,"");
    string s;
    int n=0;
    char c;
    ofstream of;
    ifstream inf;
    of.open("out.txt");
    cin>>s;
    of<<s;
    of.close();
    
    inf.open("out.txt");
    while (inf>>c)
    {
        n++;
    }
    inf.close();
    cout<<"n="<<n<<endl;
    system("pause");
    return 0;
}
Программа считает введенные символы а не слова, просто посчитай пробелы между символами, количество слов будет равно количеству пробелов+1.
0
21.05.2011, 01:09
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.05.2011, 01:09
Помогаю со студенческими работами здесь

Перевод с паскаля
uses crt ; const nmax = 100; var b : array of real ; n ,i , j : integer; x :real ; begin...

перевод с Паскаля
Надо перевести: program zz; var n,m:integer; i,j,g,z,bilkol:integer; d1,d2:text; ...

Перевод из Паскаля на С++
Привет всем. Нужна помощь. У меня есть алгоритм на Паскале, а нужен на С++, поскольку Паскаль знаю...

Перевод с Паскаля на Си++
program PrimesToN; var i, k, n, count: word; begin readln(n); for k := 1 to n...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru