Форум программистов, компьютерный форум, киберфорум
Наши страницы
С++ для начинающих
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
Дмитрий12
1 / 1 / 2
Регистрация: 19.02.2011
Сообщений: 70

Из Pascal в С++ - C++

16.05.2011, 21:12. Просмотров 311. Ответов 4
Метки (Все метки)

Всем добрый вечер!!!Помогите перевести программу в С++
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 El;
uses crt;
const nmax=20;
var b,a:array[1..nmax] of integer;
    n,m,i,j,k:byte;
begin
clrscr;
write('Количество элементов n=');
readln(n);
for i:=1 to n do
   a[i]:=random(10)-3;
writeln('исходная массив*');
for i:=1 to n do
write(a[i]:4);
writeln;
for i:=1 to n do
if a[i]<-2 then
Begin
for i:=1 to n do
 if a[i]<0 then
 a[i]:=a[i]*a[i];
end;
writeln('получившийся массив');
for i:=1 to n do
write(a[i]:4);
readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.05.2011, 21:12
Готовые ответы и решения для C++ Из Pascal в С++:

Turbo Pascal, Pascal ABC, Free Pascal, PascalABC.NET - в чем разница?
Всем привет, решил изучать Паскаль, но на форуме увидел 4 его версии - Turbo...

Нужно перевести программу с Turbo Pascal в Pascal ABC.NET
Вот есть программный код , но он для турбо паскаля, помогите перевести его в...

Различия трансляторов Pascal ABC.Net и Turbo/Borland Pascal
Пожалуйста, объясните различия между компиляторами Pascal ABC.Net и...

Нужно перевести код с Pascal ABC на Turbo Pascal - рисование работающей мельницы
Вот код, он должен рисовать работающею мельницу. uses graphABC,crt; type...

Есть ли аналог модуля tpdate.tpu (Turbo Pascal) для Free Pascal
Внимание! Нужно срочно узнать название юнита для freepascal, который выполняет...

Из множества выбрать три различные точки по условию -из Turbo Pascal во Free Pascal
Даны 2 множества точек на плоскости. Выбрать три различные точки первого...

4
Из Pascal в С++ C++   Следующее сообщение темы 
Другие темы раздела
C++ Записи2 http://www.cyberforum.ru/cpp-beginners/thread297238.html
Торговый склад производит уценку хранящейся продукции. Если продукция хранится на складе дольше п месяцев, то она уценивается в 2 раза, а если срок хранения превысил т(т< п) месяцев, но не достиг п,...
C++ Записи Распечатать список тех учителей школы, которые преподают математику и информатику, указать стаж их работы и недельную нагрузку. http://www.cyberforum.ru/cpp-beginners/thread297235.html
C++ сравнение времени
господа прогамисты как можно сравнить реальное време, с временем введённым с клавиатуры? Заранее всем огромное спасибо!!!
C++ интерполяция Лагранжа!
в n точках значение интерполяционного многочлена должно совпадать со значением функции, а в промежуточных точках должно быть приблизительно равно. в чем может быть ошибка?, для отрезка n=8 в...
C++ наследование http://www.cyberforum.ru/cpp-beginners/thread297196.html
определить базовый класс ''точка''. Затем от него определить два произвольных класса ''прямоугольник'' и ''параллелепипед'', в каждом из которых реализовать заданный метод: площадь. Заранее спасибо.
C++ пишу ed, отмена изменений Черт меня дернул взять это своим проектом. В общем пишу через глобальные переменные типа сам буфер, текущими позиции, ссылки на начала строк и тд. Написал многое, но проблема с отменой последнего... подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru