Абсолютное значение каждого нового числа перед помещением в массив надо сравнить с абсолютными значениями всех чисел, которые уже были добавлены в массив.
Линейные алгоритмы
8 сентября 2021 0 7.6к. admin
Месячные выплаты находятся по формуле:m = (n * p * (1 + p)y) / (12 * ((1 + p)y – 1)), где p выражается в долях единицы, а не процентах.
Одномерные массивы
8 сентября 2021 0 5.7к. admin
Если очередной элемент массива отрицателен, то все элементы следующие за ним надо передвинуть на одну ячейку вперед. В результате отрицательный элемент
Одномерные массивы
8 сентября 2021 0 4.6к. admin
Задачу можно разбить на три подзадачи: Удаление элементов массива, принадлежащих заданному интервалу. Сдвиг оставшихся элементов. Заполнение «
Одномерные массивы
8 сентября 2021 0 9.5к. admin
Отсортировать массив, заполненный случайными числами, по возрастанию. Для сортировки использовать метод «пузырька». Вывести на экран массив в
Одномерные массивы
8 сентября 2021 0 1.5к. admin
Сложные высказывания | Информатика Паскаль #5 | Инфоурок
Используя сортировку выбором отсортировать элементы массива по возрастанию. Сортировка выбором заключается в поиске в каждом проходе по массиву максимального
Одномерные массивы
8 сентября 2021 0 21.7к. admin
Сдвинуть элементы массива в указанном направлении (влево или вправо) и на указанное число шагов. Освободившиеся ячейки заполнить нулями.
8 сентября 2021 0 10.2к. admin
Изменить последовательность столбцов матрицы так, чтобы элементы их первой строки были отсортированы по возрастанию. Например, дана матрица В результате
Сложные задачи
8 сентября 2021 0 6.8к. admin
Пользователь вводит данные о количестве студентов, их фамилии, имена и балл для каждого. Программа должна определить средний балл и вывести фамилии и имена
Сложные задачи
8 сентября 2021 0 1.6к. admin
Вводится строка, содержащая буквы, целые неотрицательные числа и иные символы. Требуется все числа, которые встречаются в строке, поместить в отдельный
Источник: gospodaretsva.com
Программы в паскале (довольно сложные, н оинтересные)) — Pascal
. Пытаюсь написать программы. Никак не получается. Знакомые тоже не могут написать. Поэтому решил просить помощи у вас. Это уже стал вопрос жизни без преувеличений) Всего две программы, но, как я сказал, нелегкие. 1) Дано предложение. В нем только два слова одинаковые. найти эти слова.
2) Изобразить на экране шахматную доску. Из файла прочитать координаты коня и указать на рисунке, какое поля он бьет. Если кто-то сможет решить — буду очень благодарен (ну иначе просто никак). И просто пожелание, если кто сделает — как бы комментарии были бы не лишними) спасибо огромное!
Код к задаче: «Программы в паскале (довольно сложные, н оинтересные))»
Листинг программы
uses crt,graph; procedure Kletka(x1,y1,c:integer;d:integer);//рисование клеток begin Setcolor(c);//2 цвета, темный и светлый Setfillstyle(1,c); Bar(x1,y1,x1+d,y1+d);//закрашенные квадраты end; procedure Kon(v,g,x1,y1,r:integer);//поле с конем begin setcolor(2); setlinestyle(0,0,3); Circle(x1+r*(2*v-1),y1+r*(2*g-1),r-3); settextstyle(0,0,3); OuttextXY(x1+r*(2*v-1)-10,y1+r*(2*g-1)-10,’K’); end; procedure Pole(j,i,x1,y1,r:integer);//поля, которые бъются begin settextstyle(0,0,3); setcolor(1);//рисуем крестик синего цвета line(x1+r*(2*j-1)-10,y1+r*(2*i-1)-10,x1+r*(2*j-1)+10,y1+r*(2*i-1)+10); line(x1+r*(2*j-1)-10,y1+r*(2*i-1)+10,x1+r*(2*j-1)+10,y1+r*(2*i-1)-10); end; var gd,gm,x1,y1,x2,y2,d1,i,j,r:integer; g,v:byte; f:text; begin assign(f,’kon.txt’); reset(f); read(f,v,g);//читаем из файла 2 числа — 1-номер вертикали от 1 до 8 слева направо //2- номер горизонтали от 1 до 8 снизу вверх, наапример поле d5= 4 5 g:=8-g+1;//переворачиваем горизонтали initgraph(gd,gm,»); d1:=round((getmaxY-60)/8);//размер клеток r:=d1 div 2;//радиус Setcolor(4);//обрамление доски Rectangle(1,1,8*d1+50,8*d1+60); Setfillstyle(1,4); Bar(1,1,8*d1+50,8*d1+60); x1:=30;y1:=20;//начало координат for i:=1 to 8 do begin for j:=1 to 8 do if odd(i+j) then Kletka(x1+d1*(i-1),y1+d1*(j-1),15,d1)//если нечетная сумма индексов — светлая клетка else Kletka(x1+d1*(i-1),y1+d1*(j-1),6,d1);//четная — темная end; Setcolor(0); for i:=0 to 7 do outtextxy(30+d1*i+d1 div 2,450,chr(ord(i+97)));//подписи вертикалей for i:=7 downto 0 do outtextxy(20,440-d1*i-d1 div 2,chr(ord(i+49)));//подписи горизонталей Kon(v,g,x1,y1,r);//клетка с конем for i:=1 to 8 do for j:=1 to 8 do if ((abs(i-g)=1)and(abs(j-v)=2))or((abs(i-g)=2)and(abs(j-v)=1))then Pole(j,i,x1,y1,r);//клетки которые бъются readln; end.
Источник: studassistent.ru
3D движок на Паскале
Сложные программы на паскале
он тогда и 0 выведет а их вроде как и не должно быть
program maladoy; uses crt; type mass=array[1..100] of integer; var a,b,c:mass; xa,na,xb,nb,xc,nc:integer; procedure remove(var m:mass;var n:integer;var x:integer); var i,k:integer; mv:mass; begin k:=1; for i:=1 to n do begin writeln(‘vvedite ‘,i,’element massiva’); readln (m[i]); if m[i]<>x then begin mv[k]:=m[i]; k:=k+1; end; end; writeln (‘razmer massiva= ‘,k); writeln(‘——————‘); for i:=1 to k do writeln(k,’-tiy element= ‘,mv[i]); writeln(‘——————‘); writeln(‘4iclo elementov = ‘,x,’:’,n-k); writeln(‘——————‘); end; begin clrscr; writeln (‘vvedite Хa,Na’); readln(Xa,Na); remove (a,Na,Xa); writeln (‘vvedite Хb,Nb’); readln(Xb,Nb); remove (b,Nb,Xb); writeln (‘vvedite Хc,Nc’); readln(Xc,Nc); remove (c,Nc,Xc); readln; end.
вступлю в команду разработчиков ПО на Delphi
Последний раз редактировалось maladoy; 11.02.2009 в 21:23 .
Источник: www.programmersforum.ru