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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C (СИ) Обратный порядок: исправить код http://www.cyberforum.ru/c-beginners/thread1859821.html
подскажите пожалуйста как исправить код ..нужно что бы было так ( мама мыла раму-раму мыла мама) #include <stdio.h> #include <string.h> char* StrRev(char *str) { int sz = strlen(str),i; char tmp; for (int i = 0; i < sz/2; i++) {
C (СИ) Линеаризация в матрице (преобразование двумерных координат в одномерные) 00000 10001 11011 11101 11110 Дана такая матрица. Нужно сделать функцию динеаризации(преобразование 2хмерных координат в линейные) плз помогите. И если можно с комментами. http://www.cyberforum.ru/c-beginners/thread1859755.html
C (СИ) Найти два одинаковых элемента массива
Как реализовать данную задачу дано целочисленный массив N, он имеет два одинаковых элемента, нужно найти номера этих элементов и вывести их в порядке увеличения
C (СИ) Задать строковую переменную, вывести на экран "задом наперёд", использую для этого класс stack
Помагиьте пожалуйста Задать строковую переменную, вывести на экран "задом наперёд", использую для этого класс stack
C (СИ) Как разделить значения массива А в два других массива - В [ тип lisy] и C [тип queue] http://www.cyberforum.ru/c-beginners/thread1859658.html
Как разделить значения массива А в два других массива - В и C на основании этого критерия поместить в В массив положительные, а в С-все остальные. Помогите пожалуйста с основой программой.
C (СИ) Сортировки (пирамидальная и Шелла) Написать программы сортировок ( пирамидой, шелла) подробнее

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

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

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