Форум программистов, компьютерный форум, киберфорум
Наши страницы

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

Войти
Регистрация
Восстановить пароль
 
Alisa22
-1 / 1 / 0
Регистрация: 14.06.2010
Сообщений: 75
#1

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

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

Помогите переделать с Паскаля на С++.

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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.05.2011, 23:13
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевод с Паскаля на С++ (C++):

Перевод с Паскаля в С++ - C++
uses crt; type prm=record {прямая с полями, коэффициентами} a,b,c:real; end; tch=record {точка с полями,...

Перевод с Паскаля в С++ - C++
uses crt; function rec(n:integer):real; var z:integer; begin z:=1; if n=0 then begin z:=1; rec:=1 end

Перевод с паскаля на С++ - C++
Даны два массива A и B одинакового размера N. Сформировать новый массив C того же размера, каждый элемент которого равен максимальному из...

перевод с паскаля на С++ - C++
Дан массив ненулевых целых чисел размера N. Проверить, образуют ли его элементы геометрическую прогрессию (см. задание 4). Если образуют,...

Перевод с Паскаля на с++ - C++
Пусть дан файл целых чисел. Создайте файл вещественных чисел, значениями которого будут средние арифметические значения каждой пятёрки...

Перевод из Паскаля в C++ - C++
Здравствуйте! Помогите перевести код из Паскаля в C++. Трансляторов смотрел в гугле, так и не разобрался. Вот задача Поменять местами...

1
vlad_ltd
3 / 3 / 0
Регистрация: 30.04.2011
Сообщений: 51
21.05.2011, 01:09 #2
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
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.05.2011, 01:09
Привет! Вот еще темы с ответами:

Перевод из Паскаля в C++ - C++
Переведите программу из Паскаля в С++, пожалусйта Вот код : const nmax=100; var a: array of integer; i,j,n,m,min:...

Перевод из паскаля в с ++ - C++
Ребят помогите перевести в с ++ var p:array of integer; c,c1:char; i,j,N,K:integer; name:string; time1,time2:integer; ...

Перевод из Паскаля в С++ - C++
Нужно переделать задачу из Паскаля в С++Builder. Поможете? Вот само задание:Описать функцию PowerA234(A), вычисляющую вторую, третью и...

Перевод с паскаля на с++ - C++
С Паскаля на С++ var n: Integer; d: Longint; begin repeat Write('Введите N : '); ReadLn(n); until n in ; n:=n div 2*2; ...


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

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

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