Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 03.10.2011, 17:06   #1
Анастасия12
Пользователь
 
Регистрация: 03.10.2011
Сообщений: 93
По умолчанию Паскаль!!!

Помогите пожалуйста решить две задачи из паскаль 10 класс.Завтра уже здавать задачи на проверку надо....

1 задача:
Ввести три числа и найти наибольшее из них.
Пример
Введите три числа
4 15 9
наибольшее число 15

2 задача:
Ввести возраст человека(от 1 до 150 лет) и вывести его вместе с последующим словом "год", "года или лет".
Анастасия12 вне форума
Старый 03.10.2011, 18:05   #2
Диман56
Форумчанин
 
Регистрация: 02.11.2010
Сообщений: 103
По умолчанию

сейчас напишу))
Диман56 вне форума
Старый 03.10.2011, 18:09   #3
Pein95
Форумчанин
 
Регистрация: 25.04.2010
Сообщений: 881
По умолчанию

...мда наглостю прям прет(
Pein95 вне форума
Старый 03.10.2011, 18:10   #4
JUDAS
фонатик DELPHI
Форумчанин
 
Аватар для JUDAS
 
Регистрация: 14.01.2008
Сообщений: 714
По умолчанию

Код:
program id167451;
var
 p1, p2, p3 : integer;
begin
  write('введите три числа через пробел ');read(p1,p2,p3);
  if (p1>p2)  and (p1>p3) then 
  writeln('большее ',p1) else
  if (p2>p1)  and (p2>p3) then 
  writeln('большее ',p2) else
  writeln('большее ',p3);
end;
программу по годам летам и году писал гдето на этом форуме, поищите код поиском
95% сбоев и ошибок приложений, находится в полу метрах от монитора
JUDAS вне форума
Старый 03.10.2011, 18:15   #5
Диман56
Форумчанин
 
Регистрация: 02.11.2010
Сообщений: 103
По умолчанию

1 программа:
Program pr1;
var a,b,c:integer;
BEGIN
writeln('Введите три числа:');
readln(a,b,c);
IF (a>b) and (b>c)
THEN
writeln('Наибольшее число:',a)
ELSE
IF (a<b) and (b>c)
THEN
writeln('Наибольшее число:',b)
ELSE
IF (b>a) and (b<c)
THEN
writeln('Наибольшее число:',c)
ELSE
IF(A>B) and (b<c)
THEN
writeln('Наибольшее число:',c)
ELSE;
END.
Диман56 вне форума
Старый 03.10.2011, 18:17   #6
Диман56
Форумчанин
 
Регистрация: 02.11.2010
Сообщений: 103
По умолчанию

эх, опередили меня))
Диман56 вне форума
Старый 03.10.2011, 18:19   #7
Анастасия12
Пользователь
 
Регистрация: 03.10.2011
Сообщений: 93
По умолчанию

JUDAS а ты прислал это какая прорамма про года или про наибольшее?
Анастасия12 вне форума
Старый 03.10.2011, 18:19   #8
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Цитата:
IF (a>b) and (b>c)
IF (a<b) and (b>c)
IF(A>B) and (b<c)
По-моему проще "думать" так, как в решении от Judas (if (a>b) and (a>c) then a наибольшее), чем так запутанно. Скорее всего вы сами где-то запутались.
Цитата:
а ты прислал это какая прорамма про года или про наибольшее?
А запустить не пробовали?оО Вроде бы в ней упоминаются только числа, а не года.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума
Старый 03.10.2011, 18:22   #9
Анастасия12
Пользователь
 
Регистрация: 03.10.2011
Сообщений: 93
По умолчанию

Я ничего не понела, можите написать ещё раз решение 1 задачи( про наибольшее)
пожалуйста...
Анастасия12 вне форума
Старый 03.10.2011, 18:25   #10
Диман56
Форумчанин
 
Регистрация: 02.11.2010
Сообщений: 103
По умолчанию

Да не запутался я) прога работает ведь правильно)))) Я на листке перебрал все варианты сравнения 3 чисел)
Диман56 вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Паскаль, Борланд Паскаль-в чем разница??? Vremya-Dengy Паскаль, Turbo Pascal, PascalABC.NET 13 31.05.2011 18:23
паскаль и турбо паскаль Евгения Игоревна Помощь студентам 6 05.05.2011 14:31
Паскаль KoTЭ Фриланс 2 18.06.2010 13:28
Паскаль Vanta11a Помощь студентам 2 28.05.2008 16:27