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

Из 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, отмена изменений Черт меня дернул взять это своим проектом. В общем пишу через глобальные переменные типа сам буфер, текущими позиции, ссылки на начала строк и тд. Написал многое, но проблема с отменой последнего... подробнее

Показать сообщение отдельно
Дмитрий12
1 / 1 / 0
Регистрация: 19.02.2011
Сообщений: 70

Из Pascal в С++ - C++

16.05.2011, 21:12. Просмотров 287. Ответов 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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru