Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Кроме элемента пересекающих K строкой и L столбцой остальные элементы находящихся в них заменить нулем Помогите пожалуйста.заранее огромнейшее спасибо!!! Кроме элемента пересекающих K строкой и L столбцой остальные элементы находящихся в них заменить нулем https://www.cyberforum.ru/ turbo-pascal/ thread189822.html	Turbo Pascal Процедура Writeintegerxy задали такое задание а я не знаю вобще что надо написать помогите пожалуйста написать програму в которой описать и использовать процедуру WritelntegerXY введения на экран целого числа.Через параметры в процедуру передать Col-колонку т Row -рядок в позициях которых должен начинатся вывод числа I, а также Leng-общая длина вывода числа!
Turbo Pascal данная непустая последовательность из русских букв - между соседними словами - запятая, а предложение заканчивается точкой! ....продолжения данная непустая последовательность из русских букв - между соседними словами - запятая, а предложение заканчивается точкой! напечатать в алфавитном порядке все глухие буквы, которые не входят только в одно слово !! друзья помогите пожалуйста ,очень прошу ) буду очень благодарен вам ) написал толька сюда ,далее не могу понять что от меня хотят Program mnozima; type rus= set of 'А'..'я' ;... https://www.cyberforum.ru/ turbo-pascal/ thread189810.html	Turbo Pascal Как сдалать процедури и фкункціи Люди помогите плиз задть процедури и функции правильно а тоя е понемаю мальох просто к примеру дана задача задать последовательно елемнти матрици .Я точно не знаю как это здеать по этому зделал так не запускал бо не знаю или правильно.Попрошу несмияться. Задача сама сосотои в том как я понял создать матрицу с последовательно выводящими йийо елеметы потом задать задачу ... https://www.cyberforum.ru/ turbo-pascal/ thread189798.html
Переставить элементы матрицы Turbo Pascal Помогите пожалуйста написать программу. Заранее спасибо. Условие: Составить программу для перестановки местами в линейной таблице(состоящих из целых чисел) меньшего и большего элементов.	Turbo Pascal Составить программу для перестановки местами в линейной таблице меньшего и большего элементов https://www.cyberforum.ru/ turbo-pascal/ thread189793.html Помогите пожалуйста написать программу. Заранее спасибо. Условие: Составить программу для перестановки местами в линейной таблице(состоящих из целых чисел) меньшего и большего элементов.
Turbo Pascal соеденить две програмы https://www.cyberforum.ru/ turbo-pascal/ thread189775.html const n=5; m=5; var a:arrayof integer; i,j,jmax,jmin:integer; begin randomize; for i:=1 to n do begin for j:=1 to m do begin	Turbo Pascal Програма с циклом "While" Program Lab_3_2; uses crt; var x,y,n,l,s:real; begin ClrScr; l:=0; s:=0; writeln('Enter number \|x\|<1:'); readln(x); writeln('Enter number of times, n = '); readln(n);
Turbo Pascal Вывести, сколько простых чисел среди элементов массива https://www.cyberforum.ru/ turbo-pascal/ thread189765.html Вводятся размер вектора и его элементы. Вывести, сколько простых чисел среди его элементов. вот что у меня получается: var a:array of integer; i,j,n,d,l:integer; begin writeln('vvedite razmer vectora'); readln(n); writeln('vvedite element');	Turbo Pascal mod ошибочный вывод вводим последовательность: например (2, 7, 11, 21, 42, 89, 180, 354) потом вводим число q = 881 потом число r = 588 нужно каждый элемент последовательности умножить на r, потом сделать операцию mod q. и вывести всё на экран. числа можно взять любые. написал код: program shifrovanie; https://www.cyberforum.ru/ turbo-pascal/ thread189764.html
Найти в главной диагонали минимальный элемент Turbo Pascal Дана првильная матрица. Найти максимальный элемент в строке где на главной диагонали находится минимальный элемент. Я решал задачу но чтото бред получается помогите плз: Вот что я решал: PROGRAM ZAD; {ищем по глаeной диагонали самые минимальный элемент а потом в строках с минимальным элементом найти максимальный} TYPE TArray1=array of integer; TArray2=array of integer;	Turbo Pascal Напечатать те слова последовательности, в которых нет повторяющихся букв https://www.cyberforum.ru/ turbo-pascal/ thread189737.html дана последовательность слов. напечатать те слова последовательности, которые отличны от первого слова и удовлетворяют следующему свойству: 1) в слове нет повторяющихся букв. б) словов семетрично.

