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

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

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

 
Closed Topic Открыть новую тему 
> Задача, циклы
сообщение
Сообщение #1


Новичок
*

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

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


Помогите решить задачки (на циклы):
1) Подсчитать k-- количество цифр неотрицательного целого числа n.

2) Найти d--старшую (левую) цифру неотрицательного целого числа n.

3) Определить, сколько раз (k) цифра 8 встречается среди первых пяти цифр дробной части положительного вещественного цичла x.

4) Получить целое число k добавлением слева цифры 6 к десятичной записи натурального числа n (например, k=6107 при n=107).

5) Логической переменной t присвоить значение true, если натуральное число k есть степень 10(1,10,100...), и значение false иначе.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Помощник капитана
****

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

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


по первой задаче можно так:
writeln('Vvedite chislo');
readln(n);
k:=length(inttostr(n));
writeln(k);


--------------------
Dum spiro spero!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гуру
*****

Группа: Пользователи
Сообщений: 1 117
Пол: Мужской
Реальное имя: Богдан

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


Артемий2, раздел то паскалевский, а стандартной функции inttostr там нету. Используй str(longint; Var string)). Хотя в справке дается пример аналога inttostr с использованием str.


--------------------
Лао-Цзы :
Знать много и не выставлять себя знающим есть нравственная высота. Знать мало и выставлять себя знающим есть болезнь. Только понимая эту болезнь, мы можем избавиться от нее.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Помощник капитана
****

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

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


я просто в uses добавил SysUtils. Но ты прав, я забыл про str()! smile.gif


--------------------
Dum spiro spero!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






Артемий2 - не пойдет... Задачи на циклы, следовательно надо просто проходить по числу, и делить его на 10, пока оно не станет равным 0, одновременно с этим увеличивая счетчик цифр...

Диона, поправь название темы (
Цитата(Правила Раздела)
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
), и пользуйся поиском... Практически все задачи решались...

Добавлено через 1 мин.
Кстати, StrUtils ты можешь добавить в Дельфи, раздел про Паскаль, повторяю...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Помощник капитана
****

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

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


Про циклы почему-то не обратил внимание, за это извиняюсь.. smile.gif cool.gif


--------------------
Dum spiro spero!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Новичок
*

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

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


Цитата(volvo @ 3.02.2007 19:51) *

Артемий2 - не пойдет... Задачи на циклы, следовательно надо просто проходить по числу, и делить его на 10, пока оно не станет равным 0, одновременно с этим увеличивая счетчик цифр...

Диона, поправь название темы (), и пользуйся поиском... Практически все задачи решались...

Добавлено через 1 мин.
Кстати, StrUtils ты можешь добавить в Дельфи, раздел про Паскаль, повторяю...


Поиском я пользовалась и три дня читала все задачи. Это во-первых. Во-вторых, задачи я написала сначала в другую тему, но туда почему-то никто не заглядывает, поэтому пришлось создать новую тему и что самое интересное, то сразу обратили внимание blink.gif Создаётся впечатление, чтобы обратили на тебе внимание, нужно, точнее ПРИХОДИТЬСЯ, создавать новые темы! huh.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

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


Чувствуется на долго это ...

1)
var
n: LongInt;
k: Byte;

begin

write('n = '); readln(n);

k := 0;

if n = 0 then k := 1 else
while (n > 0) do begin
inc(k);
n := n div 10;
end;

writeln(k);

end.


2)

var
n, temp: LongInt;
left, k, t: Byte;

begin

write('n = '); readln(n);

k := 0;

temp := n;

while (temp > 0) do begin
inc(k);
temp := temp div 10;
end;

if k < 6 then writeln('No') else begin

temp := n;

t := k - 6;

k := 0;

while (k < t) do begin
inc(k);
temp := temp div 10;
end;

writeln(temp mod 10);

end;
end.


3)

var
n: Single;
temp: LongInt;
k, t: Byte;

begin

write('n = '); readln(n);

temp := Round(n - Frac(n));

k := 0;

while (temp > 0) do begin
inc(k);
temp := temp div 10;
end;

if k < 5 then writeln('No') else begin

temp := Round(n - Frac(n));

t := k - 5;

for k := 1 to t do temp := temp div 10;

k := 0;

while (temp > 0) do begin

if temp mod 10 = 8 then inc(k);

temp := temp div 10;

end;

writeln(k);

end;

end.


4)

var
n, temp: LongInt;
k: Byte;

begin

write('n = '); readln(n);

if n = 0 then n := 60 else begin

temp := n;

k := 0;

while (temp > 0) do begin
inc(k);
temp := temp div 10;
end;

n := n + 6 * Round(Exp(k * ln(10)));

end;

writeln(n);

end.


var
n, last: LongInt;
t: Boolean;
count1: Byte;

begin

write('n = '); readln(n);

count1 := 0;

while (n > 0) and (count1 < 2) and (n mod 10 in [0, 1]) do begin

last := n mod 10;

if last = 1 then inc(count1);

n := n div 10;
end;

t := (last - count1 = 0) and (n mod 10 in [0, 1]);

writeln(t);

end.


может перемудрил местами, не проснулся еще ...


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Гость






Диона, я прочел твой монолог, а теперь ты прочти вот это:

во-первых, если я дал время на то, чтобы ты соизволила поменять название темы - это не значит, что я ЗАБЫЛ об этом... Ты НЕ соизволила - согласно пункту 4 Правил Форума и Пункту 1 правил Раздела "Задачи" тема закрывается...

во-вторых: кто тебе вообще сказал, что твое сообщение в чужую тему кто-нибудь мог увидеть? Оно было удалено в течении нескольких минут, ибо не надо задавать свои вопросы (да еще и целую кучу) в чужой теме...

в-третьих, я тоже читал много текстов на китайском языке... Только вот не понял ничего, потому что просто ЧИТАЛ, а проще - СМОТРЕЛ на красивые иероглифы. А вот когда я начал УЧИТЬ язык (не китайский, немного другой), разбираться в грамматике, в синтаксисе, то почему-то получилось... Странно, правда?

Закрыто.
 К началу страницы 
+ Ответить 

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

 





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