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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ в этой программе нужно убратьб цикл http://www.cyberforum.ru/cpp-beginners/thread720043.html
#include<iostream> using namespace std; int main() { int t=1, a, b; cin>>a>>b; if(b>a) { t=a; a=b; b=t; }
C++ Выведите все числа от A до B включительно, в порядке возрастания Даны два целых числа A и В (каждое в отдельной строке). Выведите все числа от A до B включительно, в порядке возрастания, если A < B, или в порядке убывания в противном случае. Например: Ввод Вывод 5 1 2 3 4 5 http://www.cyberforum.ru/cpp-beginners/thread720034.html
C++ Контрольная сумма
Для нескольких файлов требуется вычислить контрольную сумму. Обработку каждого массива выполнить в отдельном процессе
Вычисление степени числа А с натуральным показателем n C++
1. Составьте программу вычисления степени числа А с натуральным показателем n. (записать варианты программы с разными видами циклов white,repeat,for) 2.с клавиатуры вводится числа и последовательно суммируются. Найти количество введенных чисел, когда их сумма превысила 100.
C++ Создать класс для обработки информации о различных датах http://www.cyberforum.ru/cpp-beginners/thread719959.html
5.1. Создать класс для обработки информации о различных датах. Каждая дата - это число, месяц, год, название даты. Функции: а) функция ввода информации о дате; б) функция вывода информации о дате; в) функция, возвращающая год даты; г) функция, определяющая, принадлежит ли дата сезону, заданному переменной Х. Думал,как выполнить 4 пункт. Вот,что получается: мы вводим месяц(цифрой),и...
C++ как выделить 3 первых предложения 1,2,3 и вывести их в обратном порядке 3,2,1 ? Ребят, нужно написать программу, которая считывает текст из файла и обрабатывает его. Обработку текстовой информации нужно организовать с использованием С – строк, т. е. массивов символов, завершающихся символом с кодом ‘\0’. #include <stdio.h> #include <iostream> #include <string> #include <windows.h> using namespace std; подробнее

Показать сообщение отдельно
bohdan1217
0 / 0 / 0
Регистрация: 23.11.2012
Сообщений: 9

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

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