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

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

Войти
Регистрация
Восстановить пароль
 
Fobos1994
4 / 4 / 0
Регистрация: 15.04.2011
Сообщений: 274
#1

Перегнать с паскаля на чистый С - C++

15.03.2012, 19:50. Просмотров 264. Ответов 2
Метки нет (Все метки)

Вот эту програму нужно пергнать с паскаля на чистый С

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
program pr_19;
uses CRT;
var f,g,d:file of integer;
a,s,h,n,i:integer;
begin
clrscr;
assign(f,'input.dat');
assign(g,'vid.dat');
assign(d,'out.dat');
rewrite(f);
randomize;
for i:=1 to 20 do
begin
a:=random(20)-10;
write(f,a);
write(a,' ');
end;
close(f);
writeln;
s:=0;
reset(f);
rewrite(g);
rewrite(d);
for i:=1 to filesize(f) do
begin
read(f,a);
if a<0 then
begin
s:=s+a;
write(g,s);
end;
if a>-3 then write(d,a);
end;
writeln('Suma vid`emnih = ',s);
close(f);
close(g);
close(d);
reset(d);
writeln('V fayle "d" ',filesize(d),'  elementov');
for i:=1 to filesize(d) do
begin
read(d,a);
writeln(a);
end;
close(d);
readln;
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.03.2012, 19:50     Перегнать с паскаля на чистый С
Посмотрите здесь:

Перегнать из паскаля на С(чистый) - C++
Нужно перегнать эту програму в чистый С 1) Определить и записать в файл g сумму отрицательное чисел 2) Переписать в файл d числа,...

Перегнать с паскаля в С++ - C++
здравствуйте, мне нужно перегнать с Паскаля в C++. Код Pascal: program ss; var x, y, z, a: intraer; begin readln (x,y,z);...

Перегнать с паскаля в С (небольшая програмам) - C++
Здравствуйте мне нужно перегнать вот эту програму из паскаля в чистый С(Borland C) program test; uses crt; var b:array of integer; ...

перегнать с C++ на C# - C++
имеется int CMyPaintDC::AreaLines(int x,int y,int dir,int d,int PrevXL, int PrevXR,COLORREF col_g,COLORREF col_f) { int...

Перегнать с Pascal на C++ - C++
Прога есть на паскале нужно чтоб она была на С++ uses crt; const n=10; var m:arrayof integer; i,j,k,min,max:integer; begin...

Как звуковую волну перегнать из аудиофайла в массив? - C++
Всем привет! У меня такая задачка( не знаю с чего начать): Есть аудиозапись с речью. Нужно отделить слова(самые громкие звуки) и как то...

Чистый C++ и БД - C++
Подскажите пожалуйста, есть ли способ использования базы данных, и какой, в консольном C++ приложении (не CLI). Единственное с чем работал...

Что такое чистый С++? - C++
Наткнулся в интернете на такую вот статью и задумался, а что же на самом деле чистый С++? Может быть автор статьи правильно объясняет...

QT это чистый c++ или нет (C++ ISO/IEC)? - C++
Здравствуйте. Интересует вопрос. В Microsoft Visual Studio используется язык C++/CLI - доработанный C++ ими же. Как дела обстоят с QT? Там...

Чистый спецификатор =0 допускается использовать только для виртуальных функций - C++
Добрый день! Помогите пожалуйста решить проблему в следующей задаче: Определить класс Account который имеет информацию про банковский...


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
panicwassano
591 / 559 / 20
Регистрация: 07.11.2010
Сообщений: 2,004
15.03.2012, 20:52     Перегнать с паскаля на чистый С #2
что перевести? не вижу условия задачи!
Fobos1994
4 / 4 / 0
Регистрация: 15.04.2011
Сообщений: 274
15.03.2012, 20:58  [ТС]     Перегнать с паскаля на чистый С #3
1) Определить и записать в файл g сумму отрицательное чисел
2) Переписать в файл d числа, которые > за число -3, определить кол. эл в файле d
Ответ Создать тему
Опции темы

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