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

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

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

Переведите пожалуйста программу в C++ - C++

31.03.2013, 16:37. Просмотров 236. Ответов 1
Метки нет (Все метки)

Изначально прога написана на Паскале. Нужно перевести ее в 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
program textf; 
uses crt; 
var f:text; s:string; 
BEGIN 
writeln(' *Эта пpoгpaммa выводит первые слова каждого ряда текстового файла lnput.txt*'); 
writeln(' *фaйл input.txt разрешается заполнять любым текстом*'); 
Write;
Write(' * Стaндapтный вид фaйла* '); 
writeln; 
assign(f,'inрut.txt'); 
reset(f); 
while not eof(f) do 
begin 
readln(f,s); 
writeln(s); 
end; 
reset(f); 
Write 
writeln(' *Результат работи пpoгpaмми* '); 
while not eof(f) do 
begin 
readln(f,s); 
writeln(copy(s,1,pos(' ',s)-1)); 
end; 
close(f); 
Write
END.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.03.2013, 16:37
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Переведите пожалуйста программу в C++ (C++):

Пожалуйста переведите из С++ в С(Си) - C++
Задание: Работа со строками. Найти длину самого короткого слова #include <string> #include <iostream> #include <sstream> using...

переведите с Паскаля на си++ пожалуйста! - C++
Дано имя файла и целое число N (0 < N < 27). Создать текстовый файл с указанным именем и записать в него N строк длины N; строка с номером...

Переведите пожалуйста формулу - C++
Переведите формулу

переведите с Паскаля на си++ пожалуйста! - C++
в Паскале получается...а в СИ++ нет( procedure Mean(x,y:real; var AMean,GMean:real); begin AMean:=(x+y)/2; GMean:=sqrt(x * y); ...

Переведите, пожалуйста, с паскаля на C++ - C++
type Person = record Surname, Name, Adress, City: string; ...

Переведите с Pascal на С++ пожалуйста - C++
program asd; var r,V:real; begin write(‘введите радиус r’); readln(r); V:=4/3*3.14*sqr(r)*r; write(‘объем...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
gamer0n
0 / 0 / 0
Регистрация: 27.12.2012
Сообщений: 47
02.04.2013, 21:15  [ТС] #2
ап, завтра нужно сдать)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.04.2013, 21:15
Привет! Вот еще темы с ответами:

Переведите пожалуйста прогу) - C++
Program m3; Uses CRT; Const n=5; m=5; k1=100; k2=k 1 *2+1; Type matr =array of integer; Var a :matr; i, j, f, ma...

Переведите пожалуйста прогамму на С++ - C++
program variant23; uses crt; var s,a:real; n:integer; Begin clrscr; writeln('Введите а'); read(a); S:=0; for n:=1 to 10 do

Переведите пожалуйста с паскаля на с++ - C++
var i,j: integer; function lol(x: integer): integer; var i,k: integer; begin k:=0; for i:=1 to x-1 do if x mod i = 0 then ...

переведите с паскаля на с++.пожалуйста - C++
uses crt; var i,j,n,k:integer; a:array of byte; begin Write ('Введите n='); Readln(n); clrscr; k:=0; j:=0; i:=1;


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

Или воспользуйтесь поиском по форуму:
Ответ Создать тему
Опции темы

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