kayort
Участник
Service Provisioning
licq:6268
|
отправлено: 27-02-2008 15:21:26 | |
инфо • правка • ссылка • сообщить модератору |
To Лакки м, что там не идет то, на синтаксис ругается или ответ не тот выводит? мне тут не на чем посмотреть как работает |
|
IP |
|
Лакки
Участник
Luck
licq:9071
|
отправлено: 27-02-2008 18:13:22 | |
инфо • правка • ссылка • сообщить модератору |
To kayort выводин не правильно(постоянно что 1 цифра в числе и k не принадлежит) я решила задачу,похожую: дано целое число.найти кол-во цифр в этом числе.(там правильно всё вроде),не могу никак с A разобраться. begin clrscr; write('vvedite zeloe chislo'); readln(n); i:=0; repeat c:=n mod 10; i:=i+1; n:=n div 10; until n=0; writeln('v etom chisle',i,'zifr'); readln; end. не знаю что у тебя не правильно..не выводит.. =((( |
|
IP |
|
kayort
Участник
Service Provisioning
licq:6268
|
|
kayort
Участник
Service Provisioning
licq:6268
|
отправлено: 28-02-2008 10:35:26 | |
инфо • правка • ссылка • сообщить модератору |
To Лакки а понятно, ошибка с until, перепутал с условием, забыл там надо ставить условие выхода из цикла или продолжение. |
|
IP |
|
запятая,
Новичок
вернемся к нашим баранам
|
отправлено: 01-03-2008 10:33:56 | |
инфо • правка • ссылка • сообщить модератору |
To Druha Вот условие 2 задачи цитата: 2.найти все равновеликие прямоуг.,стороны которых выражены целыми числами a и b,а площадь равна S(a и b принадлежат интервалу от 1 до 20,ф S вводится с клавиатуры) |
|
IP |
|
Зл@.Т@бур.
Участник
А я маленькая сволочь, а я маленькая дрянь©
licq:5237
|
отправлено: 13-03-2008 22:06:44 | |
инфо • правка • ссылка • сообщить модератору |
Даны 2е песочных часов, которые отмеряют k и m минут. Требуется с их помощью отмерить t минут. Написать программу, которая определяет, возможно ли данное измерение и минимальное время, за которое нужно потратить. Если нельзя вывести 'NO'. Ввод: k,m и t Примечание: Песок сыпется неравномерно. Значит если в часах осталось половина песка, это не значит что прошло половина времени. Пример: Ввод: 5, 7, 3 Вывод: 10 |
|
IP |
|
Annya
Участник
я могу признать поражение, но бездействие-никогда!
licq:9628
|
отправлено: 16-03-2008 20:05:57 | |
инфо • правка • ссылка • сообщить модератору |
пожалуйста помогите решить задачу: с клавиатуры вводятся 12 натуральных чисел. определить их среднее арифметическое, их произведение и количество чисел, меньше 10. |
|
IP |
|
afterglow
Участник
extraordinary
licq:5101
|
отправлено: 16-03-2008 20:15:05 | |
инфо • правка • ссылка • сообщить модератору |
^^^ program TT; const n=12; var a:array[1..n] of integer; i,k,pr:integer; sr:real; begin k:=0; pr:=1; sr:=0; randomize; for i:=1 to n do begin a[i]:=random(20); write(a[i]:3); if a[i]<10 then inc(k); p:=p*a[i]; sr:=sr+a[i]; end; sr:=sr/n; writeln; writeln(pr,' proizvedenie'); writeln(sr:2:2,' srednee znach'); writeln(k,' kolvo chisel menshe 10'); readln; end. |
|
IP |
|
Annya
Участник
я могу признать поражение, но бездействие-никогда!
licq:9628
|
|
Зл@.Т@бур.
Участник
А я маленькая сволочь, а я маленькая дрянь©
licq:5237
|
|
Зл@.Т@бур.
Участник
А я маленькая сволочь, а я маленькая дрянь©
licq:5237
|
отправлено: 17-03-2008 18:12:08 | |
инфо • правка • ссылка • сообщить модератору |
To afterglow Эту же задачу можно сделать без массива, что значительно уменьшит объём занимаемой ею памяти и ускорит процесс. (В данной задаче не заметно, но всё равно даёт выигрыш в мс) |
|
IP |
|
kayort
Участник
Service Provisioning
licq:6268
|
отправлено: 17-03-2008 19:59:54 | |
инфо • правка • ссылка • сообщить модератору |
To Зл@.Т@бур. цитата: Эту же задачу можно сделать без массива, что значительно уменьшит объём занимаемой ею памяти и ускорит процесс. (В данной задаче не заметно, но всё равно даёт выигрыш в мс) помимо этого не соблюдено условие цитата: с клавиатуры вводятся 12 натуральных чисел |
|
IP |
|
kayort
Участник
Service Provisioning
licq:6268
|
отправлено: 17-03-2008 20:08:32 | |
инфо • правка • ссылка • сообщить модератору |
с клавиатуры вводятся 12 натуральных чисел. определить их среднее арифметическое, их произведение и количество чисел, меньше 10. вот вроде немного переделано program TT; var i,k,p,a:integer; sr:real; begin p:=1; randomize; for i:=1 to 12 do begin read(a); if a<10 then k:=k+1; p:=p*a; end; sr:=p/12; writeln; writeln(p,' proizvedenie'); writeln(sr:2:2,' srednee znach'); writeln(k,' kolvo chisel menshe 10'); readln; end. |
|
IP |
|
kayort
Участник
Service Provisioning
licq:6268
|
отправлено: 17-03-2008 20:16:04 | |
инфо • правка • ссылка • сообщить модератору |
To Зл@.Т@бур. Даны 2е песочных часов, которые отмеряют k и m минут. Требуется с их помощью отмерить t минут. Написать программу, которая определяет, возможно ли данное измерение и минимальное время, за которое нужно потратить. Если нельзя вывести 'NO'. Ввод: k,m и t Примечание: Песок сыпется неравномерно. Значит если в часах осталось половина песка, это не значит что прошло половина времени. Пример: Ввод: 5, 7, 3 Вывод: 10 тут наверно что то вроде уравнения x*k+y*m=t прогнать вложенный цикл с запоминанием значения, дальше если модуль x*k больше модуля y*m, запомнить x, в другом случае y, в каждом случае сравнимать полученный бОльший коэффициент с запомненым, если оно окажется меньше, то запомнить его, решение не маленькое получится, но ничего умнее в голову не приходит |
|
IP |
|
Зл@.Т@бур.
Участник
А я маленькая сволочь, а я маленькая дрянь©
licq:5237
|
|
Зл@.Т@бур.
Участник
А я маленькая сволочь, а я маленькая дрянь©
licq:5237
|
отправлено: 21-03-2008 22:05:08 | |
инфо • правка • ссылка • сообщить модератору |
пример получается так... сначала ставим оба(-ои) часов, затем как только 5 заканчиваются их ещё раз... и от конца 7миминутных отмериваем до 10ти 3 минуты... там сложный какой-то алгоритм получается... ладно, узнаю решение, напишу) |
|
IP |
|
kayort
Участник
Service Provisioning
licq:6268
|
|
Лакки
Участник
Luck
licq:9071
|
|
|