Crazyroma

3 / 3 / 5

Регистрация: 21.10.2010

Сообщений: 124

12.11.2010, 01:30 [ТС]

Как зделать множества - Turbo Pascal - Ответ 1103686

12.11.2010, 01:30. Показов 619. Ответов 5

Метки (Все метки)

Ответ

Сообщение от pryda

нет. это бред.
вот вам примерчик простенький. от него и шагайте.

Pascal

var a,b,c:set of byte;
    i:integer;
begin
a:=[1..10];
b:=[5..15];
c:=a+b;
for i:=1 to 50 do
if i in c then write(i:4);
readln;
end.

Можеш плиз оябсниь как здеалть первое юо это как по мне бред какойто я пишу a>=b но как задать чтоб оно выводило тrue ил false понять не могу,оно должно выводить просто слово true иди false или как?

Добавлено через 6 минут

Сообщение от pryda

нет. это бред.
вот вам примерчик простенький. от него и шагайте.

Pascal

var a,b,c:set of byte;
    i:integer;
begin
a:=[1..10];
b:=[5..15];
c:=a+b;
for i:=1 to 50 do
if i in c then write(i:4);
readln;
end.

Вот что я написал уже оно как правильно?

Pascal

program lab7;
var a,b,c:set of byte;
    i:integer;
true:boolean;
begin
a:=[1..10];
b:=[1..15];
true:= a<=b;
if  true then writeln('Pravilyno') else writeln('*ҐЇа*ўЁ«м*®');
readln;
 
begin
a:=[1..10];
b:=[5..25];
c:=a+b;
for i:=1 to 50 do
if i in c then write(i:4);
end;
readln;
end.

Вернуться к обсуждению:
Как зделать множества Turbo Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

12.11.2010, 01:30

Готовые ответы и решения:

Намекните как можно зделать календарь?
Услышал как преподователь общался со студентом по теме паскаля и интерактивного календаря там, мне...

подскажите как зделать через 1)функцию и 2)протцедуру.
program p1; uses crt; var x1,x2,y1,y2,l1,l2,p,s:integer; begin writeln('Введите координаты х1...

Сформировать множества А и В по заданному числу элементов для каждого множества
2)Сформировать множества А и В, базовый тип которых -70..30, по заданному числу элементов для...

Множества. Из множества латинских букв выделить множество символов, не входящих в ваше имя
из множества латинских букв выделить множество состоящее из символов не входящих в множество...

	12.11.2010, 01:30

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

12.11.2010, 01:30

Помогаю со студенческими работами здесь

Сформировать два множества, первое из которых содержит все простые числа из заданного множества
Имеется множество, содержащее натуральные числа из некоторого диапазона. Сформировать два...

Множества. Сформировать множества оценок, которые есть и у первого и второго, но нет у третьего ученика
Даны по 10-бальной шкале оценки по информатике трех учеников (три массива). Сформировать множества...

Сформировать два множества, первое содержит простые числа из данного множества, а второе - составные
Имеется множество, содержащее натуральные числа из некоторого диапазона. Сформировать два...

Даны три множества. Удалить из третьего множества элементы, не принадлежащие первым двум множествам
Даны три множества. Удалить из третьего множества элементы, не принадлежащие первым двум множествам.

Наверх