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

Перевод с паскаля на с++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Нахождение линейно зависимых векторов http://www.cyberforum.ru/cpp-beginners/thread1175145.html
У нас есть матрица вида: 1 1 1 1 0 1 0 1 1 1 1 0 1 1 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 Cтолбцы - координаты векторов. Как найти линейно зависимые вектора?
C++ Как умножить два многочлена, если полином задается степенью и массивами коэффицентов Как умножить два многочлена если, полином задается степенью и массивами коэффицентов. double* ReadPolinom(const char* preffix, int *degree) // preffix это А или Б// int *degree надо вернуть степень... http://www.cyberforum.ru/cpp-beginners/thread1175112.html
C++ Считывание и запись в файл по 8 байт
Вообщем такая беда как считать по 8 байт из одного файла и засунуть в другой,читать файл нужно по частям по 8 байт ,если на последнее итерации не 8 байт то посчитать сколько до 8 байт нехватает
Перегрузка операции <<= C++
Подскажите, как перегрузить операцию + так, чтоб она прибавляла к переменной класса число и выводила новое значение переменной на экран. class Segment { private: double p1, p2, longS;...
C++ Некорректная работа функции fscanf http://www.cyberforum.ru/cpp-beginners/thread1175090.html
Пишу прогу. Нужно считать из файла данные. Читаю при помощи fscanf. В итоге прога вроде работает, а вот в переменной куда считываю оказывается белиберда. Подскажите мою ошибку? Текст проги:...
C++ Удалить из второй строки те слова, которые есть в первой помогите пожалуйста,новичок в программированию,не могу решить задачу Ввести два ряда символов.Удалить ос второго ряда те слова ,которые есть в первом ряде спасибо заранее)) подробнее

Показать сообщение отдельно
Жадигер
0 / 0 / 0
Регистрация: 10.03.2014
Сообщений: 5

Перевод с паскаля на с++ - C++

13.05.2014, 23:26. Просмотров 221. Ответов 2
Метки (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program z1;
var
i,j,m,k,z,x,l:integer;
begin
readln(m);
for i:=0 to m do begin z:=1;
if i=0 then z:=1 else begin
x:=i;
while x<>0 do begin
z:=z*4;
x:=x-1;
end; end;
if ((z<m) and (z*4>m)) then writeln(i);
if z=m then writeln(i-1);
end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru