Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » C/C++ - перевести из Pascal в C++

Ответить
Настройки темы
C/C++ - перевести из Pascal в C++

Аватара для Ластик

Новый участник


Сообщения: 7
Благодарности: 0

Профиль | Отправить PM | Цитировать


Изменения
Автор: Drongo
Дата: 27-11-2013
Описание: тег код...
Помогите, пожалуйста, перевести из 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

 

Аватара для yurfed

Ветеран


Сообщения: 20095
Благодарности: 3135

Профиль | Отправить 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);
    readln
 else B=0 
   writeln ('Ошибка');
   readln
  end;
end.

-------
Хочу ли я - Могу ли я - Говно ли я - Магнолия

Это сообщение посчитали полезным следующие участники:

Отправлено: 23:56, 27-11-2013 | #11



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Пользователь


Сообщения: 121
Благодарности: 35

Профиль | Отправить 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.
Обратите внимание, что readln останавливает программу до тех пор, пока не будет нажата клавиша "ввод", а readkey отреагирует на нажатие любой клавиши.

Вариант с проверкой в цикле:
Код: Выделить весь код
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.
Тепрь на C++:
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;
}
while:
Код: Выделить весь код
#include <iostream>

using namespace std;

int main()
{
	int A,B;
	float C;
	cout << "Число A: ";
	cin >> A;
	cout << "Число B: ";
	cin >> B;
	while (B == 0)
	{
		cout << "Ошибка" << endl;
		cout << "Число B: ";
	        cin >> B;
	}
	C = A / B;
	cout << C << endl;
	return 0;
}
Это сообщение посчитали полезным следующие участники:

Отправлено: 09:54, 28-11-2013 | #12


Аватара для Ластик

Новый участник


Сообщения: 7
Благодарности: 0

Профиль | Отправить PM | Цитировать


Ребята, вы такие молодцы! Спасибо вам большое!!!!!!!!!! Ответили быстро и помогли!
Будущая пятерка ваша!)))))))))))))))))))

Отправлено: 15:20, 28-11-2013 | #13



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » C/C++ - перевести из Pascal в C++

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
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




 
Переход