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

Страница 1 из 2

Показывать 40 сообщений этой темы на одной странице

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Помогите, пожалуйста, написать две программы на Паскале. (http://www.tehnari.ru/f41/t36971/)

JIox	13.06.2010 16:33

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

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

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

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

MrSTEP

13.06.2010 16:48

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

MrSTEP

13.06.2010 16:53

Цитата:

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	13.06.2010 17:14

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

Boshaft_Elfe

13.06.2010 17:16

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

Цитата:

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

то

Цитата:

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

JIox	13.06.2010 17:22

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

в итоге получилось:
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

13.06.2010 17:27

Цитата:

Сообщение от JIox (Сообщение 346631)

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

Цитата:

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

Должно быть

Код:

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

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

Vladimir_S

13.06.2010 17:30

Цитата:

Сообщение от Boshaft_Elfe (Сообщение 346628)

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

Цитата:

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

то

Цитата:

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

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

Boshaft_Elfe

13.06.2010 17:32

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

MrSTEP

13.06.2010 17:37

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

Часовой пояс GMT +4, время: 12:23.

Страница 1 из 2

Показывать 40 сообщений этой темы на одной странице