Предмет: Информатика,
автор: Mitya111
Написать программу :
Даны 3 переменные. Поменять значения переменных по следующей схеме:
a=c, b=a, c=b. помогите, пожалуйста, в программе PascalABC, информатика
Ответы
Автор ответа:
0
Var
A,B,C:real;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
Write('C = ');ReadLn(C);
A:=C;
B:=A;
C:=B;
WriteLn('A = ',A);
WriteLn('B = ',B);
WriteLn('C = ',C);
End.
Если имеется ввиду, поменять местами переменные в заданном порядке, то вот:
Var
A,B,C:real;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
Write('C = ');ReadLn(C);
Swap(A,C);
Swap(B,A);
Swap(C,B);
WriteLn('A = ',A);
WriteLn('B = ',B);
WriteLn('C = ',C);
End.
A,B,C:real;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
Write('C = ');ReadLn(C);
A:=C;
B:=A;
C:=B;
WriteLn('A = ',A);
WriteLn('B = ',B);
WriteLn('C = ',C);
End.
Если имеется ввиду, поменять местами переменные в заданном порядке, то вот:
Var
A,B,C:real;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
Write('C = ');ReadLn(C);
Swap(A,C);
Swap(B,A);
Swap(C,B);
WriteLn('A = ',A);
WriteLn('B = ',B);
WriteLn('C = ',C);
End.
Автор ответа:
0
В каком Паскале проверяете? Turbo? Free? ABC? ABC.net?
Автор ответа:
0
Извините, я перепутал одиночную кавычку с двойной. все заработало, большое спасибо!!!
Похожие вопросы
Предмет: Алгебра,
автор: bella4786
Предмет: Английский язык,
автор: gulomovlaziz111
Предмет: Английский язык,
автор: Аноним
Предмет: Биология,
автор: golovarez1
Предмет: Математика,
автор: Аноним