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

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

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

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

20.05.2009, 17:04. Просмотров 487. Ответов 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.
Помогите пожалуйста переписать код этой проги для С или С++. Заранее благодарю
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.05.2009, 17:04
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перенос кода из Pas в С/С++ (C++):

перенос кода в С++ - C++
var e,x,t,s:real; n:integer; begin repeat write('|x|&lt;1 x='); read(x); until abs(x)&lt;1; repeat write('0&lt;e&lt;1 e='); ...

Перенос кода - C++
Подскажите пожалуйста в чём проблема? имею код: func.cpp #ifndef LAB4_H #define LAB4_H #include &quot;stdafx.h&quot; ...

Перенос кода на C++11 - C++
Здравствуйте! Я столкнулся со следующей проблемой: есть проект под Android, большая часть которого написана на С++. В команде...

Перенос кода с java на с++ - C++
Всем привет я навичок помогите перевести этот код с java на с++ import java.util.Random; public class Runner { ...

Перенос кода на 64-битную платформу - C++
Пытаюсь разобраться с проблемами на переноса кода на 64битную платформу. В сети встретил вот такую конструкцию. #ifdef _WIN64 ...

Перенос кода с Паскаля на Си. Часть 1 - C++
Есть задача, для решения которой написано консольное приложение на Pascal. Авторов было несколько и они не были программистами, откуда...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
alex_x_x
бжни
2447 / 1652 / 84
Регистрация: 14.05.2009
Сообщений: 7,162
20.05.2009, 18:37 #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
2788 / 1602 / 145
Регистрация: 03.12.2007
Сообщений: 4,193
Завершенные тесты: 1
20.05.2009, 21:27 #3
Там в printf не %d, а %s
alex_x_x
бжни
2447 / 1652 / 84
Регистрация: 14.05.2009
Сообщений: 7,162
20.05.2009, 22:36 #4
Цитата Сообщение от Somebody Посмотреть сообщение
Там в printf не %d, а %s
дада, точно
uNsLide
0 / 0 / 0
Регистрация: 15.04.2009
Сообщений: 15
21.05.2009, 17:29  [ТС] #5
Цитата Сообщение от Somebody Посмотреть сообщение
Там в printf не %d, а %s
Согласен. Всем огромное спасибо
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.05.2009, 17:29
Привет! Вот еще темы с ответами:

Перенос переменных из кода на python в код на С++ - C++
Объявил переменную а через PyRun_SimpleString(а=1) Как теперь сделать так, чтобы выводилось сообщение &quot;Оно равно 1&quot; через if...

Преобразование кода из *.pas в *.mat - Matlab
можно ли, и, если можно, то как, преобразовать код, написанный в Pascal ABC.NET в файл формата .mat? например, на примере это небольшой...

В файле 1.PAS дана строка символов. Записать в файл 2.PAS строку, полученную из исходной по следующему правилу: заменить все вхождения подстроки ‘123 - Delphi
В файле 1.PAS дана строка символов. Записать в файл 2.PAS строку, полученную из исходной по следующему правилу: заменить все вхождения...

перенос кода из VB - C++ Builder
Подскажите, как перенести данный код из VB в Builder? myhead = createobject('eapi.head') myhead.open set myresultset =...


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

Или воспользуйтесь поиском по форуму:
Yandex
Объявления
21.05.2009, 17:29
Ответ Создать тему
Опции темы

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