Модераторы: Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [Pascal] Без if, for, while, решить 4 задачи 
:(
    Опции темы
GreMail
Дата 12.10.2006, 17:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 12.10.2006

Репутация: 1
Всего: 1
Я в Паскале ни соображаю ничего, помогите пожалуйста решить следующие задачи  без if,for,while,then и т.д. и применяя div и mod:
1) ввести два числа и упорядочить их в порядке возростания 
2) Определить, сколько минутm и сколько часов h прошло. 
например: k=13257; H=3 m=40 
3) Поменять местами значения двух переменных. 2 способа 
4) Ввести два числа m и n если n< или = m, то вывести 1, если нет, то любое другое число. 
5) Ввести любое трехзначное число и вывести сумму его цифр. 
PM MAIL   Вверх
ivashkanet
Дата 12.10.2006, 17:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Кодю потиху
****


Профиль
Группа: Участник Клуба
Сообщений: 3684
Регистрация: 23.2.2006
Где: Гомель, Беларусь

Репутация: 9
Всего: 149
Цитата(GreMail @  12.10.2006,  17:25 Найти цитируемый пост)
1) ввести два числа и упорядочить их в порядке возростания 
4) Ввести два числа m и n если n< или = m, то вывести 1, если нет, то любое другое число. 

Эти задачи без if решить не возможно  smile 
Цитата(GreMail @  12.10.2006,  17:25 Найти цитируемый пост)
2) Определить, сколько минутm и сколько часов h прошло. 

Прошло с какого момента?
Я паскаль лет 100 не видел, так что будут ошибки (синтаксические)


3)
Код

var a, b, temp: real;

begin

writeln("Введите два числа:");
readln(a);
readln(b);

write("а было: ");
writeln(a);
write("b было: ");
writeln(b);

temp:=a;
a:=b;
b:=temp;

write("а стало: ");
writeln(a);
write("b стало: ");
writeln(b);

end.

Второй способ:
Код

var a, b: real;

begin

writeln("Введите два числа:");
readln(a);
readln(b);

write("а было: ");
writeln(a);
write("b было: ");
writeln(b);

a:=a + b;
b:=a - b;
a:=a-b;

write("а стало: ");
writeln(a);
write("b стало: ");
writeln(b);

end.


5)
Код

var a, ed, des, sot: integer;

begin

writeln("Введите трехзначное число:");
readln(a);

ed:= a mod 10;
a:= a div 10;
des: = a mod 10;
sot:= a div 10;

write("Единиц: ");
writeln(ed);
write("Десяток: ");
writeln(des);
write("Сотен: ");
writeln(sot);

end.



--------------------
design, simplicity, and experience with a technology focus
PM MAIL WWW ICQ   Вверх
Sartorius
Дата 12.10.2006, 17:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1568
Регистрация: 18.7.2006
Где: Ivory tower

Репутация: 8
Всего: 37
 4)  write((n - 1)  div m + 1);
 
PM MAIL ICQ   Вверх
ivashkanet
Дата 12.10.2006, 17:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Кодю потиху
****


Профиль
Группа: Участник Клуба
Сообщений: 3684
Регистрация: 23.2.2006
Где: Гомель, Беларусь

Репутация: 9
Всего: 149
Цитата(GreMail @  12.10.2006,  17:25 Найти цитируемый пост)
4) Ввести два числа m и n если n< или = m, то вывести 1, если нет, то любое другое число. 

 smile 

Код

var m, n: integer;

begin

writeln("Введите два числа:");
readln(m);
readln(n);

writeln((n div m)+1);
end.

А говорил невозможно  smile

Добавлено @ 17:53 
Цитата(Sartorius @  12.10.2006,  17:50 Найти цитируемый пост)
4)  write((n - 1)  div m + 1);

Я то же придумал smile

Sartorius, точно, n-1? Но идею я уловил smile


--------------------
design, simplicity, and experience with a technology focus
PM MAIL WWW ICQ   Вверх
Sartorius
Дата 12.10.2006, 17:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1568
Регистрация: 18.7.2006
Где: Ivory tower

Репутация: 8
Всего: 37
ivashkanet,  там n может быть равно m... div даст 1 , а нада что б 0
PM MAIL ICQ   Вверх
ivashkanet
Дата 12.10.2006, 17:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Кодю потиху
****


Профиль
Группа: Участник Клуба
Сообщений: 3684
Регистрация: 23.2.2006
Где: Гомель, Беларусь

Репутация: 9
Всего: 149
Цитата(Sartorius @  12.10.2006,  17:55 Найти цитируемый пост)
ivashkanet,  там n может быть равно m... div даст 1 , а нада что б 0

Я понял  smile 
Просто а вопрос --- это... запятая на английском  smile 


--------------------
design, simplicity, and experience with a technology focus
PM MAIL WWW ICQ   Вверх
volvo877
Дата 12.10.2006, 18:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 34
Всего: 116
Цитата(GreMail @  12.10.2006,  16:25 Найти цитируемый пост)
1) ввести два числа и упорядочить их в порядке возростания

Код
var
  a, b: integer;
  min, max: integer;
begin
  a := 17; b := 12;
  min := (a + b - abs(a - b)) div 2;
  max := (a + b) - min;
  writeln(min:4, max:4);
end.
?
PM MAIL   Вверх
sergejzr
Дата 12.10.2006, 18:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Un salsero
Group Icon


Профиль
Группа: Админ
Сообщений: 13285
Регистрация: 10.2.2004
Где: Германия г .Ганновер

Репутация: 11
Всего: 360
Кстати это тоже должно сработать.
3)
a:=a XOR b;
b:=a XOR b;
a:=a XOR b;

Задачки прикольные, поучительные и интересные. Всем + в репу!


--------------------
Me.
FB.
LinkedIn.
ORCID.
YT.
PM WWW IM ICQ Skype GTalk Jabber AOL YIM MSN   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Центр помощи | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1085 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.