Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Матрица: Среди столбцов целочисленной матрицы найти столбец с минимальным произведением элементов https://www.cyberforum.ru/ pascalabc/ thread772449.html
Среди столбцов целочисленной матрицы А(n,m) найти столбец с минимальным произведением элементов.Заранее спасибо:curtsy:
Pascal ABC Дана последовательность цифр, представляющая собой записанные подряд ноль и 20 первых натуральных чисел
Дана последовательность цифр, представляющая собой записанные подряд ноль и 20 первых натуральных чисел. Найти цифру c номером n в этой последовательности (1 ≤ n ≤ 32).
Дано натуральное число n (1 ≤ n ≤ 1188), определяющее возраст человека (в месяцах) Pascal ABC
Дано натуральное число n (1 ≤ n ≤ 1188), определяющее возраст человека (в месяцах). Выразить возраст в годах и месяцах, например, 21 год 10 месяцев, 52 года 1 месяц, 46 лет ровно и т. п.
Pascal ABC С начала 1990 года по некоторый день прошло n месяцев и 2 дня (n ≥ 1) С начала 1990 года по некоторый день прошло n месяцев и 2 дня (n ≥ 1). Определить название месяца (январь, февраль и т. п.) этого дня. https://www.cyberforum.ru/ pascalabc/ thread772404.html
Pascal ABC Составить программу, которая уменьшает первое введенное число в два раза https://www.cyberforum.ru/ pascalabc/ thread772400.html
Составить программу, которая уменьшает первое введенное число в два раза, если оно больше второго введенного числа по абсолютной величине.
Pascal ABC Дано натуральное число n (n < 9999). Выяснить, верно ли, что это число содержит ровно три одинаковые цифры
Дано натуральное число n (n < 9999). Выяснить, верно ли, что это число содержит ровно три одинаковые цифры, если оно записано четырьмя цифрами, как, например, числа 3363, 4844, 0300 и т. п.
Pascal ABC Поле шахматной доски определяется парой натуральных чисел
Поле шахматной доски определяется парой натуральных чисел, каждое из которых не превосходит восьми: первое число — номер вертикали (при счете слева направо), второе — номер горизонтали (при счете...
Pascal ABC Определить, верно ли, что при делении неотрицательного целого числа a Определить, верно ли, что при делении неотрицательного целого числа a на положительное число b получается остаток, равный одному из двух заданных чисел c или d. https://www.cyberforum.ru/ pascalabc/ thread772395.html
Pascal ABC Имеется стол прямоугольной формы размером a × b https://www.cyberforum.ru/ pascalabc/ thread772394.html
Имеется стол прямоугольной формы размером a × b (a и b - целые числа, a > b). В каком случае на столе можно разместить большее количество картонных прямоугольников с размерами c × d (c и d —...
Pascal ABC Найти среднее арифметическое по столбцам произвольной матрицы Найти среднее арифметическое по столбцам произвольной матрицы. Столбец с наибольшим средним записать отдельно. В исходной матрице заменить его нулями https://www.cyberforum.ru/ pascalabc/ thread772389.html
Модератор
62542 / 46715 / 32198
Регистрация: 18.05.2008
Сообщений: 113,062
28.01.2013, 12:22 0

Переделайте программу из Turbo Pascal в PascalABC

28.01.2013, 12:22. Просмотров 1990. Ответов 11
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Я доделал модуль до конца для Паскаля АВС.
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
unit TBL;
interface {глобальные описание}
uses graphABC,crt;
type PString = ^Tstring;
     PInString = ^TInString;
     Tstring = record
               st: string;
               col: PInString;
               next: PString;
               end;
     TInString = record
                 number: word;
                 next: PInString;
                 end;
 
//var head:PString;
 
procedure Table (sl:string;nom:word;s:string);
 
implementation {локальные описания}
 
procedure Table (sl:string;nom:word;s:string);
begin
hidecursor;
if nom=1 then {Если выводится 1я строка таблицы, то создается «шапка» }
 begin
  line (320,1,320,25);
  line (1,1,639,1);
  line (1,25,639,25);
  textout (5,3,'слово');
  textout (325,3,'строки');
 end;
inc(nom); {счётчик номеров строк в таблице. Используется при выводе и построение «шапки» }
line (320,nom*25,3,nom*25);
line (5,nom*25,634,nom*25);
line (5,(nom+1)*25,5,nom*25);
line (634,(nom+1)*25,634,nom*25);
line (5,nom*25+25,634,nom*25+25);
textout (9,nom*25+4,sl); {вывод слова}
textout (325,nom*25+4,s); {вывод номеров строк}
end;
end.
Но все равно программа не работает нормально.
Она и в первом варианте в Турбо Паскале неверно работает даже после исправления всех синтаксических ошибок, также создает 1 строку в графике при выборе прохода по строкам.
Поэтому программу нужно переделывать. Я пас, поскольку в динамике плохо соображаю.

Добавлено через 1 минуту
Кстати в АВС называйте файл без символов 1,2,q

Вернуться к обсуждению:
Переделайте программу из Turbo Pascal в PascalABC
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.01.2013, 12:22

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Переделать код программы из Turbo Pascal в PascalABC
Ребят может кто-нибудь помочь пожалуйста из PascalABC.NET в PascalABC переделать код программы и...

График температур. Подправить код из turbo (не знаю где писать в PascalABC или PascalABC.net)
На Pascal ABC не запускается(( uses crt,graph; const n=31; {массив - константа, можно...

Turbo Pascal, Pascal ABC, Free Pascal, PascalABC.NET - в чем разница?
Всем привет, решил изучать Паскаль, но на форуме увидел 4 его версии - Turbo Pascal, Pascal ABC,...

Указатели в Turbo Pascal и PascalABC
Вопрос: почему в Turbo Pascal тактая конструкция const TAB = ^I; begin end. работает, а...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.