Вопросы с меткой [turbopascal]

0 голосов

1 ответ

36 показов

Свойственно имею программу по мз (код под примерами запуска, т.к. он большой), первым делом инициализирую мз, потом просматриваю все записи (рис 1) на данный момент все хорошо, потом использую либо ...

-2 голоса

1 ответ

71 показ

Примечание реализация без дополнительных строк Вот мой код: function mycopy(s: string; start: byte; len: byte): string; var i: byte; begin s:=''; i:=1; while (start<=length(s)) do begin ...

0 голосов

1 ответ

174 показа

ВАЖНО!!! Без использования массива строк, без доп. строки и без использования стандартных функций и процедур обработки строк (и также динамическое выделение памяти бесполезно), также пример функции ...

0 голосов

0 ответов

55 показов

Как указать в online compiler pascal и или включить юнит Graph? А также где взять в интернете юнит sysutils? Какой online compiler pascal поддерживает Graph?

-1 голос

1 ответ

353 показа

Делаю проект-справочник OBD2 кодов, необходимо в txt файлах найти строку по номеру кода типа "Pyxxx" где "P" это буквы P,B,C,U; "y" это это число от 0 до 3 включительно; ...

0 голосов

0 ответов

131 показ

Имеется задача: ввёдённый пользователем массив разделить на три других, в которых числа сгруппированы согласно их остатку от деления на 3, а потом эти три массива соединить в один. if M[i] mod 3 = 0 ...

-1 голос

2 ответа

80 показов

Может кто-то подсказать фрагмент кода с перестановкой элементов массива или хотя бы объяснить по какой логике переставляются элементы массива. Дан массив z1,z2,...,z3n. Построить новый массив с ...

0 голосов

1 ответ

29 показов

Задача: Дана одномерная масса n. Сделать программу, которая будет печатать простые числа и самые маленькие из них Пожалуйста найдите ошибку var x:array[1..100]of integer; n,i,j,k,min:integer; ...

-1 голос

1 ответ

90 показов

не могу правильно написать программу, а точнее поделить 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 ответов

45 показов

Задача - Дана программа - имитатор пульта некой системы. Там есть окна ввода информации и окна выдачи информации. Программа работает под MsDos. Программа состоит из двух рабочих окон (так как в ...

-2 голоса

1 ответ

69 показов

Не могу придумать алгоритм, который будет из слова выводить части этого слова начинающиеся с произвольного введенного символа. Например: слово "Evanescent", при введенной "E" должен вывести: ...

2 голоса

1 ответ

358 показов

Поставлена задача:нарисовать окружность методом Брезенхема. Саму окружность нарисовать удалось,но не получается в этот метод как-то добавить утолщение. Как это можно сделать? Вот что должно ...

0 голосов

2 ответа

2k показов

Задача: найти минимальное число в массиве, присвоить его значение к первому элементу массива; а вместо минимального числа записать 10. Как найти минимальное и присвоить его первому элементу я ...

0 голосов

1 ответ

90 показов

Подсчитать количество чисел, больших заданного L и стоящих на местах, кратных 3; вычислить произведение чисел, принадлежащих промежутку [C,D). вот сам код: program lalala; var h:array[1..100] of ...

0 голосов

1 ответ

669 показов

Вычислить произведение чисел, больших заданного D и стоящих на местах, кратных 3; Подсчитать кол-во чисел, не равных заданному X. Всё бы понятно, вот код: program dv5; var c:array[1..100] of real;...