Форум программистов, компьютерный форум, киберфорум
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 произвольными латинскими буквами, упорядочить их любым методом(пузырька или выбором или быстрая сортировка)
0 / 0 / 0
Регистрация: 20.11.2014
Сообщений: 18
0

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

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

{Ввести последовательность натуральных чисел Aj
j=1...n (n<=1000). Упорядочить последовательность
по неубыванию наименььшей цифры числа,
числа с одинаковыми наименььшими цифрами дополнительно
упорядочить по неубыванию суммы цифр числа, числа с одинаковыми
наименььшими цифрами и одинаковыми суммами цифр дополнительно
упорядочить по неубыванию самого числа.}

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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
program Sortirovka;
uses crt;
const nmax=1000;
var A:array[1..100] of integer;
    i,j,n,nn,m,k,r,l:integer;
    s,s2:string;
    pr1,pr2,c,cod:integer;
    b:boolean;
procedure Perestanovka(var a,b:integer);
var c:integer;
begin
c:=a; a:=b; b:=c;
end;
begin
write('N= '); 
readln (n);
writeln ('Vvedite elementy massiva A: ');
for j:=1 to n do 
   read (A[j]); 
    nn:=n;
    repeat
    b:=false;
    for j:=1 to nn-1 do
        begin
        l:=j mod 10;
        if j>10 then begin 
           l:=j mod 10;
        if m > max then 
           max:=c;  
           j:=j div 10;
        end;   
           str(A[j],s);
           str(A[j+1],s2);
        end;
    dec(nn);
    until not b;
writeln;writeln;
writeln ('po neubivaniu naimenshei tsifri');
for j:=1 to n do 
   write (A[j],' ');
   nn:=n;
   repeat
   b:=false;
    for j:=1 to nn-1 do
        begin
          str(A[j],s);
          str(A[j+1],s2);
          if s[1]<>s2[1] then
          pr1:=1;pr2:=1;
          for i:=1 to length(s) do  
            begin val(s[i],c,cod); 
               pr1:=pr1+c; 
            end;
            for i:=1 to length(s2) do 
              begin  
                 val(s2[i],c,cod);
                 pr2:=pr2+c; 
              end;
            if pr1<pr2 then 
              begin        
                k:=A[j];
                A[j]:=A[j+1];
                A[j+1]:=k;
                b:=true; 
              end;
        end;
    dec(nn);
    until not b;
writeln;writeln;    
writeln ('po neubivaniu summi tsifr');
for j:=1 to n do write (A[j]:4,' ');
    nn:=n;
    repeat
    b:=false;
    for j:=1 to nn-1 do
        begin
          str(A[j],s);
          str(A[j+1],s2);
          pr1:=1;pr2:=1;
          for i:=1 to length(s) do  
             begin 
               val(s[i],c,cod);
               pr1:=pr1+c; 
             end;
             for i:=1 to length(s2) do 
                 begin 
                   val(s2[i],c,cod);
                   pr2:=pr2+c; 
                 end;
                 if (s[1]<>s2[1]) and (pr1<>pr2) then        
                 if A[j]>A[j+1] then  
                      begin
                        r:=A[j];
                        A[j]:=A[j+1];
                        A[j+1]:=r;
                        b:=true; 
                      end;
        end;
    dec(nn);
    until not b;
writeln;writeln;   
writeln ('Massiv A po neubivaniyu samogo chisla: ');
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, 08:19
Готовые ответы и решения:

Не могу понять, почему программа неправильно работает!
Изучаю С++ по Страуструпу Б. - Программирование. Принципы и практика использования 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, 08:19
Помогаю со студенческими работами здесь

Не могу понять почему не работает программа
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