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

С++ для начинающих

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

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

21.05.2010, 16:06. Просмотров 281. Ответов 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.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.05.2010, 16:06     Перевести с Pascal на Turbo C
Посмотрите здесь:

Перевести из Turbo Pascal в C++ - C++
uses crt; var x: longint; begin clrscr; writeln(‘Введите число от 1 до 10000: ‘); readln(x); ...

Перевести из Turbo Pascal в C++ - C++
помогите пожалуйста uses crt; var a,t,x,R,s: real; begin clrscr; write(‘Введіть х = ‘); readln(х); until...

Как программу на Turbo Pascal перевести на C++?Выручите) - C++
const N=3; var X,Y:array of real;Z:array of real;max,min:real;m,p,i,j,k:integer; Begin for i:=1 to N do Begin Read(X,Y);Readln;end;...

Из Turbo Pascal в C++ - C++
Составить программу, которая находит наибольшую сторону треугольника, если заданы координаты вершин (x1,y1), (x2,y2), (x3,y3). Вычисление...

Из Turbo pascal в С++ - C++
var st: string; i, count: integer; begin readln(st); for i:=1 to length(st) do if st in then inc(count); ...

Перевести задачи из Dev C++ на Turbo C++ - C++
Все работает, но массив берет из не пойми откуда, помогите? кто шарит? 1 задача #include <iostream.h> #include <string.h> ...

Перевод программы с Turbo Pascal на С++ - C++
Помогите пожалуйста перевести с Turbo Pascal на С++!!!! Задачу и тексты надо переписывать!.

Перевести с Pascal на C++ - C++
Здравствуйте! Переведите пожалуйста данный код с Pascal на C++: var n, i, j, cnt, p, found, best, first, ind : longint; s :...

Перевести из Pascal в C++ - C++
Ребят, помогите пожалуйста перевести программы на С++! :( Задача №1 (Схема горнера) program labblablabla; var x,s,k:real; ...

Перевести с Pascal на C++ - C++
Всем привет) есть задачи: 2) Слова, содержащие сочетание ‘кот’, расположить в конце последовательности, сохраняя исходный порядок...


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

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