Помогите, пожалуйста, написать две программы на Паскале.

[JIox]

Помогите, пожалуйста, написать две программы на Паскале.

Здравствуйте.
Я в программировании полный ноль, но выпала задача написать 2 программы на Паскале. Очень нужно их написать, пожалуйста помогите!

1.Составить программу:
Даны два числа А и В. Если первое число больше второго по абсолютной величине, то необходимо первое уменьшить в 5 раз.

2.Составить программу:
Даны два числа А и В с разными знаками. Найти модуль отрицательного числа и квадрат положительного.

 

[MrSTEP]

сейчас будет..

 

[MrSTEP]

1.Составить программу:
Даны два числа А и В. Если первое число больше второго по абсолютной величине, то необходимо первое уменьшить в 5 раз.

var a,b:integer;
begin
write ('Введи два чиcла: ');
readln (a,b);
if (abs(a)>abs(b)) then
 a:=a*5;
writeln ('A = ',a,'; B = ',b);
end.

2. Составить программу:
Даны два числа А и В с разными знаками. Найти модуль отрицательного числа и квадрат положительного.

var a,b:integer;
begin
write ('Введи два чиcла: ');
readln (a,b);
if a<=0 then
 a:=abs(a)
else
 a:=sqr(a);
if b<=0 then
 b:=abs(b)
else
 b:=sqr(b);
writeln ('A = ',a,'; B = ',b);
end.

Однако очень прискорбно, что приходится решать такие архипростые задачи...

 

[JIox]

MrSTEP, да я сам понимаю, во время не взялся за ум вот и докатился, сейчас как сдам работу начну всерьёз учить программирование :tehnari_ru_657:.
Спасибо огромное тебе за помошь :tehnari_ru_288:

 

[Boshaft_Elfe]

MrSTEP, почему если

Если первое число больше второго по абсолютной величине, то необходимо первое уменьшить в 5 раз.

то

if (abs(a)>abs(b)) then
a:=a*5

?

 

[JIox]

да ладно, ошибку я уже исправил

в итоге получилось:
var a,b:real;
begin
write ('Введи два чиcла: ');
readln (a,b);
if (abs(a)>abs(b)) then
a:=a/5;
writeln ('A = ',a,'; B = ',b);
end.

 

[Vladimir_S]

да ладно, ошибку я уже исправил

в итоге получилось:
var a,b:real;
begin
write ('Введи два чиcла: ');
readln (a,b);
if (abs(a)>abs(b)) then
a:=a/5;
writeln ('A = ',a,'; B = ',b);
end.

ВНИМАНИЕ, здесь ошибка:

writeln ('A = ',a,'; B = ',b);

Должно быть

writeln ('A = ',a,' B = ',b);

Т.е. точка с запятой - лишняя!

 

[Vladimir_S]

MrSTEP, почему если

Если первое число больше второго по абсолютной величине, то необходимо первое уменьшить в 5 раз.

то

if (abs(a)>abs(b)) then
a:=a*5

?

Ира, давай, присоединяйся к нашему сообществу программистов! А то зашиваемся.:tehnari_ru_674:

 

[Boshaft_Elfe]

Владимир, да не дай бог попасть к такому врачу, как я программист) Кстати, почему точка с запятой лишняя? Примет за разделитель операторов?

 

[MrSTEP]

Про уменьшить/увеличить просто невнимательно отнесся.
А точка с запятой для удобства чтения, и поскольку она находится внутри кавычек, на программу это никак не повлияет

 

[Vladimir_S]

А, черт - согласен насчет точки с запятой. Поторопился. Вот ведь...

 

[Vladimir_S]

Владимир, да не дай бог попасть к такому врачу, как я программист)

Ничего-ничего, лиха беда начало!

 

[MrSTEP]

Ну, Володь, бывает, все мы люди
Ира, ты все-таки пробуй, умения с опытом приходят