Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Вычеркнуть из строки A символы, встречающиеся в строке B, оставшиеся добавить в строку B. Даны две строки. Вычеркнуть из строки A символы, встречающиеся в троке B, оставшиеся добавить в строку B. https://www.cyberforum.ru/ pascal/ thread766290.html Pascal Табулирование функции
я в паскале очень слаб..но мне нужно сдать экзамен послезавтра..сделайте пожалуйста,люди добрые.. вот это дал на консультации преподаватель(даже не могу понять что тут нужно сделать):
Pascal Информационная система с параметрами https://www.cyberforum.ru/ pascal/ thread765955.html
я просто не успею это сделать так как программа не маленькая. и сидеть с ней мне денька 2-3 как минимум сидеть придется. может у кого есть сделанная уже?.. помогите Запрограммировать...
Pascal Процедуры. Вставка в список Задача такая. создания динамического линейного списка, выбирая числа из текстового файла; вывода динамического линейного списка; обработка динамического списка по алгоритму 1)в непустой список... https://www.cyberforum.ru/ pascal/ thread765952.html
Pascal Из заданного множества точек на плоскости выбрать две различные точки так, чтобы количества точек различались наименьшим образом
Из заданного множества точек на плоскости выбрать две различные точки так, чтобы количества точек, лежащих по разные стороны прямой, проходящей через эти точка, различались наименьшим образом. (без...
Pascal Из всех трехзначных чисел вывести на экран только те, у которых сумма цифр кратна трем и семи одновременно https://www.cyberforum.ru/ pascal/ thread765875.html
Помогите решить задачу! Из всех трехзначных чисел вывести на экран только те, у которых сумма цифр кратна трем и семи одновременно.
Pascal Определить какая буква третья или предпоследняя встречается в третьем слове предложения чаще Определить какая буква третья или предпоследняя встречается в третьем слове предложения чаще. Вся надежда на Вас!!! Огромное спасибо тому кто поможет!!! https://www.cyberforum.ru/ pascal/ thread765802.html Pascal Поменять местами средние строки двумерного массива с первой и последней
Дан двумерный массив размером m*n , заполненный целыми числами с клавиатуры. Поменять местами средние строки с первой и последней.Не могу написать программу! Выручайте!!!
Pascal Найти все четырехзначные числа, у которых равны крайние цифры https://www.cyberforum.ru/ pascal/ thread765797.html
Очень нужна программа! Найти все четырехзначные числа, у которых равны крайние цифры, а само число делится на 4 и 27.
Pascal Бинарное дерево Привет, соседи! Столкнулся со следующей задачей: Написать программу, которая создает бинарное дерево, состоящее из целых чисел, вводимых с клавиатуры, печатает все числа бинарного дерева, удаляет... https://www.cyberforum.ru/ pascal/ thread765748.html
Pascal Процедурный оператор pascal
Можете пожалуйста дать определение процедурному оператору. И желательно пустому оператору.
Pascal Блок-схема перебора елементов массива Здравствуйте, товарищи программисты! Нужна ваша помощь! Мне нужно создать блок-схему алгоритма, который после введения 4 чисел с клавиатуры, заменяет максимальный елемент массива сумой всех... https://www.cyberforum.ru/ pascal/ thread765614.html
13077 / 5862 / 1706
Регистрация: 19.09.2009
Сообщений: 8,807
20.01.2013, 16:32 0

Неправильно работает программа со списками - Pascal - Ответ 4029859

20.01.2013, 16:32. Показов 566. Ответов 4
Метки (Все метки)

Ответ

Здесь надо процедуру vivod() подправить:
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
procedure vivod(const disks:cdpoint);
  var
      i:integer;
      d : cdpoint;
  begin
  clrscr;
      textcolor(3);
    gotoxy(1,1);
    write('ь');
 
    gotoxy(3,1);
    write('Band');
 
    gotoxy(20,1);
    write('Album');
 
    gotoxy(37,1);
    write('Year');
 
    gotoxy(42,1);
    write('Genre');
 
    gotoxy(55,1);
    write('CD Type');
 
    gotoxy(65,1);
    write('Number');
 
    gotoxy(76,1);
    writeln('Cost');
writeln('--------------------------------------------------------------------------------');
    d := disks;
    if d=nil then
      writeln('No records')
    else      
      i:=1;
      while d<>nil do
          begin
        gotoxy(1,i+2);
        write(i);
 
        gotoxy(3,i+2);
        write(d^.band);
 
        gotoxy(20,i+2);
        write(d^.album);
 
        gotoxy(37,i+2);
        write(d^.year);
 
        gotoxy(42,i+2);
        write(d^.genre);
 
        gotoxy(55,i+2);
        write(d^.cdtype);
 
        gotoxy(65,i+2);
        write(d^.number);
 
        gotoxy(76,i+2);
        writeln(d^.cost);
 
        inc(i);
        d:=d^.next;
          end;
        textcolor(15);
      readkey;
    end;
{end procedure vivod}


Вернуться к обсуждению:
Неправильно работает программа со списками Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.01.2013, 16:32
Готовые ответы и решения:

Программа неправильно работает
Здравствуйте!!!Помогите кто может.Перебрала разные варианты...и все равно не выходит. Написала...

множества. Программа работает неправильно
uses crt; type mn=set of char; var a,b,c:mn; x,y,z:char; procedure enter(var a,b,c:mn); ...

Прогрессия. Программа работает неправильно
Если ввести 1,2,3,7,9,4,6,8,5 Программа выведет 1,2,3,4,5,6,7,8,9, а должна был вывести отдельно...

Программа по строкам неправильно работает
Программу написал, но есть проблема:вместе с нужными символами выводится &quot;:&quot;. Подскажите, как можно...

4
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.01.2013, 16:32

Несложная программа неправильно работает в turbo
я начинающий..прога простая, не очень красивая..но всё же...вот код: uses crt; var a, b:...

Неправильно работает программа шифрования-дешифрования
Program P_026_CRYPT; Var inF , outF :text; s :string; k :integer; const key = 2; ...

Программа работает, но неправильно
Определить новые версии классов ResearchTeam и ResearchTeamCollection&lt;TKey&gt;. Новая версия класса...

Неправильно работает программа
Не выводит все введенные данные. Выводит только либо первые, либо вторые. Весь код: #include...

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