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

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

Восстановить пароль Регистрация
Другие темы раздела
C++ Удаление из структуры http://www.cyberforum.ru/cpp-beginners/thread1192344.html
Здравствуйте! Пи удалении из структуры почему, то удаляет все структуры которые были выше( Подскажите в чем проблема вот код void delete_product (Products**Ps,int delete_id,Products2*Ps2) { clrscr(); if(!*Ps) { cout<<"Cpicok tovarov pyct"<<endl; cout<<endl<<"Dla perehoda v menu najmite ENTER"<<endl;
C++ вылезает ошибка исправьте пожалуйста #include <iostream> #include <stdio.h> #include <windows.h> char* rus(const char* text); using namespace std; struct Mashina { char gosnomer; }; struct Stek http://www.cyberforum.ru/cpp-beginners/thread1192339.html
C++ Работа со строками. Удалить символы между скобками ()
Работа со строками. Удалить символы между скобками (), включая сами скобки. Язык С++.
Написать калькулятор с объектно–ориентированным подходом C++
Написать калькулятор, но с объектно–ориентированным подходом, и выводом пользователю информации о возможных ошибках (деление на 0, ввод оператора %, ввод знака $ ). Программа разбивается на три блока(секции): ВВОД данных, ОБРАБОТКА данных (вычисления результата или фиксирование ошибки. В этом блоке ничего не выводится на консоль), ВЫВОД результатов ( показ в консоли результата операции или...
C++ Удалить элементы главной диагонали. Добавить К столбцов перед столбцом с максимальным количеством негативных http://www.cyberforum.ru/cpp-beginners/thread1192318.html
Удалить элементы главной диагонали. Добавить К(заданное кол-во) столбцов перед столбцом с максимальным количеством негативных элементов. Пожалуйста. Добавлено через 5 часов 3 минуты Пожалуйста.
C++ В пузырьковой сортировке не работает swap Почему не меняет местами? #include <iostream> #include <cstdlib> #include <string> using namespace std; struct NOTATKI { long Telefon; int Den; подробнее

Показать сообщение отдельно
unnamed69
0 / 0 / 0
Регистрация: 30.01.2014
Сообщений: 3
29.05.2014, 13:02     Переведите код с Паскаля на Си
Переведите код с Паскаля на Си
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
  s: string;
  i, back: integer;
begin
  readln(s);
 
  i := 1;
  while i <= length(s) do begin
    while(i <= length(s)) and (s[i] = ' ') do inc(i);
    if i <= length(s) then begin
      back := i;
      while(i<=length(s)) and (s[i] <> ' ') do inc(i);
      if s[back] = s[i - 1] then writeln(copy(s, back, i - back));
    end;
  end;
end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 19:22. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru