Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Арифметическое переполнение https://www.cyberforum.ru/ pascal/ thread1305587.html
Ребят, пишет " Арифметическое переполнение ", в чем ошибка?program lab04; //------------------------------ uses crt; procedure lab4; var y:array of integer; i,n,k1,k2:byte; t:integer; begin...
Найти сумму ряда, начиная отсчет с нулевого члена (while) Pascal
Найти сумму ряда, начиная отсчет с нулевого члена (*нужно сделать через while*) Вроде получалось, но потом ... гулухо Был бы очень рад, если кто-то подправит код Program ex5; uses crt;...
Pascal Циклический сдвиг массива https://www.cyberforum.ru/ pascal/ thread1305553.html
дан массив размера n и некоторое число k<n осуществить циклический сдвиг на k элементов вправо и влево . паскаль
Pascal Написать алгоритм (задача про обработку двумерных массивов) Прошу составить алгоритм для задачи ниже. Спасибо. Сама задача: Дана матрица, состоящая из n строк и n столбцов. Составить алгоритм и программу для получения и вывода указанных в условии... https://www.cyberforum.ru/ pascal/ thread1305552.html
Метод LU-разложения Pascal
помогите пожалуйста... прошу, только не кидайте ссылки, уже везде был, ничего не нашел, просто прошу напишите пожалуйста код... Решить систему линейных алгебраических уравнений методом...
Pascal Четырехзначный палиндром Требуется написать программу, определяющую, является ли четырехзначное натуральное число N палиндромом, т.е. числом, которое одинаково читается слева направо и справа налево. Входной файл INPUT.TXT... https://www.cyberforum.ru/ pascal/ thread1305508.html
Pascal Найти координаты точки пересечения Добрый день форумчане , нужен совет) Никак не могу понять смысл 6 задания, пожалуйста, подскажите и поставьте меня на верный путь ) 6. Даны две прямые: y = k1∙x + b1, y = k2∙x + b2 .... https://www.cyberforum.ru/ pascal/ thread1305468.html Удалить число, встречающиеся в обоих файлах Pascal
Не знаю как продолжить. Премного признателен за внимание:victory: var mas1,mas,mas2:array of longint; i,k1,k2,x,y:longint; t,t1:text; begin assign(t,'file1.txt'); ...
Pascal Паскаль.Обработка массивов Народ!Нужна помощь... Нужно сделать программу с менюшкой. 1 пункт отвечает за создание массива с данными про студентов. 2 должен показать то что пользователь прописал в пункте 1... 3 должен... https://www.cyberforum.ru/ pascal/ thread1305406.html Pascal Составить алгоритм (задача про обработку одномерных массивов) https://www.cyberforum.ru/ pascal/ thread1305395.html
Прошу составить алгоритм для задачи ниже. Спасибо. Сама задача: При заданных абсциссах X1,X2, ...,Xn и ординатах Y1,Y2, ...,Yn n точек плоскости ХОY, подсчитать, сколько из них находится в...
Pascal Даны действительные числа a1...a6, b1..b6, c1..c6. в массивах a1...a6, b1..b6... заменить отрицательные нулями
Помогите решить данную задачу 2 способами Даны действительные числа a1...a6, b1..b6, c1..c6. в массивах a1...a6, b1..b6, c1..c6 заменить отрицательные числа нулями 1) с помощью...
Pascal Дан массив A, заполненный 10 произвольными латинскими буквами, упорядочить их любым методом https://www.cyberforum.ru/ pascal/ thread1305379.html
Дан массив A, заполненный 10 произвольными латинскими буквами, упорядочить их любым методом(пузырька или выбором или быстрая сортировка)
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
20.11.2014, 09:54 0

Не могу понять, почему программа работает неправильно( Знаю, что где-то ошибки, но не могу найти - Pascal - Ответ 6875780

20.11.2014, 09:54. Показов 1045. Ответов 1
Метки (Все метки)

Ответ

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
program Sortirovka;
 
uses crt;
 
function min_cif(n:integer):byte;
var m:integer;
    mn:byte;
begin
m:=abs(n);
mn:=9;
while m>0 do
 begin
  if m mod 10<mn then mn:=m mod 10;
  m:=m div 10;
 end;
min_cif:=mn
end;
 
function sum_cif(n:integer):byte;
var m:integer;
    sum:byte;
begin
m:=abs(n);
sum:=0;
while m>0 do
 begin
  sum:=sum+m mod 10;
  m:=m div 10;
 end;
sum_cif:=sum
end;
const nmax=1000;
 
procedure swap(var a,b:integer);
var c:integer;
begin
c:=a; a:=b; b:=c;
end;
var a:array[1..100] of integer;
    i,j,n,k:integer;
begin
clrscr;
randomize;
repeat
write('Введите размер последовательности от 2 до ',nmax,' n=');
readln (n);
until (n>1)and(n<=nmax);
writeln('Исходный массив');
for i:=1 to n do
 begin
  a[i]:=random(1000);
  write(a[i]:4);
 end;
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if(min_cif(a[i])>min_cif(a[j]))
or((min_cif(a[i])=min_cif(a[j]))and(sum_cif(a[i])>sum_cif(a[j])))
or((min_cif(a[i])=min_cif(a[j]))and(sum_cif(a[i])=sum_cif(a[j]))and(a[i]>a[j]))
then swap(a[i],a[j]);
writeln ('Отсортированный массив');
for j:=1 to n do
write (A[j]:4);
readln;
end.


Вернуться к обсуждению:
Не могу понять, почему программа работает неправильно( Знаю, что где-то ошибки, но не могу найти Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.11.2014, 09:54
Готовые ответы и решения:

Не могу понять, почему программа неправильно работает!
Изучаю С++ по Страуструпу Б. - Программирование. Принципы и практика использования C++. Есть...

не могу понять почему не работет программа. Где ошибка?
#include &lt;iostream&gt; #include &lt;string&gt; #include &lt;ctime&gt; #include &lt;windows.h&gt; using namespace...

Не могу понять почему не работает и где тут ошибка
Доброго всем времени суток! Нужна ваша помощь скачал с инета форму которая определяет сколько...

не могу понять почему не работает программа
#include &lt;iostream&gt; #include &lt;conio.h&gt; #include &lt;clocale&gt; #include &lt;cmath&gt; using namespace std;...

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

Не могу понять почему не работает программа
int f,x,a,b,c; cin&gt;&gt;x; if (x&gt;0) {f=pow(-x,4); cout&lt;&lt;f;} else {f=x+92; cout&lt;&lt;f;} if...

Не могу понять почему не работает. Создаю игру Пятнашки. И ничего у меня не работает. И ошибки при запуске выдает
Не могу понять почему не работает. Создаю игру Пятнашки. И ничего у меня не работает. И ошибки при...

Не могу понять почему программа работает не правильно!
Задание: Программа находит в строке 1 символ который не входит во 2 заданную строку. Помогите...

Не работает простенькая программа. Не могу понять почему
Код программы: public class Calculate { public static void main(String args) { int...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru