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
|
|
|
