Вопросы с меткой [turbopascal]
Руководство по использованию метки turbopascal отсутствует.
18
вопросов
-1
голос
1
ответ
67
показов
Lazarus Delphi Pasca Поиск строки в txt файле и вывод в Memo
Делаю проект-справочник OBD2 кодов, необходимо в txt файлах найти строку по номеру кода типа "Pyxxx" где "P" это буквы P,B,C,U; "y" это это число от 0 до 3 включительно; ...
0
голосов
0
ответов
29
показов
Ошибка: Индекс находился вне границ массива
Имеется задача: ввёдённый пользователем массив разделить на три других, в которых числа сгруппированы согласно их остатку от деления на 3, а потом эти три массива соединить в один.
if M[i] mod 3 = 0 ...
-1
голос
2
ответа
40
показов
Переставить элементы массива
Может кто-то подсказать фрагмент кода с перестановкой элементов массива или хотя бы объяснить по какой логике переставляются элементы массива.
Дан массив z1,z2,…,z3n. Построить новый массив с ...
0
голосов
1
ответ
17
показов
Дана одномерная масса n. Сделать программу, которая будет печатать простые числа и самые маленькие из них
Задача:
Дана одномерная масса n. Сделать программу, которая будет печатать простые числа и самые маленькие из них
Пожалуйста найдите ошибку
var x:array[1..100]of integer;
n,i,j,k,min:integer;
...
-1
голос
1
ответ
47
показов
Помогите , пожалуйста, с ассемблером в программе турбо паскаль
не могу правильно написать программу, а точнее поделить
var
s:word;
c:integer;
begin
writeln('найти сумму s=x^3/2+1 при x[0,40]');
asm
mov cx, 2
mov dx, 0
mov bx, 0
@1:
add dl, 1
mov al, dl
mul dl
...
0
голосов
0
ответов
24
показа
Ввод-вывод данных в TurboPascal
Задача -
Дана программа - имитатор пульта некой системы. Там есть окна ввода информации и окна выдачи информации. Программа работает под MsDos.
Программа состоит из двух рабочих окон (так как в ...
-2
голоса
1
ответ
34
показа
Распечатать все части слова, начинающиеся с заданного символа на языке Turbo Pascal
Не могу придумать алгоритм, который будет из слова выводить части этого слова начинающиеся с произвольного введенного символа.
Например: слово "Evanescent", при введенной "E" должен вывести:
...
2
голоса
1
ответ
257
показов
Нарисовать окружность с изменяющейся толщиной (Borland pascal)
Поставлена задача:нарисовать окружность методом Брезенхема.
Саму окружность нарисовать удалось,но не получается в этот метод как-то добавить утолщение.
Как это можно сделать?
Вот что должно ...
0
голосов
2
ответа
1k
показов
замена элементов одномерного массива Turbo Pascal
Задача:
найти минимальное число в массиве, присвоить его значение к первому элементу массива; а вместо минимального числа записать 10.
Как найти минимальное и присвоить его первому элементу я ...
0
голосов
1
ответ
46
показов
Проблема с умножением элементов массива в заданном промежутке
Подсчитать количество чисел, больших заданного L и стоящих на местах, кратных 3; вычислить произведение чисел, принадлежащих промежутку [C,D).
вот сам код:
program lalala;
var
h:array[1..100] of ...
0
голосов
1
ответ
299
показов
Алгоритм умножения элементов массива
Вычислить произведение чисел, больших заданного D и стоящих на местах, кратных 3; Подсчитать кол-во чисел, не равных заданному X.
Всё бы понятно, вот код:
program dv5;
var
c:array[1..100] of ...
-2
голоса
2
ответа
725
показов
Вычислить сумму квадратов чисел, принадлежащих промежутку (A,B), стоящих на местах, кратных 4; подсчитать кол-во нулей во всем массиве
Вычислить сумму квадратов чисел, принадлежащих промежутку (A,B), стоящих на местах, кратных 4; подсчитать кол-во нулей во всем массиве.
program 17;
var
c:array[1..20] of real;
s,kv4,kr,a,b:...
0
голосов
1
ответ
26
показов
Указание первоначального адреса элемента
Был дан массив из 3-х разрядных чисел,необходимо было найти суммы цифр каждого числа и выстроить их по убыванию с указанием их первоначальных адресов. например,в начале было число 526 ,стоял на 5ом ...
2
голоса
1
ответ
200
показов
Почему не происходит чтение из файла?
Почему происходит некорректное чтение из файла? 0_o
f.txt = 8 7 9 1 3 10 8 9 10
var a : integer; f : file of integer;
begin
AssignFile(f, 'f.txt'); // Так же пробовал и просто Assign
Reset(f);
...
0
голосов
1
ответ
165
показов
Вычислить 20 значений функций для изменяющегося аргумента
Для аргумента X , изменяющегося от –0.6 с шагом 0.05 вычислить 20 значений функций.
PROGRAM IPR;
Uses Crt;
Const
eps1 = 0.01;
eps2 = 0.01;
eps3 = 0.001;
a = -0.6;
b = 0.05;
N = 20;
...
-2
голоса
1
ответ
61
показ
Выполненине застывает после ввода слов
Задание:
Вывести все слова, отличающиеся от последнего слова, в которых первая буква последнего слова встречается еще раз.
В Turbo Pascal 7 выполненине застывает после ввода слов. Хоть и ...
0
голосов
2
ответа
52
показа
Передача всех элементов массива свойству
Можно ли передать свойству все элементы массива, чтобы затем указав индекс получить значение через свойство.
Описал ниже, что примерно хочу получить
obj1 = object
PRIVATE
menu: ...
1
голос
1
ответ
42
показа
Обращение к массиву record
Запись состоит из двух полей
Type
things = record
name: string[12];
price: longint;
end;
Записи хранятся в массиве, их несколько
arr: array[1..N] of things;
Можно ли сразу обратиться ко всей ...