|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » C/C++ - перевести из Pascal в C++ |
|
C/C++ - перевести из Pascal в C++
|
Новый участник Сообщения: 7 |
Профиль | Отправить PM | Цитировать
Помогите, пожалуйста, перевести из Pascal в C++
Прошлую ночь решала задачи в Паскале, решила, сегодня это же нужно в С++. Тут я вообще ничего не понимаю Вот задачи! Буду благодарна! (Хоть парочку, сама то и не одной не сделала в С++) Program nastya; uses crt; var A,B: integer; C:real; begin write('Число А: '); readln(A); write('Число B: '); readln(B); while B<>0 do begin C:=A/B; writeln ©; readln end; while B=0 do writeln ('Ошибка'); readln end. Program nastya; uses crt; var A:integer; begin write('Введите число от 0 до 4: '); readln(A); case A of 0 : writeln('Ноль'); 1 : writeln('Один'); 2 : writeln('Два'); 3 : writeln('Три'); 4 : writeln('Четыре'); end; while A<0 do writeln ('Ошибка'); readln; while A>4 do writeln ('Ошибка'); readln end. Program stepen; uses crt; var A,B:real; N:integer; begin write('Введите число A: '); readln(A); write('Введите степень N(целое положительное число): '); readln(N); B:=Exp(Ln(A)*N); writeln(B); readln end. Program massiv; uses crt; const M=10; N=10; var matrix:array[1..M,1..N] of integer; k, i, j, p, sum: longint; begin p:=1; write('Введите число k: '); readln(k); for i:= 1 to N do begin for j:= 1 to M do begin matrix[i,j]:=random(10); write(matrix[i,j]:5); if j = k then begin inc(sum, matrix[i,j]); p := p * matrix[i,j]; end; end; writeln; end; writeln; writeln('Произведение ',k,' столбца : ',p); end. |
|
Отправлено: 23:38, 26-11-2013 |
Ветеран Сообщения: 20095
|
Профиль | Отправить PM | Цитировать Цитата Ластик:
|
|
------- Отправлено: 23:56, 27-11-2013 | #11 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Пользователь Сообщения: 121
|
Профиль | Отправить PM | Цитировать Вот подправил:
Program nastya; uses crt; var A,B: integer; C:real; begin write('Число А: '); readln(A); write('Число B: '); readln(B); if B<>0 then begin C:=A/B; writeln (C); end else begin writeln ('Ошибка'); end; readln; //лучше использовать readkey end. Вариант с проверкой в цикле: Program nastya; uses crt; var A,B: integer; C:real; begin write('Число А: '); readln(A); write('Число B: '); readln(B); while B = 0 do begin writeln ('Ошибка'); write('Число B: '); readln(B); end; C:=A/B; writeln (C); readkey; end. if: #include <iostream> using namespace std; int main() { int A,B; float C; cout << "Число A: "; cin >> A; cout << "Число B: "; cin >> B; if (B != 0) { C = A / B; cout << C << endl; } else { cout << "Ошибка" << endl; } return 0; } |
Отправлено: 09:54, 28-11-2013 | #12 |
Новый участник Сообщения: 7
|
Профиль | Отправить PM | Цитировать Ребята, вы такие молодцы! Спасибо вам большое!!!!!!!!!! Ответили быстро и помогли!
Будущая пятерка ваша!))))))))))))))))))) |
Отправлено: 15:20, 28-11-2013 | #13 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
C/C++ - пожалуйста, помогите перевести этот код из паскаля в с++ | Киры4 | Программирование и базы данных | 2 | 29-05-2013 16:19 | |
C/C++ - Перевести програму из Pascal на C | starker | Программирование и базы данных | 0 | 13-12-2012 19:02 | |
C/C++ - Нужно перевести с pascal на C и добавить циклы к ней | Чин Хон | Программирование и базы данных | 8 | 03-02-2011 23:54 | |
Разное - перевести с кода C++ на Pascal... | radeon37 | Программирование и базы данных | 0 | 03-06-2010 12:20 | |
Подскажите как перевести (конверовать) из Exsel в Word. | Alex45 | Хочу все знать | 9 | 24-09-2003 20:47 |
|