Форум
» Назад на решение задач по физике и термеху
Регистрация | Профиль | Войти | Забытый пароль | Присутствующие | Справка | Поиск

» Добро пожаловать, Гость: Войти | Регистрация
    Форум
    Информационные технологии
        Турбо Паскаль. Программирование на Pascal
Отметить все сообщения как прочитанные   [ Помощь ]
» Добро пожаловать на форум "Информационные технологии" «

Переход к теме
<< Назад Вперед >>
Несколько страниц [ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 ]
Модераторы: paradise, KMA
  

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, отсюда и ошибка.

-----
Gentoo, FreeBSD 7.2, PHP, JavaScript (jQuery), Python, Shell
Помогаю с задачами только на форуме.
Все мои действия четко согласуются с правилами раздела. Поэтому никаких претензий и обид.

Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 22 дек. 2006 0:33 | IP
KMA



Долгожитель

miss graffiti, а напишите свой код, мне просто интересно. Если вас это не затруднит.

-----
Gentoo, FreeBSD 7.2, PHP, JavaScript (jQuery), Python, Shell
Помогаю с задачами только на форуме.
Все мои действия четко согласуются с правилами раздела. Поэтому никаких претензий и обид.

Всего сообщений: 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

Эта тема закрыта, новые ответы не принимаются

Переход к теме
<< Назад Вперед >>
Несколько страниц [ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 ]

Форум работает на скрипте © Ikonboard.com