Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
  |
| Задачки по логическому оператору |
| ЛеММА 16 |
Сообщение
#1
|
|
Новичок  Группа: Пользователи Сообщений: 15 Пол: Женский Репутация:  0   |
Помогите решить хоть какую-нибудь задачку!
1. Вычислить значение F(x): Х в квадрате, если Х кратно 3 F(x)= Х, если Х при делении на 3 дает остаток 1 Х/3,в остальных случаях 2.Найти произведение двух наибольших из трех введенных с клавиатуры чисел. 3. Вычислить: К=МАХ(а+в,в*с,в в квадрате) |
   |
 
|
| Account |
Сообщение
#2
|
|
Бывалый Группа: Пользователи Сообщений: 212 Пол: Мужской Репутация: 0 |
НУ а так что конкретно не получается? Ты что нито сделал уже?
|
|
|
|
| ЛеММА 16 |
Сообщение
#3
|
|
Новичок Группа: Пользователи Сообщений: 15 Пол: Женский Репутация: 0 |
У меня этих задачек 7 штук. Со всеми разом разобраться не могу и у меня маленький ребенок, времени не хватает
|
|
|
|
| Account |
Сообщение
#4
|
|
Бывалый Группа: Пользователи Сообщений: 212 Пол: Мужской Репутация: 0 |
Я конечно извиняюсь, но то что у Вас маленький ребенок к делу никакого отношения не имеет, этим вы намекаете что у вас времени нет на то что бы занятся задачами, а счего вы взяли что у других оно есть
 Вы хоть какой-нито код накидали?НЕ знаю какое x по заданию вводится я подразумевал что целое число, так как под вещественное надо переписывать код) (К первому заданию) uses crt;
var
x:integer;
f:real;
begin
clrscr;
write('Введите x:');
readln(x);
case (x mod 3) of
0:f:=sqr(x);
1:f:=x;
else f:=x/3;
end;
writeln('f(x)= ',f:2:2);
readkey;
end.
Сообщение отредактировано: Account - |
|
|
|
| ЛеММА 16 |
Сообщение
#5
|
|
Новичок Группа: Пользователи Сообщений: 15 Пол: Женский Репутация: 0 |
Цитата(Account @ 4.01.2009 22:54)  Я конечно извиняюсь, но то что у Вас маленький ребенок к делу никакого отношения не имеет, этим вы намекаете что у вас времени нет на то что бы занятся задачами, а счего вы взяли что у других оно есть Вы хоть какой-нито код накидали?НЕ знаю какое x по заданию вводится я подразумевал что целое число, так как под вещественное надо переписывать код) (К первому заданию) uses crt;
var
x:integer;
f:real;
begin
clrscr;
write('Введите x:');
readln(x);
case (x mod 3) of
0:f:=sqr(x);
1:f:=x;
else f:=x/3;
end;
writeln('f(x)= ',f:2:2);
readkey;
end.
Большое спасибо вам!!! Вы добрый человек. |
|
|
|
| Account |
Сообщение
#6
|
|
Бывалый Группа: Пользователи Сообщений: 212 Пол: Мужской Репутация: 0 |
Вот вторая задача
uses crt;
var
a,b,c,p:integer;
begin
clrscr;
write('Введите три числа через пробел:');
readln(a,b,c);
if (a>b) or (a>c) then begin if b>c then p:=a*b else p:=a*c end
else p:=b*c;
writeln('Proisvedenie = ',p);
readkey;
end.
Вот третье задание uses crt;
var
a,b,c,k:integer;
begin
clrscr;
write('Введите a,b,c через пробел:');
readln(a,b,c);
if ((a+b)>(b*c)) and ((a+b)>sqr(b)) then k:=a+b else
if (b*c)>sqr(b) then k:=b*c else k:=sqr(b);
writeln('k = ',k);
readkey;
end.
Сообщение отредактировано: Account - |
|
|
|
| Lapp |
Сообщение
#7
|
|||
 Уникум Группа: Пользователи Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: 159 |
ЛеММА 16, все люди добрые, но те, кто пытается выехать за чужой счет - те не очень.. Я подписываюсь под словами Account'а:
Цитата(Account @ 4.01.2009 22:54) то что у Вас маленький ребенок к делу никакого отношения не имеет, этим вы намекаете что у вас времени нет на то что бы занятся задачами, а счего вы взяли что у других оно есть - и очень рекомендую тебе хотя бы начать вникать в предмет. Если нет времени на это - займись чем-нибудь другим  . Здесь форум людей, интересующихся программрованием, а не тех, кому надо свалить курсовик. Если хочешь просто решения - ради Бога, есть раздел Задачи на заказ - договаривайся о цене, и готово.Далее:
-------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
|||
|
|
|
|||
|
|
Текстовая версия | 17.04.2025 6:07 |
