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

Перевести с Pascal на Turbo C - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Оператор присваивания и деструктор http://www.cyberforum.ru/cpp-beginners/thread133320.html
Вопрос: почему в 52 строке Access violation? Если убрать строку 50, все будет нормально. #include <iostream> using namespace std; typedef int TType; class Foo { TType **bar; int Size; public:
C++ клас обработчик Написать класс обработчик исключительных ситуаций. Программа ловит ошибкуделения на нуль и выводитсообщение,вв какой части программы произошла ошибка. Ребята помогите с задачей пожалуйста. http://www.cyberforum.ru/cpp-beginners/thread133293.html
C++ Каждое слово из строки занести как елемент массива!
Здравствуйте! Помогите! Я новичок в с++! Нужно каждое слово из строки занести как элемент массива. количество слов может быть разное (от 1 до 500 слов). int main() { char *intput = "слово1 слово2 слово3"; char *output; char q3; char q4; char q5; char q6;
составить программу, которая определяет углы со сторонами a,b,c C++
составить программу, которая определяет углы со сторонами a,b,c
C++ Обьекты http://www.cyberforum.ru/cpp-beginners/thread133268.html
помогите зделать задачку Построить сложное иерархическое меню: пробел будет открывать главное меню, последовательное нажатие на клавиши Enter и Пробел будет разворачивать подсвеченный пункт в подменю или, если пункт находится на нижнем уровне, клавиша Enter будет сворачивать подменю. Нажатие на клавишу Esc заканчивает работу программы.
C++ Добавление комментариев Здравствуйте программисты!=)) Значит есть задача, рабочая. Её нужно просто прокомментировать от начала и до конца. #include <iostream> #include <iomanip> #include <math.h> #include <conio.h> using namespace std; //обьявление класса Array подробнее

Показать сообщение отдельно
Aitkul
1 / 1 / 0
Регистрация: 30.03.2010
Сообщений: 13

Перевести с Pascal на Turbo C - C++

21.05.2010, 16:06. Просмотров 280. Ответов 0
Метки (Все метки)

Перевести с Pascal на Turbo C

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
program zadacha_10;
 uses crt;
  var
   f: text;
   s,s1,s2: string;
   i,l,l1: integer;
  begin
   clrscr;
    writeln('Vvedite imya faila');
    readln(s);
    assign(f,s);
    writeln('vvedite frazu dlya poiska');
    readln(s1);
    l1:=length(s1);
    writeln;
    writeln('         Stroki s zadannoi frazoi      ');
    writeln;
    {$I-}
    reset(f);
    {$I+}
    while not eof(f) do
     begin
      readln(f,s2);
      l:= length(s2);
      for i:=1 to l do
       begin
       if copy(s2,i,l1)=s1  then
        begin
         writeln (s2);
        end;
      end;
   end;
   readln;
   close(f);
   end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru