13.06.2010, 16:33 | #1 (permalink) |
Новичок
Регистрация: 13.06.2010
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите, пожалуйста, написать две программы на Паскале.
Я в программировании полный ноль, но выпала задача написать 2 программы на Паскале. Очень нужно их написать, пожалуйста помогите! 1.Составить программу: Даны два числа А и В. Если первое число больше второго по абсолютной величине, то необходимо первое уменьшить в 5 раз. 2.Составить программу: Даны два числа А и В с разными знаками. Найти модуль отрицательного числа и квадрат положительного. |
13.06.2010, 16:33 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Всегда рад посоветовать к просмотру похожие темы Помогите написать программы в Паскале. Помогите пожалуйста написать проги в паскале Помогите написать программку на Паскале Пожалуйста, помогите в написании программы на Паскале |
13.06.2010, 16:53 | #3 (permalink) | ||
一步一步地会到目的
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
|
Цитата:
Код:
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. Цитата:
Код:
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. |
||
13.06.2010, 17:14 | #4 (permalink) |
Новичок
Регистрация: 13.06.2010
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
MrSTEP, да я сам понимаю, во время не взялся за ум вот и докатился, сейчас как сдам работу начну всерьёз учить программирование .
Спасибо огромное тебе за помошь |
13.06.2010, 17:16 | #5 (permalink) | ||
Member
Регистрация: 28.03.2010
Сообщений: 477
Записей в дневнике: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1837
|
MrSTEP, почему если
Цитата:
Цитата:
|
||
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
13.06.2010, 17:22 | #6 (permalink) |
Новичок
Регистрация: 13.06.2010
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
да ладно, ошибку я уже исправил
в итоге получилось: 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. |
13.06.2010, 17:27 | #7 (permalink) | ||
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Цитата:
Код:
writeln ('A = ',a,' B = ',b); |
||
13.06.2010, 17:32 | #9 (permalink) |
Member
Регистрация: 28.03.2010
Сообщений: 477
Записей в дневнике: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1837
|
Владимир, да не дай бог попасть к такому врачу, как я программист) Кстати, почему точка с запятой лишняя? Примет за разделитель операторов?
|
13.06.2010, 17:37 | #10 (permalink) |
一步一步地会到目的
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
|
Про уменьшить/увеличить просто невнимательно отнесся.
А точка с запятой для удобства чтения, и поскольку она находится внутри кавычек, на программу это никак не повлияет |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|