09.02.2010, 17:04 | #1 (permalink) |
Member
Регистрация: 22.01.2010
Сообщений: 25
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите, пожалуйста, решить две задачи в паскале.
1.Циклы: Указываеться длина первого прыжка лягушки и ее начальное растояние до болота. Лягушка каждый последуйщий прыжок делает вдвое короче предыдущего. Достигнет ли она болота, и если да, то за сколько прыжков? 2.Развилка:Вводится время (только часы, без минут). Программа выдает соответствующие приветствие("Доброе утро","Добрый день" и т.п.) ЗАРАНИЕ СПАСИБО!!!!!!!!!!!!!!!!! Последний раз редактировалось Mazura; 09.02.2010 в 17:22 |
09.02.2010, 17:04 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Люди уже интересовались подобным вопросом, можете посмотреть эти темы Помогите, пожалуйста, решить три задачи по Pascal Помогите пожалуйста решить матрицу в паскале Помогите решить четыре задачи в Паскале Помогите решить задачи на C++ Помогите пожалуйста решить задачи |
09.02.2010, 18:39 | #2 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
В первой задаче решение вроде бы очевидно (смотрите листинг), но при слишком большом отношении расстояния до болота к длине прыжка функция, описывающая движение лягушки, превращается в бесконечно убывающий ряд. Предлагаю самостоятельно дополнить решение необходимым условием, учитывающим эту особенность задачи.
Код:
program kwaken; var dlin, s: real; n:integer; begin writeln('Input length'); readln(dlin); writeln('Input distance'); readln(s); while s>0 do begin s:=s-dlin; dlin:=dlin/2; inc(n); end; writeln('Quantity of jumps to a bog',n); readln end. Код:
program TimeOfDays; var n: integer; begin n:=25; while (n>24) or (n<0) do begin writeln('Input time'); readln(n); end; case n of 0..5,24: writeln('Доброй ночи'); 6..11: writeln('Доброе утро'); 12..16:writeln('Добрый день'); 17..23:writeln('Добрый вечер'); end; readln end.
__________________
Убить всех человеков! |
09.02.2010, 20:33 | #4 (permalink) |
Member
Регистрация: 22.01.2010
Сообщений: 25
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
И еще если не сложно помогите с вот этой задачей:
Массивы: В массиве подсчитать количество положительных и количество отрицательных элементов, кратных данному K. Буду очень благодарен!!!!!!!! |
09.02.2010, 20:42 | #5 (permalink) |
一步一步地会到目的
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
|
несложная задача, попробуйте сами, мы исправим, если что
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
09.02.2010, 20:56 | #8 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
CONST N=10; VAR A:ARRAY[1..N] of INTEGER; Nneg, Npos, K, i:INTEGER; BEGIN Write('K= '); ReadLn(K); WriteLn; Randomize; Nneg:=0; Npos:=0; For i:=1 to N do begin A[i]:=Random(100)-50; Write(A[i]:5); If (A[i]>0) and ((A[i] mod K)=0) then INC(Npos); If (A[i]<0) and ((A[i] mod K)=0) then INC(Nneg); end; WriteLn; WriteLn('The number of positive elements, divisible by ',K,' is ', Npos); WriteLn('The number of negative elements, divisible by ',K,' is ', Nneg); ReadLn; END. |
|
09.02.2010, 20:57 | #9 (permalink) |
一步一步地会到目的
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
|
Код:
uses crt; var a:array[1..100] of integer; n,i,k,kpol,kotr:integer; begin clrscr; write ('Vvedi k: '); readln (k); write ('Vvedi kol-vo el-tov massiva: '); readln (n); kpol:=0; kotr:=0; for i:=1 to n do begin readln (a[i]); if a[i]>0 then kpol:=kpol+1 else if a[i] mod k = 0 then kotr:=kotr+1; end; writeln ('Kol-vo polozhitelnykh elementov: ', kpol, ', Kol-vo otricatelnykh, kratnyh k: ', kotr); readkey; end. |
09.02.2010, 20:59 | #10 (permalink) |
一步一步地会到目的
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
|
а кратность относится и к тем, и к другим??
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|