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

перевод из Pascal в C++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ В матрице A (m, n) (m <= 5, n <= 5) найти произведение ненулевых элементов, которые лежат на главной диагонали http://www.cyberforum.ru/cpp-beginners/thread1181243.html
В матрице A (m, n) (m <= 5, n <= 5) найти произведение ненулевых элементов, которые лежат на главной диагонали.
C++ Для х изменяющегося от a до b с шагом (b-a)/k, где (k=10) ПОМОГИТЕ с рекурсией Для х изменяющегося от a до b с шагом (b-a)/k, где (k=10), вычислить функцию f(x), используя ее разложение в степенной ряд в двух случаях: а) для заданного n; б) для заданной точности E=0.0001.... http://www.cyberforum.ru/cpp-beginners/thread1181240.html
Рекурсия: вычислить сумму ряда C++
Используя рекурсивный вызов функции вычислить с заданной точностью сумму ряда: \sum_{n=1} \frac{n!{x}^{n}}{{(n+1)}^{n}}. Прошу написать алгоритм вычисления суммы ряда.
C++ Переопределение операторов С++
Помогите разобраться с переопределением операторов, как что и куда записывается, какие параметры. Если можно, ссылку на полезную статью, в книжке ничего не понятно. Пример небольшой
C++ Как сделать чтобы программа работала нормально http://www.cyberforum.ru/cpp-beginners/thread1181213.html
#include<cmath> #include<stdio.h> #include<Windows.h> #include<gl\glut.h> #include"Bntree.h" #include"Stack.h" #define PI 3.1415926535898 #define RADIUS 30 float circle; GLubyte...
C++ Определение потребления топлива на заданный отрезок пути // transport.cpp: определяет точку входа для консольного приложения. // #include "stdafx.h" #include "locale.h" #include "windows.h" int main() { подробнее

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

перевод из Pascal в C++ - C++

19.05.2014, 19:39. Просмотров 140. Ответов 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
29
30
31
32
33
program slovo;
uses crt;
var f:text;
     str:string;
     s,st,st1,res,str2:string;
     i,j,k,l,w,g,p:integer;
begin
clrscr;
st:='пример';
st1:='$';
assign(f,'myfile.txt');
reset(f);
while not eof(f) do
   begin
      readln(f,str);
      for i:=1 to length(str) do begin
      k:=pos(st, str);
      end;
   end;
writeln(k);
l:=length(st);
writeln(l);
w:=k+l;
for i:=w to length(str) do begin
  g:=pos(st1, str);
end;
writeln(g);
p:=g-w+1;
res:=copy(str,w,g-w+1);
writeln(res);
close(f);
readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru