Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal ABC Движение картинки горизонтально слева направо https://www.cyberforum.ru/ pascalabc/ thread436107.html
uses graphABC; var x, y, i: integer; begin x:=0; y:=0; for i:=1 to 10 do begin clearWindow (clSkyBlue); SetBrushColor (clBrown); SetPenColor (clBrown); 		Создать программу на Pascale ABC, чтобы она рисовала график функции y=a*x*x+b*x+c, числа a,b,c нужно вводить самому Pascal ABC
Помогите, пожалуйста! Создать программу на Pascale ABC, чтобы она рисовала график функции y=a*x*x+b*x+c, числа a,b,c нужно вводить самому
Pascal ABC Ввести с клавиатуры имя файла; если он существует, переименовать его Ввести с клавиатуры имя файла; если он существует, переименовать его (новое имя тоже вводится с клавиатуры) https://www.cyberforum.ru/ pascalabc/ thread436056.html Pascal ABC Нарисовать на экране равносторонний треугольник https://www.cyberforum.ru/ pascalabc/ thread436055.html
Нарисовать на экране равносторонний треугольник синего цвета, который движется по горизонтали и при достижении границы экрана переворачивается и начинает движение в обратном направлении. Программа завершается нажатием любой клавиши. Рисование фигуры оформить в виде процедуры.
Pascal ABC Сформировать два массива из двух матриц по правилу
Даны два двумерных массива, сформировать два других двумерных массива: один как сумма, а другой как разность соответствующих элементов исходных массивов, в этих массивах раскрасить бирюзовым цветом максимальные элементы. Ввод, вывод, получение новых массивов и окрашивание элементов организовать в виде процедур. Процедуры программиста расположить в отдельном модуле. 		Pascal ABC матрица https://www.cyberforum.ru/ pascalabc/ thread436035.html
Для заданной квадратной матрицы порядка N найти такие k, что k –ая строка матрицы совпадает с k –ым столбцом.
Pascal ABC одномерные массивы В одномерном массиве с количеством элементов 2N содержатся координаты N точек плоскости. Они располагаются в следующем порядке: х1,у1,х2,у2,х3,у3 и так далее. Определить минимальный радиус окружности с центром в начале координат, такой, что окружность содержит все точки. https://www.cyberforum.ru/ pascalabc/ thread436034.html Напечатать фразу «мы нашли k грибов в лесу» Pascal ABC
Для натурального числа k напечатать фразу «мы нашли k грибов в лесу», согласовав окончание слова «гриб» с числом k.
Pascal ABC Составить программу возведения натурального числа в третью степень 1.Дано натуральное число n. Найти сумму n2+(n+1)2+ ... + (2n)2 2.. Составить программу возведения натурального числа в третью степень, учитывая следующую закономерность: 1^3=1 2^3=3+5 3^3=7+9+11 4^3=13+15+17+19 5^3=21+23+25+27+29 https://www.cyberforum.ru/ pascalabc/ thread435910.html Pascal ABC Вывести повторяющейся элемент массива https://www.cyberforum.ru/ pascalabc/ thread435909.html
Надо что бы выводился один раз повторяющейся элемент. вот код что у меня получился: program mass; var a: array of integer; b,c:integer; label 1; begin Writeln('Введите элементы массива:'); for b:=1 to 9 do Read(A); for b:=1 to 8 do for c:=b+1 to 9 do
Pascal ABC Сумма диагоналей
Program dz; Const M=3; type At=array of integer; Var A:at; c:integer; Procedure vvod (var x:at); Var i,j:integer; 		Pascal ABC Обработка текста. Вывести все символы, расположенные между первой и второй точкой. https://www.cyberforum.ru/ pascalabc/ thread435902.html
71 / 71 / 72
Регистрация: 18.01.2012
Сообщений: 132
28.01.2012, 23:10 0

Анимация. Надо найти ошибку - Pascal ABC - Ответ 2436806

28.01.2012, 23:10. Показов 647. Ответов 1
Метки (Все метки)

Ответ

если задача в передвижение 8-угольника, чтобы он отскакивал от стен или потолка и возвращается, то
вот
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

Uses GraphABC;
Const
   sz=20;
   k=5;
   d=5;
Procedure Octagon(x,y:Integer);
   begin
     Line(x+sz,y, x+sz*2,y);
      Line(x+sz*2,y, x+sz*3,y+sz);
       Line(x+sz*3,y+sz, x+sz*3,y+sz*3);
        Line(x+sz*3,y+sz*3, x+sz*2,y+sz*4);
         Line(x+sz*2,y+sz*4, x+sz,y+sz*4);
          Line(x+sz,y+sz*4, x,y+sz*3);
           Line(x,y+sz*3, x,y+sz);
            Line(x,y+sz, x+sz,y);
    end;
 
Var
   ww,wh,kol,x,y,direct:Integer;
Begin
   ww:=WindowWidth;
   wh:=WindowHeight;
   CenterWindow;
    x:=0;
     y:=0;
      Direct:=1;
       kol:=0;
{     SetSmoothing(false);}
    Repeat
       SetPenColor(clRed);
        Octagon(x,y);
       Sleep(100);
       SetPenColor(clWhite);
        Octagon(x,y);
   If (x>=ww-3*sz-d)or(y>wh-4*sz-d) Then
    direct:=-1;
   If (x<=sz) Then
   begin
    direct:=1;
     kol:=kol+1;
   end;
   x:=x+direct*d;
   y:=y+direct*d;
    Until kol>k;
      SetPenColor(clRed);
       Octagon(x-d,y-d);
End.


Вернуться к обсуждению:
Анимация. Надо найти ошибку Pascal ABC
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 28.01.2012, 23:10
Готовые ответы и решения:

Надо найти ошибку
Отдельные буквы русского алфавита, слова, фразы. Свойства: шрифт, размер, стиль (полужирный,...

надо найти ошибку
program ZADACA2_1; uses crt; var H:text; P,Pn,Pk,hP:integer; V,Vn,Vk,hV:real;...

Надо найти ошибку.Файлы.
Собственно задание такое:В файл f записать элементы,потом из файла f в файл g.сначала записать...

Надо найти ошибку в программе
program test; var x,y,t,summa,add:real; n:integer; begin x:=0; n:=1; while x&lt;= 4 do begin if...

1
28.01.2012, 23:10
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 28.01.2012, 23:10
Помогаю со студенческими работами здесь

Массивы.Надо найти ошибку
program lab7; uses crt; var a:array of integer;i,j:integer;s:real; begin clrscr;randomize;...

Написал процедуру сокращения А и Б до взаимно простых, надо найти ошибку
В рамках проекта написал процедуру: procedure Shorten(var a: biginteger; var b: biginteger); var...

Не могу найти ошибку!! не могу не как разобраться! надо до завтра.
условие: Для 7 человек, среди которых есть мужчины и женщины, хранятся следующие данные: имя, пол...

Анимация движения (найти ошибку)
#include &lt;stdlib.h&gt; #include &lt;iostream.h&gt; #include &lt;graphics.h&gt; // подключение графической...

Надо найти ошибку
Вот задача Составить программу, удаляющую одну цифру из N-значного числа, такую, чтобы...

Надо найти ошибку
Всем привет! Вот задали задачку, решаю, а не выходит точно, можно сказать вообще не правильно...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru