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

C для начинающих

Войти
Регистрация
Восстановить пароль
 
lada2345
0 / 0 / 0
Регистрация: 14.10.2016
Сообщений: 17
#1

Перевести программу с Паскаля на Си - C (СИ)

25.11.2016, 15:25. Просмотров 112. Ответов 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
var
    str: string;
 
procedure conversely(var s: string);
    var
        len, i, a: byte;
        s2: string;
    begin
        len := length(s);
        a := 0;
        s2 := '';
        for i:=len downto 1 do begin
            if s[i] = ' ' then begin
                s2 := s2 + copy(s,i+1,a) + ' ';
                a := 0;
            end
            else
                a := a + 1;
        end;
        s2 := s2 + copy(s,i,a);
        s := s2;
    end;
 
begin
    readln(str);
    conversely(str);
    writeln(str);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.11.2016, 15:25
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевести программу с Паскаля на Си (C (СИ)):

Перевести с паскаля программу: Все отрицательные элементы переместить в начало массива - C (СИ)
Помогите перевести из паскаля в с var a:arrayof integer; i,j,t,n:integer; begin randomize; writeln('vvedite kol-vo elementov');...

Перевести из паскаля в СИ - C (СИ)
Переведите кому не сложно: var a:arrayof integer; b:array of integer; i,j,counter:integer; begin for i:=1 to 10 do...

Перевести с Паскаля на Си - C (СИ)
1) program zad1; uses crt; var b,p,a,a2,b2:real; begin write('цена товара a= '); read(a); write('цена товара b= '); ...

Перевести с Паскаля на Си - C (СИ)
uses crt; var j,k,n,m,s1,s2:integer; begin clrscr; s1:=1; s2:=2; write("Введите m,n:"; readln(m,n); for j:=1 to...

Перевести с паскаля на С - C (СИ)
Перевести данную програму, на Borland C (он же чистый С) uses crt; var st:string; summ,temp:real; i,j,k,c:integer; begin ...

Перевести с паскаля в си - C (СИ)
Не могу перевести на си . program Project1; uses crt; const N0=100; Var A: Array Of Integer; M: Integer; i, j, k, N:...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.11.2016, 15:25
Привет! Вот еще темы с ответами:

Перевести с Паскаля на С - C (СИ)
uses crt; var a:array of integer; temp,i:integer; begin clrscr; randomize; writeln; for i:=1 to 20 do begin ...

Перевести из паскаля в с - C (СИ)
var n,i: integer; b,s:longint; begin readln(n); s:=0; for i:=1 to n do begin readln(b); s:=s+b;

Перевести из паскаля в СИ - C (СИ)
Program LAB2; Var arrp: array of integer; { Сжатая таблица } XM : integer; { Максимальные индексы в таблице } {====...

Перевести из паскаля в Си - C (СИ)
Здравствуйте. Мне необходимо, написать программу на си, почти по такой же задаче (по которой написана программа ниже). Вот нам и сказали,...


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

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

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