IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Задачи: массивы!
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 11

Репутация: -  0  +


Програмисты пожалусто помогите решыть такие задания:
1.Ввести два вешественых числа a и b. Найти остаток от деления a и b. Определить принадлежность остатка интервалу [0…4].
2.Даны 10 вешественых чисел. Определить набольшее из отрицательных чисел, округлить его к ближайшему целому.
3.Найти суму положительных элементов двух диогоналий массива. Определить является ли полученное округлое число простым.
P.S Пожалуста кто знает ответте!!! ;)


--------------------
Чем меншн знаеш тем дольшн жывеш!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
Closed Topic Открыть новую тему 
Ответов
сообщение
Сообщение #2


Пионер
**

Группа: Пользователи
Сообщений: 119
Пол: Мужской

Репутация: -  0  +


Код
program ForNox;
var a, x, l : real;
 b : boolean;
begin
 repeat
   write ('введите l (l>0, l<>1): ');
   readln (l)
 until (l>0) and (l<>1);
 write ('введите a: ');
 readln (a);
 b := true;
 if a>=2 then
   x := -ln(a) / ln(l)
 else
 if a<0 then
   x := -1
 else
 if (0<a) and (a<=2) then
   x := - abs(a-1)/a
 else
   b := false;
 if b then
   writeln ('f(x)=0 при x=', x)
 else
   writeln ('решения нет!!!')
end.


Сообщение отредактировано: volvo -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Nox   Задачи: массивы!   14.09.2003 21:54
trminator   Re: Задачя по Turbo Pascal 7 !!!   14.09.2003 22:40
AlaRic   Re: Задачя по Turbo Pascal 7 !!!   14.09.2003 23:00
Nox   Re: Задачя по Turbo Pascal 7 !!!   14.09.2003 23:00
Nox   Re: Задачя по Turbo Pascal 7 !!!   14.09.2003 23:03
AlaRic   Re: Задачя по Turbo Pascal 7 !!!   14.09.2003 23:15
Nox   Re: Задачя по Turbo Pascal 7 !!!   14.09.2003 23:17
AlaRic   Re: Задачя по Turbo Pascal 7 !!!   14.09.2003 23:18
Nox   Re: Задачя по Turbo Pascal 7 !!!   14.09.2003 23:22
AlaRic   Re: Задачя по Turbo Pascal 7 !!!   14.09.2003 23:29
Nox   Re: Задачя по Turbo Pascal 7 !!!   14.09.2003 23:32
trminator   Re: Задачя по Turbo Pascal 7 !!!   14.09.2003 23:35
AlaRic   Re: Задачя по Turbo Pascal 7 !!!   14.09.2003 23:37
trminator   Re: Задачя по Turbo Pascal 7 !!!   14.09.2003 23:42
AlaRic   Re: Задачя по Turbo Pascal 7 !!!   14.09.2003 23:46
Nox   Re: Задачя по Turbo Pascal 7 !!!   15.09.2003 23:07
zx1024   Re: Задачя по Turbo Pascal 7 !!!   16.09.2003 0:47
Nox   Re: Задачя по Turbo Pascal 7 !!!   16.09.2003 23:09
zx1024   Re: Задачя по Turbo Pascal 7 !!!   16.09.2003 23:34
Nox   Re: Задачи: массивы!   18.09.2003 21:48
zx1024   Re: Задачи: массивы!   20.09.2003 2:04
Ivs   Re: Задачи: массивы!   20.09.2003 23:48


Closed Topic Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.09.2022 1:46
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name