Хостинг Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг на Windows 2008

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

Чемпионы рейтинга экспертов в этой рассылке

Botsman Статус: Студент Рейтинг: 231 ∙ повысить рейтинг >>

Micren Статус: Практикант Рейтинг: 96 ∙ повысить рейтинг >>

Пупорев Юрий Борисович Статус: Специалист Рейтинг: 60 ∙ повысить рейтинг >>

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Pascal

Выпуск № 856
от 18.04.2009, 14:05

Вопрос № 164771: Уважаемые Эксперты! Помогите пожалуйста дописать программу. Мне нужно чтобы эта красная точка(код в приложении) двигалась только в пределах синей большой фигуры и не выходила за её пределы. Причем если ударяется о стенку синей фигуры то должна отскак...

Вопрос № 164.771

Уважаемые Эксперты! Помогите пожалуйста дописать программу. Мне нужно чтобы эта красная точка(код в приложении) двигалась только в пределах синей большой фигуры и не выходила за её пределы. Причем если ударяется о стенку синей фигуры то должна отскакивать и менять координаты по законам физики как мячик. Далее если эта красная точка попадёт на синий квадрат(внизу, маленький), то должно быть что то в виде увеличивающихся кругов и искр и выход из программы. Плиииз если не трудно то с комментариями)) Моих знании хватило только на то что получилось(( Приложение: Program figure; uses crt, graph; type my=object x,y,x1,y1:integer; color,color1:byte; r,q,z:real; x5,y5:integer; x2,y2,x3,y3,x4,y4,x6,y6,a,b:integer; s,l,i,j,t:integer; p:pointer; procedure init; procedure pixel; procedure show; procedure step; end; procedure my.init; begin color:=11; x:=5; y:=5; x1:=x; y1:=400; x2:=600; y2:=y; x3:=200; y3:=y1; x4:=600; y4:=200; x5:=200; y5:=200; x6:=150; y6:=350; end; procedure my.pixel; begin i:=imagesize(15,15,25,25); getMem(p,i); i:=random(getmaxX); j:=random(getmaxY); setcolor(red); setfillstyle(1,red); fillEllipse(i,j,2,2); i:=i-3; j:=j-3; Getimage(i,j,i+6,j+6,p^); delay(3000); putimage(i,j,p^,xorput); repeat if (i<getmaxX) and (j<getmaxY) then begin i:=i+random(2); j:=j+random(2); putimage(i,j,p^,xorPut); delay(3000); putimage(i,j,p^,xorPut); end; until keypressed; readln; freemem(p,i); end; procedure my.show; begin setcolor(1); putpixel(x,y,color); putpixel(x1,y1,color); putpixel(x2,y2,color); putpixel(x3,y3,color); putpixel(x4,y4,color); putpixel(x5,y5,color); setlinestyle(0,0,3); line(x,y,x1,y1); line(x,y,x2,y2); line(x1,y1,x3,y3); line(x2,y2,x4,y4); line(x4,y4,x5,y5); line(x3,y3,x5,y5); rectangle(x6,y6,x3,y3); end; Procedure my.step; begin init; show; pixel; end; var ch:byte; gd,gm:integer; o:my; begin gd:=vga; gm:=vgahi; randomize; initGraph(Gd, Gm, ''); o.step; readln; closegraph; readln; end.

Отправлен: 12.04.2009, 22:03 Вопрос задал: S K A L T (статус: 1-й класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Тимошенко Дмитрий Здравствуйте, S K A L T ! В приложении текст. Ваш текст закоментирровал (*...*). Мой текст и коментарии {...} сделал с отступом, чтобы проще было разобраться. Думаю из коментариев все понятно. "Круги" и "искры" не стал рисовать - оставил на ваше усмотрение. Место отмечено. Вроде все. Приложение: Program figure; uses crt, graph; type my=object x,y,x1,y1:integer; color,color1:byte; r,q,z:real; x5,y5:integer; x2,y2,x3,y3,x4,y4,x6,y6,a,b:integer; s,l,i,j,t:integer; p:pointer; procedure init; procedure pixel; procedure show; procedure step; end; procedure my.init; begin color:=11; x:=5; y:=5; x1:=x; y1:=400; x2:=600; y2:=y; { Координаты точек 3 и 4 для выполнения задачи не нужны } { В описании типа их тоже можно исключить } (*x3:=200; y3:=y1; x4:=600; y4:=200;*) x5:=200; y5:=200; x6:=150; y6:=350; end; procedure my.pixel; { Вектор движения } var dx,dy: integer; begin i:=imagesize(15,15,25,25); getMem(p,i); (* i:=random(getmaxX); j:=random(getmaxY); *) { Начальные координаты точки должны попасть внутрь фигуры } { Условие цикла исключает попадание точки в "вырез" } repeat i:=x+random(x2-x); j:=y+random(y1-y); until (i<x5) or (j<y5); setcolor(red); setfillstyle(1,red); fillEllipse(i,j,2,2); i:=i-3; j:=j-3; Getimage(i,j,i+6,j+6,p^); delay(3000); putimage(i,j,p^,xorput); { Зададим начальный вектор движения точки } { При таком диапазоне движение будет только под 45 градусов } { можно расширить диапазон например -2..2 - тогда точка будет } { двигаться быстрее и уже добавятся углы в 30 и 60 градусов } { Цикл нужен для того чтобы было смещение хотябы по одной оси } { иначе точка будет стоять на месте } repeat dx:=random(3)-1; {-1 .. 1} dy:=random(3)-1; {-1 .. 1} until (dx<>0) or (dy<>0); repeat { Проверим столкновение со стенками } { Не учитываю размеры точки и толщину линий, поэтому по нижним } { и правым границам чуть выходит за край фигуры - можно подогнать } { по оси X } if (j<y5) and (i+dx>x2) or (j>y5) and (i+dx>x5) or (i+dx<x) then begin dx:=-dx; { Сделаем случайных отскок, если нет смещения по оси Y } if dy=0 then dy:=random(3)-1; end; { по оси Y } if (i<x5) and (j+dy>y1) or (i>x5) and (j+dy>y5) or (j+dy<y) then begin dy:=-dy; { Сделаем случайных отскок, если нет смещения по оси X } if dx=0 then dx:=random(3)-1; end; (* if (i<getmaxX) and (j<getmaxY) then begin i:=i+random(2); j:=j+random(2); *) i:=i+dx; j:=j+dy; putimage(i,j,p^,xorPut); delay(3000); putimage(i,j,p^,xorPut); (* end; *) { Проверяем попадание в "цель" } if (i>=x6) and (j>=y6) and (i<=x5) and (j<=y1) then begin { Остановим движение } { хотя это не обязательно, если будем выходить из цикла } dx:=0; dy:=0; { А тут рисуем "взрыв" } {...} break; { Выходим из цикла } end; until keypressed; readln; freemem(p,i); end; procedure my.show; begin setcolor(1); putpixel(x,y,color); putpixel(x1,y1,color); putpixel(x2,y2,color); putpixel(x3,y3,color); putpixel(x4,y4,color); putpixel(x5,y5,color); setlinestyle(0,0,3); line(x,y,x1,y1); line(x,y,x2,y2); line(x1,y1,x3,y3); line(x2,y2,x4,y4); line(x4,y4,x5,y5); line(x3,y3,x5,y5); rectangle(x6,y6,x3,y3); end; Procedure my.step; begin init; show; pixel; end; var ch:byte; gd,gm:integer; o:my; begin gd:=vga; gm:=vgahi; randomize; initGraph(Gd, Gm, ''); o.step; readln; closegraph; readln; end.

Ответ отправил: Тимошенко Дмитрий (статус: 3-й класс) Ответ отправлен: 13.04.2009, 07:37 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 247362 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Огромнейшее спасибо!!! Благодарен вам))

Вопрос № 164.803

Здравствуйте, мне сказали вы хорошо понимаете в информатики, а я ее не понимаю. Помогите пожалуйста решить задачу: Задана матрица 8*8. найти произведения в тех строках, которые не содержат отрицательных элементов. Заранее спасибо.

Отправлен: 13.04.2009, 11:06 Вопрос задал: Ложкин Иван Дмитриевич (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Andrey Popkov Здравствуйте, Ложкин Иван Дмитриевич! ну гдето так :) Const DIMENS = 8; Var A: Array[1..DIMENS, 1..DIMENS + 1] Of Integer; x, y, i: Integer; b: boolean; Begin Randomize; For y := 1 To DIMENS Do Begin A[y, DIMENS + 1] := -1; For x := 1 To DIMENS Do Begin A[y, x] := Random(10); If Random(10) = 1 Then A[y, x] := A[y, x] * (-1); End; End; For y := 1 To DIMENS Do Begin A[y, DIMENS + 1] := 1; For x := 1 To DIMENS Do If A[y, x] < 0 Then A[y, DIMENS + 1] := -1; End; For y := 1 To DIMENS Do Begin If A[y, DIMENS + 1] >= 0 Then A[y, DIMENS + 1] := A[y, 1] Else A[y, DIMENS + 1] := 0; For x := 1 To DIMENS Do Begin Write(A[y, x]: 6); If x > 1 Then A[y, DIMENS + 1] := A[y, DIMENS + 1] * A[y, x]; End; If A[y, DIMENS + 1] >= 0 Then Write(A[y, DIMENS + 1]: 10); Writeln; End; readln; End.

Ответ отправил: Andrey Popkov (статус: 2-й класс) Ответ отправлен: 14.04.2009, 00:15 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 247427 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Отвечает: Тимошенко Дмитрий Здравствуйте, Ложкин Иван Дмитриевич! Программа в приложении. Думаю получилось проще и понятней. С уважением, Дмитрий Приложение: program Matrix; uses crt; var m: array [1..8,1..8] of integer; i,j: byte; k: LongInt; begin ClrScr; {Заполним матрицу числами от -5 до 15} {и выведем ее на экран} randomize; for i:=1 to 8 do begin for j:=1 to 8 do begin m[i,j]:=random(20)-5; write(m[i,j]:3,' '); end; writeln; end; writeln; {Найдем произведения} for i:=1 to 8 do begin k:=1; for j:=1 to 8 do begin {Если нашли отрицательное число - прерываем подсчет} {и пропускаем эту сроку} if m[i,j]<0 then begin k:=-1; break; end; {Иначе считаем произведение} k:=k*m[i,j]; end; {Если произведение найдено - сообщим об этом} if k>=0 then writeln('Произведение в строке ',i,' = ',k:10); end; end.

Ответ отправил: Тимошенко Дмитрий (статус: 3-й класс) Ответ отправлен: 14.04.2009, 22:26 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 247519 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 164.805

Добрый день эксперты..РЕшите пожалуйста программу на паскале Декриптовать шифр Цезаря без ключа. Собственно задача звучит так: Некоторый русский текст, хранящийся в файле, зашифрован следующим образом: каждая буква текста циклически сдвигается на одно и тоже количество символов, а все остальные символы (знаки препинания и пробелы) остаются неизменными. При шифровке большие буквы переходят в большие, а маленькие в маленькие. Будем для простоты считать, что русский алфавит состоит из 32 букв (за буквой «е» следует буква «ж»). Требуется написать программу автоматической расшифровки текста. Вход: файл input.txt c зашифрованным текстом. Ограничения: длина текста не превосходит 250 символов. Выход: Файл output.txt с расшифрованным текстом.

Отправлен: 13.04.2009, 11:40 Вопрос задал: Мальцев Сергей Юрьевич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Тимошенко Дмитрий Здравствуйте, Мальцев Сергей Юрьевич! Написал программу, которая использует метод "частотного анализа". Она вообщем работает, но для анализа текста в 250 символов маловато, поэтому часто ошибается в определении ключа. С уважением, Дмитрий Приложение: program Cezar; const ls:string[32]='абвгдежзийклмнопрстуфхцчшщъыьэюя'; us:string[32]='АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ'; var f: file; buf: array [1..250] of char; len: word; chast: array [1..32] of byte; i: byte; j: integer; begin { Считываем первые 250 или меньше символов файла в строку } assign(f,'input.txt'); reset(f,1); blockread(f,buf[1],250,len); close(f); { Построим таблицу частот } for i:=1 to len do begin if pos(buf[i],ls)<>0 then chast[pos(buf[i],ls)]:=chast[pos(buf[i],ls)]+1; if pos(buf[i],us)<>0 then chast[pos(buf[i],us)]:=chast[pos(buf[i],us)]+1; end; { Выберем самый частый символ для русского языка это д.б. буква 'о' и определим сдвиг } j:=1; for i:=2 to 32 do if chast[i]>chast[j] then j:=i; j:=j-15; { 15 - позиция буквы 'о' в алфавите } writeln('Ключ: ',j); { Расшифруем текст } for i:=1 to len do begin if pos(buf[i],ls)<>0 then buf[i]:=ls[(pos(buf[i],ls)+j) mod 32]; if pos(buf[i],us)<>0 then buf[i]:=us[(pos(buf[i],us)+j) mod 32]; end; { Запишем в файл } assign(f,'output.txt'); rewrite(f,1); blockwrite(f,buf[1],len); close(f); end.

Ответ отправил: Тимошенко Дмитрий (статус: 3-й класс) Ответ отправлен: 16.04.2009, 08:25 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 247613 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

© 2001-2009, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале ∙ Версия системы: 5.13 от 01.12.2008
RusFAQ.ru | MosHoster.ru | MosDesigner.ru RusIRC.ru | Kalashnikoff.ru | RadioLeader.ru