Автор Тема: Помогите создать снеговика с анимацией в PascalABC и в Microsoft Visual Basic6.0  (Прочитано 7508 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн ЮЛИКА

  • Новичок
  • *
  • Сообщений: 6
    • Просмотр профиля
Помогите создать снеговика с анимацией в Pascal ABC и в Microsoft Visual Basic 6.0 пожалуйста, буду очень благодарна!!! Если можно сегодня в течении дня.


Оффлайн ЮЛИКА

  • Новичок
  • *
  • Сообщений: 6
    • Просмотр профиля
Я не проффесионал поэтому и прошу помощи.. У меня защита в четверг горю...Плиииз.

Оффлайн tig81

  • Глобальный модератор
  • *****
  • Сообщений: 15181
    • Просмотр профиля
Решить за вас и помочь вам - это разные вещи. А про недостаток времени кричать не стоит, вы сами до аврала дотянули.

Оффлайн ЮЛИКА

  • Новичок
  • *
  • Сообщений: 6
    • Просмотр профиля
Re: Помогите, Задание в PascalABC
« Ответ #4 : 03 Мая 2012, 15:26:10 »
Не пойму почему не запускается , чего не хватает. Задание Показать, что для всех n=1,2,3,N
(1^5+2^5+...+n^5)+(1^7+2^7+...+n^7)=2(1+2+...+n)^4
решение: 
Var
 sum,sum2:real;
 i,n,k:integer;
begin
readln(n);
for i:=1 to n do
begin
 sum:=sum+(exp(ln(i)*5)+exp(ln(i)*7));
 sum2:=sum2+i;
 if round(sum)=round(2*exp(ln(sum2)*4)) then inc(k);
end;
if k=n then writeln('Верно')
else writeln('Не верно');
readln;
end.

Оффлайн ki

  • Ветеран
  • *****
  • Сообщений: 668
    • Просмотр профиля

Оффлайн ЮЛИКА

  • Новичок
  • *
  • Сообщений: 6
    • Просмотр профиля
Программу сделала, а анимацию не получается.. Помогите
USES Graph;
VAR  Device, Mode: Integer;
BEGIN
    Device:=0;
    InitGraph(Device, Mode, 'c:\tp\bgi');
    Rectangle(300,30,360,80);       {шапка}
    SetFillStyle(1, yellow);                {заливка}
    FloodFill(330,50, white);           {шапки}
  Circle(330,120,40);                   {голова}
    Circle(345,110,5);                  {глаз}
    Circle(315,110,5);                  {глаз}
    SetColor(red);
  Line(320,140,340,140);            {pот}
    SetColor(white);
  Line(330,120,330,130);            {нос}
    Line(330,120,305,130);          {нос}
    Line(330,130,305,130);          {нос}
    SetFillStyle(1, red);                   {заливка}
  FloodFill(328,125, white);            {носа}
  Circle(330,220,60);                   {сеpедина}
    Circle(330,360,80);                 {низ}
    Rectangle(350,163,455,183); {pука}
    Rectangle(203,163,308,183); {pука}
  SetLineStyle(0, 0, ThickWidth);
  SetColor(blue);
    Line(210,130,210,440);          {посох}
    WriteLn('Это снеговик');
    ReadLn;
    CloseGraph


Оффлайн ki

  • Ветеран
  • *****
  • Сообщений: 668
    • Просмотр профиля
первое подозрение...проверьте инициализацию графики, уберите readln и writeln, поставьте все тело графики в цикл until на проверку readkey. текст в графике, насколько помню выводится с помощью outtext..

 

Ввести матрицы А и В. Помогите получить элементы третьей матрицы C

Автор xxMalayaxx

Ответов: 13
Просмотров: 1712
Последний ответ 04 Февраля 2010, 21:16:39
от xxMalayaxx
Помогите решить задание на С++. Решить этот ДУ методом Рунге-Кутта

Автор artecovez

Ответов: 0
Просмотров: 2697
Последний ответ 24 Апреля 2010, 20:41:08
от artecovez
Помогите разобраться с задачей по "методу оптимальных решений"

Автор 16Q

Ответов: 0
Просмотров: 4048
Последний ответ 23 Апреля 2014, 20:58:36
от 16Q
Помогите составить блок-схему алгоритма определения суммы положительных чисел

Автор Katrina1987

Ответов: 2
Просмотров: 3767
Последний ответ 10 Марта 2011, 17:10:55
от lyamec
Помогите организовать файл в котором содержуться разные массивы

Автор sheo92

Ответов: 1
Просмотров: 1610
Последний ответ 09 Декабря 2009, 18:24:25
от InfStudent