|
|
#1 
I Wanna be 4070K @ 15.10.09 18:23 |
[пожаловаться]
|
|
Пацаны кто тащит паскал плз помогите
Даны две переменные вещественного типа: A, B. Перераспределить значения данных переменных так, чтобы в A оказалось меньшее из значений, а в B — большее. Вывести новые значения переменных A и B.
|
|
|
|
#4
зотка @ 15.10.09 18:25 |
[пожаловаться]
|
|
[зашел_отпаскалил_афтора_вышел]
ЗЫ пиши в личку iMozg, он поможет.
|
|
|
|
#13
Меня опять убили @ 15.10.09 18:31 |
[пожаловаться]
|
|
Вещественные это real? Ска напиши по-человечески условие задачи, а то нах и пытаться даже не буду
|
|
|
|
#14
I Wanna be 4070K @ 15.10.09 18:32 |
[пожаловаться]
|
|
#12
3. Даны две переменные вещественного типа: A, B. Перераспределить значения данных переменных так, чтобы в A оказалось меньшее из значений, а в B — большее. Вывести новые значения переменных A и B.
4. Даны три числа. Найти среднее из них (то есть число, расположенное между наименьшим и наибольшим).
5. Даны три числа. Найти сумму двух наибольших из них.
6. Даны три числа. Вывести вначале наименьшее, а затем наибольшее из данных чисел.
7. Даны три переменные вещественного типа: A, B, C. Если их значения упорядочены по возрастанию или убыванию, то удвоить их; в противном случае заменить значение каждой переменной на противоположное. Вывести новые значения переменных A, B, C.
|
|
|
|
#15
Странник @ 15.10.09 18:34 |
[пожаловаться]
|
|
#1 ладно ,бл9 ,помогу 
сравни значения a и b, затем используй третью переменную для смены значений местами, дальше сам думай
зы п0др0чи вприсядку, поможет! 
|
|
|
|
#20
Меня опять убили @ 15.10.09 18:39 |
[пожаловаться]
|
|
If A>B then begin buf:=a a:=b b:=buf end. Как то так. Помог бы полностью, но мне нужно на расстройку тренится
|
|
|
|
#22
sp4un @ 15.10.09 18:42 |
[пожаловаться]
|
|
а кажись понял. так опишу, в паскале сам составишь, ибо мне лень.. вводишь третью переменную, например Х. далее условие. если В меньше А то присвоить Х значение А и присвоить А значение В и присвоить В значение Х. вывести А, В
|
|
|
|
#25
sp4un @ 15.10.09 18:46 |
[пожаловаться]
|
|
#14 бла.. задачи элементарные, шевели чуток мозгами..
|
|
|
|
#26
ihLee @ 15.10.09 18:46 |
[пожаловаться]
|
|
[зашел_отпаскалил_афтора_вышел]
зы некопипаст 
зыы зайди на любой форум программистов 3610
|
|
|
|
#30
sp4un @ 15.10.09 18:58 |
[пожаловаться]
|
|
думаю, начало писать не надо .. read(A,B); if A >B then begin X:=B; B:=A; A:=X; end; writeln('A=',A; 'B=',B); end.
|
|
|
|
#33
sp4un @ 15.10.09 19:09 |
[пожаловаться]
|
|
program viewSlexom; var: A,B,X: real; begin writeln('vvedgte A, B'); далее написал выше..
|
|
|
|
#39
KpuTuk Большого Театра @ 15.10.09 20:40 |
[пожаловаться]
|
|
Program test;
var
a,b,c,d:integer;
begin
read(a);
read(b);
c:=b;
if a>b then
begin
b:=a;
a:=c;
end;
write('a=', a, ' b=', b);
end.
|
|
|
| Reply | | | |
|
|
|
