zhenya1
Удален
|
   
помогите пожалуйста решить задачку...
Дан эллипс. Найти его площадь. (Описать тип – эллипс.)
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 21 дек. 2006 18:06 | IP
|
|
miss_graffiti
Долгожитель
|
  
KMA, почему?
тупо откомпилировала твой код (вообще без изменений) - ну никак 249 не получается!
тем более, что корень из 249 - не целое число...
2 zhenya1
type ellips=record
big_poluos,little_poluos:integer;
end;
S=Pi*big_poluos*little_poluos
|
Всего сообщений: 670 | Присоединился: сентябрь 2005 | Отправлено: 22 дек. 2006 0:15 | IP
|
|
KMA 
Долгожитель
|
А, ну да. Просто если считать так, как сказала ты. Комбинаторными методами, тогда получается, что и программа то нам не нужна. Я так думал ей нужен перебор был. Ибо твой метод даже не требует вводить данные. =)
По поводу 249, реально сглупил. Поставил тип byte, отсюда и ошибка.
|
Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 22 дек. 2006 0:33 | IP
|
|
KMA
Долгожитель
|
miss graffiti, а напишите свой код, мне просто интересно. Если вас это не затруднит.
|
Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 22 дек. 2006 0:38 | IP
|
|
miss_graffiti
Долгожитель
|
пожалуйста, не обращайся ко мне на вы.
с учетом совсем небольшой разницы в возрасте - некомфортно....
перебор там тоже есть...
просто поменьше на 3 цикла. выигрыш по времени значительный.
program bilet;
var i,j,k,kolvo:integer;
begin
kolvo:=0;
for i:=0 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
if (i+j+k)=13 then
inc(kolvo);
kolvo:=sqr(kolvo);
writeln(kolvo);
readln;
end.
с byte правда 249... а знаешь, почему именно это число? ведь могло бы быть и 255... не задумывался?
|
Всего сообщений: 670 | Присоединился: сентябрь 2005 | Отправлено: 22 дек. 2006 2:10 | IP
|
|
Katerina
Новичок
|
Ребята, вот я тут программу составила, конечно, для меня это стоило огромных трудов, а для вас покажется пустяком, так вот, она не работает,ну в конце она в текстовый файл ничего не пишет...Посмотрите, пожалуйста и скажите мне, что не так!!!
Из строчных русских букв строки файла а создать новую строку.В новой строке после каждой пятой буквы вставить пробел.
uses crt;
var u:char;
f,g:text;
s:string;
begin
assign(f,' ');
assign(g,' ');
reset(f);rewrite(g);
while not eof(f) do begin
read(f,u);
if((ord(u)>=160)and(ord(u)<=175)) and ((ord(u)>=224) and (ord(u)<=239)) and(ord(u)=241) then writeln(g,u);end;
begin
k:=0;n:=length(s);
for i:=1 to n do
if(i mod 5)=0 then
insert(' ',s,1);
k:=k+1;
close(f);close(g);
end.
|
Всего сообщений: 2 | Присоединился: январь 2010 | Отправлено: 22 дек. 2006 17:07 | IP
|
|
miss_graffiti
Долгожитель
|
if((ord(u)>=160)and(ord(u)<=175)) and ((ord(u)>=224) and (ord(u)<=239)) and(ord(u)=241)
переведем на русский:
код>=160 и код<=175 и код>=224 и код<=239 и код=241
можешь подобрать хотя бы одно число, для которого одновременно бы выполнялись все эти условия?
|
Всего сообщений: 670 | Присоединился: сентябрь 2005 | Отправлено: 22 дек. 2006 18:06 | IP
|
|
Katerina
Новичок
|
так сюда надо вставить предлог "или"?и будет работать?
|
Всего сообщений: 2 | Присоединился: январь 2010 | Отправлено: 22 дек. 2006 19:10 | IP
|
|
Petrosyan
Новичок
|
Помогите если можете. Дан файл со строками из строки нужно удалить все цифры
n:=pos('1',s);
while n<>0 do
begin delete (s,n,1);
n:=pos('1',s);end;
Я знаю как удалить конкретный символ , но все цифры сразу нет если удалять каждую цифру по очереди, то получается долго и не красиво. Нет ли какого-нибудь способа полегче и попроще чтобы даже я понял.Заранее спасибо
|
Всего сообщений: 2 | Присоединился: сентябрь 2010 | Отправлено: 22 дек. 2006 19:16 | IP
|
|
Guest
Новичок
|
попробуй простой перебор символов чере Char
inc,dec или просто
for i:= 1 to length(s) do
if s in ['0'..'9'] then delete(s,i,1);
хотя так может возникнуть ошибка... ну чтот в этом роде
|
Всего сообщений: Нет | Присоединился: Never | Отправлено: 22 дек. 2006 21:23 | IP
|
|
|
Форум
Турбо Паскаль. Программирование на Pascal
