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

Переделать с Pascal на c++

27.11.2019, 14:10. Показов 627. Ответов 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
uses crt;
var f: text;
    s: string;
    
function IsUp (str: string): boolean;
var i,n1,n2,k,p: integer;  b: boolean;
    c: string;
begin
b:=true; n1:=0; n2:=0; p:=0; c:=''; str:=str+' ';
for i:=1 to length(str) do
    if s[i]<>' ' then  c:=c+s[i] else
       if length(c)>0 then
          begin
          inc(p);
          n2:=n1;
          val(c,n1,k);
          if (p>1) and (n1<n2) then b:=false;
          c:='';
          end;
IsUp:=b;
end;
 
begin
assign(f,'D:\in.txt');
reset(f);
while not (eof(f)) do
      begin
      readln(f,s);
      if IsUp (s) then writeln(s);
      end;
readln;
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
27.11.2019, 14:10
Ответы с готовыми решениями:

переделать программу из pascal в C++
Ребят помогите пожалуйста переделать программу в с++ вот ссылка на прогрумму тут просто не все...

Переделать код из Pascal в C++
Дано часть кода на Паскале: for i:=1 to n do begin while pos(' ',a)&lt;&gt;0 do ...

Переделать код с Pascal на С++
uses crt; const n1='Name1.txt'; n2='Name2.txt'; n3='Name3.txt'; var f1,f2,f3:text; ...

Переделать код с Pascal на С++
Имеется данный код: uses crt; var f,h,g:text; s:arrayof string; n,i:integer; begin...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.11.2019, 14:10
Помогаю со студенческими работами здесь

Можно как-то переделать код из Turbo Pascal чтобы он работал в pascal abc.net?
Сделайте пожалуйста, я просто не вникаю uses Graph, Crt; var grDriver: integer; grMode:...

Нужно переделать программу,написанную на Turbo Pascal в ту,чтобы работала на Pascal ABC.NET пожалуйста
program lab2; uses Crt; const Nmax = 15; { MAX element mnozestva A } type T =...

Нужно переделать программу,написанную на Turbo Pascal в ту,чтобы работала на Pascal ABC.NET пожалуйста
program lab3; uses Crt; const Output_File_Name = 'output.txt'; { ima faila dlya vivoda...

Переделать с C++ на Pascal
Переделайте пожалуйста на язык Паскаль!Очень буду благодарен!Очень срочно надо! Не могу...


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

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

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