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

Перенос кода из Pas в С/С++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Не могу разобраться. Сортировка! http://www.cyberforum.ru/cpp-beginners/thread35303.html
#include<stdio.h> #define N 1000 int main() { int n, i, j; int a; scanf("%d", &n); //для чего нужна эта переменная? scanf == cin?? Что такое &n? for(i = 0 ; i <...
C++ Динамический массив с помощью List Помогите сделать двумерный динамический массив с помощью шаблона List из STL. Спасибо большое. http://www.cyberforum.ru/cpp-beginners/thread35292.html
C++ Найти в файле слова-палиндромы
Вообщем засада) Дана задача: Имеется текстовый файл, содержащий текст на русском языке. Найти в нем слова-палиндромы ("перевертыши"), одинаково читающиеся как с слева направо, так и справа налево...
C++ Нужна помощь по С++ (перевести из паскаля)
Срочно нужна помощь по задаче: "составить программу, которая вставляет в список L новый элемент F за каждым вхождением элемента E. На паскале выглядит примерно так, но мне нужно на С++, а я понятия...
C++ Где можно посмотреть функции подключаемых директив? http://www.cyberforum.ru/cpp-beginners/thread35253.html
Здравствуйте. Где можно посмотреть функции подключаемых директив? Спасибо.
C++ описание long double в С Подскажите как правильно ввести переменнуя типа long double в языке С integer-------------%d float----------------%f double ------------%lf long double------? подробнее

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

Перенос кода из Pas в С/С++ - C++

20.05.2009, 17:04. Просмотров 490. Ответов 4
Метки (Все метки)

Здравствуйте. Есть программа на паскале, которая случайным образом выдает 3 слова из текстового файла без повторения

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
uses Crt;
 
var a : array [1..100] of string;
 
    f : text;
 
    S : string;
 
    j,strv : integer;
 
x1,x2,x3 : integer;
 
 
 
begin
 
clrscr;
 
writeln;
 
writeln('Version - 1.0.');
 
Randomize;
 
Assign(F,'mapsgen.txt');
 
Reset(F); J:=1;
 
 
 
While not eof(f) do begin
 
Readln(F,a[j]); inc(strv);  inc(j); end;
 
Close(F);
 
Repeat
 
x1 := Random(strv); x2 := Random(strv); x3 := Random(strv);
 
Until (x1<>x2) and (x1<>x3) and (x2<>x3) and (x1<>0) and (x2<>0) and (x3<>0);
 
{Writeln('In these file there are ',strv,' strokes');} Writeln;
 
writeln('---------------------------------------------------------');Writeln('The 1st word is ',a[x1]);
 
writeln('---------------------------------------------------------');Writeln('The 2nd word is ',a[x2]);
 
writeln('---------------------------------------------------------');Writeln('The 3rd word is ',a[x3]);
 
writeln('---------------------------------------------------------');
 
Readln;
 
end.
Помогите пожалуйста переписать код этой проги для С или С++. Заранее благодарю
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru