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

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

Войти
Регистрация
Восстановить пароль
 
uNsLide
0 / 0 / 0
Регистрация: 15.04.2009
Сообщений: 15
20.05.2009, 17:04     Перенос кода из Pas в С/С++ #1
Здравствуйте. Есть программа на паскале, которая случайным образом выдает 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.
Помогите пожалуйста переписать код этой проги для С или С++. Заранее благодарю
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.05.2009, 17:04     Перенос кода из Pas в С/С++
Посмотрите здесь:

Создание кода программы с нуля!! создание кода C++ C++
Перевести коды из Pas в C++ C++
C++ Перенос битов
C++ Перенос кода с java на с++
C++ Перенос кода на 64-битную платформу
C++ Перенос кода
перенос кода в С++ C++
Участок B кода выполняется позже, чем участок A кода, но почему-то B влияет на работоспособность A! Почему? C++
перенос курсора C++
C++ Открыть файл .pas как текстовый
Перенос строки C++
Перенос кода на C++11 C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
alex_x_x
бжни
 Аватар для alex_x_x
2441 / 1646 / 84
Регистрация: 14.05.2009
Сообщений: 7,163
20.05.2009, 18:37     Перенос кода из Pas в С/С++ #2
C++
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
#include <stdio.h>
#include <conio.h>
#include <time.h>
#include <stdlib.h>
 
char a[100][255];
FILE *f;
char *S;
int j,strv=0,x1,x2,x3;
  
int main(){
    clrscr();
    printf("\nVersion - 1.0.\n");
    srand(time(NULL));
    f=fopen("mapsgen.txt","r");
    j=0;
    while(!feof(f)){
        fgets(a[j],255,f);
        strv++;
        j++;
    }
    fclose(f);
    do{
        x1 = rand()*strv/RAND_MAX;
        x2 = rand()*strv/RAND_MAX;
        x3 = rand()*strv/RAND_MAX;
    }while((x1!=x2) && (x1!=x3) && (x2!=x3) && (x1!=0) && (x2!=0) && (x3!=0));
        printf("In these file there are %d strokes",strv);
    printf("\n---------------------------------------------------------\nThe 1st word is %d",a[x1]);
    printf("\n---------------------------------------------------------\nThe 2nd word is %d",a[x2]);
    printf("\n---------------------------------------------------------\nThe 3rd word is %d",a[x3]);
    printf("\n---------------------------------------------------------\n");
    getch();
    return 0;
}
Somebody
2775 / 1588 / 142
Регистрация: 03.12.2007
Сообщений: 4,162
Завершенные тесты: 1
20.05.2009, 21:27     Перенос кода из Pas в С/С++ #3
Там в printf не %d, а %s
alex_x_x
бжни
 Аватар для alex_x_x
2441 / 1646 / 84
Регистрация: 14.05.2009
Сообщений: 7,163
20.05.2009, 22:36     Перенос кода из Pas в С/С++ #4
Цитата Сообщение от Somebody Посмотреть сообщение
Там в printf не %d, а %s
дада, точно
uNsLide
0 / 0 / 0
Регистрация: 15.04.2009
Сообщений: 15
21.05.2009, 17:29  [ТС]     Перенос кода из Pas в С/С++ #5
Цитата Сообщение от Somebody Посмотреть сообщение
Там в printf не %d, а %s
Согласен. Всем огромное спасибо
Yandex
Объявления
21.05.2009, 17:29     Перенос кода из Pas в С/С++
Ответ Создать тему
Опции темы

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