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

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

Восстановить пароль Регистрация
Другие темы раздела
C++ Цвет текста http://www.cyberforum.ru/cpp-beginners/thread300832.html
Возник такой вопрос,возможно ли както выделение цветом выводимого текста(в консоли) ?
C++ Выполнение кода в стеке Доброго времени суток! Не могу разобратся в коде void Demo(int (*_printf) (const char *,...) ) { _printf("Hello, Word!\n"); return; } int main(int argc, char* argv) { http://www.cyberforum.ru/cpp-beginners/thread300821.html
C++ Вывести максимальное число из файла
Приветик помогите плиз - завтра нада задачку сдать - оч нада Вывести максимальное число из файла in.txt. плиз помогите!!!
Скромный вопрос C++
Подскажите пожалуйста, как можно в строке содержащей буквы и цифры определить количество цифр?
C++ Определить количество слов в файле http://www.cyberforum.ru/cpp-beginners/thread300812.html
Приветик всем помогите плиз решить задачку - оч нужно! Создать текстовый файл, состоящий из 2-3 предложений. Определить количество слов в нем. помогите плиз
C++ Дан,файл содержащий текст на русском языке.Определить... Ребят,мне посоветовали вас как классный сайт,выручайте! В программировании вообще не шарю,специальность другая,а зачет получить надо....Помогите а кому не сложно? Вот задачи: 1) Дан,файл содержащий текст на русском языке.Определить,сколько раз встречается в нем самое короткое слово 2) Записать в файл f последовательного доступа N натуральных чисел. Получить в другом файле последовательного... подробнее

Показать сообщение отдельно
Alisa22
-1 / 1 / 0
Регистрация: 14.06.2010
Сообщений: 75
20.05.2011, 23:13     Перевод с Паскаля на С++
Помогите переделать с Паскаля на С++.

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.
 Комментарий модератора 
Используйте теги форматирования кода!
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 22:28. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru