Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Удалить из строки все вхождения каждого символа, за исключением первого Дана последовательность символов(строка).Если какой-то символ в ней встречается более одного раза ,оставить только первое вхождение. https://www.cyberforum.ru/ turbo-pascal/ thread1202912.html	Turbo Pascal Метод закраски фонга есть программа реализующая метод закраски фонга но она отображает лаги. p1.cpp program p1; { Освещение треугольника (модели) по фонгу } uses math3d, crt, grf, obj_cube; procedure init_pal; var i: integer; begin for i := 1 to 63 do
Turbo Pascal Нарисовать анимированного человека https://www.cyberforum.ru/ turbo-pascal/ thread1202901.html Нарисовать рисунок.Голову и туловище закрасить собственной штриховкой.Сделать рисунок двигающимся,при этом ноги и руки должны шевелиться.	Turbo Pascal Сортировка массива методом пузырька Приветствую всех. Прошу помощи у знающих людей с написанием программы. Итак, условия - дан числовой массив 15x15, который берется из текстового файла. Нужно отсортировать числа массива по возрастанию от наименьшего к большему и вывести его в другой текстовый файл. const n=15; var f:text; a:array of integer; i,j,s,e,c:integer; https://www.cyberforum.ru/ turbo-pascal/ thread1202876.html
Определить количество абитуриентов, средний балл которых выше среднего балла по институту Turbo Pascal У меня есть программа, у которой условие " Определить количество абитуриентов, средний балл которых выше среднего балла по институту. " program z1; uses crt; const n=5; type gruppa=record fio: string; ball: integer; end;	Turbo Pascal Максимальная размерность одномерного массива Сколько чисел может уместиться в одномерном массиве? У меня 200000 почему-то не влезают :D. И как тогда поступать? https://www.cyberforum.ru/ turbo-pascal/ thread1202866.html
Turbo Pascal Заменить все элементы массива Заменить все элементы массива большие 10,на число с. https://www.cyberforum.ru/ turbo-pascal/ thread1202852.html	Turbo Pascal Нужно переделать программу, завтра сдавать, но не могу с этой разобраться Составить структурную схему программы и модуля, выполняющей следующие функции: ввод имени файла с клавиатуры, проверку наличия дискового файла, если файла нет его создание. Ввод информации осуществляется в активном окне. Файл содержит записи со сведениями о студентах (группа, фамилия, имя, отчество, размер стипендии). Добавить подпрограмму позволяющую выводить на экран записи о студентах только...
Turbo Pascal Даны два натуральных числа.Выяснить,в каком из них больше цифр https://www.cyberforum.ru/ turbo-pascal/ thread1202849.html Даны два натуральных числа.Выяснить,в каком из них больше цифр.(определить функцию для рассчета количества цифр натурального числа).	Turbo Pascal Определить, какая из трёх точек наиболее удалена от точки с заданными координатами На плоскости 3 точки заданы своими координатами:(x1,y1),(x2,y2),(x3,y3).Определить, какая из точек наиболее удалена от точки с заданными координатами (х,у).Расстояние между двумя точками вычислить с помощью процедуры. https://www.cyberforum.ru/ turbo-pascal/ thread1202846.html
Turbo Pascal Определить количество абитуриентов со средним баллом не менее 6, фамилии которых начинаются на А Дана ведомость абитуриентов, сдавших вступительные экзамены в институт (ее можно дополнить) : Ф. И. О. Оценки Местожительство Иванов А. Г. 9 7 5 Вологда Петров Л. Л 9 9 9 Грязовец Раковский Д. Г. 4 4 5 Сокол Акимова Я. С. 9 5 4 Харовск Определить количество абитуриентов со средним баллом не менее 6, фамилии которых начинаются с буквы А. Завтра сдать надо, а я не знаю как решать....	Turbo Pascal Вычислить количество букв "а" над главной диагональю матрицы Дано символьную квадратную матрицу порядка n. Вычислить количество букв а над главной диагональю и количество букв в под боковой диагональю, и заменить в матрице эти буквы на символ *. Помогите пожалуйста https://www.cyberforum.ru/ turbo-pascal/ thread1202514.html

ZX Spectrum-128

6811 / 4568 / 4819

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

Сообщений: 22,438

09.06.2014, 12:31

Из заданного множества целых чисел выделить множество нечётных чисел и чисел, делящихся без остатка на 17 - Turbo Pascal - Ответ 6294118

09.06.2014, 12:31. Показов 2329. Ответов 1

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

Сообщение было отмечено ocsoget как решение

Решение

Pascal

{Дано множество Xl,содержащее целые числа из диапазона [1..255].
Сформировать новое множество Y путем выделения из множества Xl
нечетных чисели чисел,делящихся без остатка на 17.}
var
  x1,y : set of byte;
  i:byte;
begin
  y:=[];x1:=[];
  {заполнение множества}
  for i:=1 to 255 do
    x1:=x1+[i];
 
  for i:=low(x1) to high(x1) do
    if (odd(i)) and (i mod 17=0) then
      y:=y+[i];
 
  {вывод множества}
  for i:=1 to 255 do
    if i in y then
      write(i,' ');
end.

Вернуться к обсуждению:
Из заданного множества целых чисел выделить множество нечётных чисел и чисел, делящихся без остатка на 17 Turbo Pascal

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

Programming

Эксперт

39485 / 9562 / 3019

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

Сообщений: 41,671

Блог

09.06.2014, 12:31

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

Из множества целых чисел 1..20 выделить: множество чисел, делящихся на 6 без остатка; множество чисел делящихся без остатка на 2 или на 3
Из множества целых чисел 1..20 выделить: множество чисел, делящихся на 6 без остатка; множество...

Из множества целых чисел 1..20 выделить: множество чисел, делящихся без остатка на 6;
Из множества целых чисел 1..20 выделить: множество чисел, делящихся без остатка на 6;

Из множества целых чисел 1..20 выделить: множество чисел, делящихся без остатка на 6
Из множества целых чисел 1..20 выделить: множество чисел, делящихся без остатка на 6;

Из множества целых чисел 1..20 выделить: множество чисел, делящихся на 6 без остатка; множество чисел делящихся без остатка на 2 или на 3. Полученные
Из множества целых чисел 1..20 выделить: множество чисел, делящихся на 6 без остатка; множество...

	09.06.2014, 12:31

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

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

Сообщений: 28,500

Блог

09.06.2014, 12:31

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

Из диапазона целых чисел m..n выделить Множество чисел, делящихся без остатка на k
Из диапазона целых чисел m..n выделить: 1) Множество чисел, делящихся без остатка на k;...

Из диапазона целых чисел выделить множество чисел, делящихся без остатка или на k или l, множество чисел, делящихся на k*l
Из диапазона целых чисел m…n выделить: 1) множество чисел, делящихся без остатка или на k или l (k,...

Из диапазона целых чисел выделить множество целых чисел, делящихся без остатка на K, или на L
Из диопозона целых чисел m..n выделить. 1)множество целых чисел,деляшихся без остатка на K,или на L...

Из множества целых чисел 1.10 выделить множество чисел, на которые делится без остатка число 7. Вывести это множество на экран
Из множества целых чисел 1..10 выделить множество чисел, на которые делится без остатка число 7....

Новые блоги и статьи
Элементы алгоритмизации hw_wired 28.01.2025 Основы алгоритмизации В современном мире алгоритмы играют фундаментальную роль в развитии информационных технологий и программирования. Понимание основ алгоритмизации является ключевым элементом в. . .	Человек и информация hw_wired 28.01.2025 Введение: роль информации в познании мира В современном мире информация играет фундаментальную роль в процессе познания окружающей действительности. Она представляет собой совокупность сведений об. . .	Компьютер и информация hw_wired 28.01.2025 Эволюция вычислительных машин История развития вычислительной техники начинается задолго до появления первых электронных устройств. Человечество всегда стремилось упростить процесс вычислений и. . .	Информационные технологии hw_wired 28.01.2025 Введение в современные технологии работы с информацией В современном мире информационные технологии стали неотъемлемой частью практически всех сфер человеческой деятельности. Они существенно. . .	Информация вокруг нас hw_wired 28.01.2025 Основные понятия информации В современном мире понятие информации является фундаментальным и охватывает практически все сферы человеческой деятельности. Информация представляет собой совокупность. . .	Компьютер для начинающих hw_wired 28.01.2025 Введение в мир компьютерных технологий В современном мире информация стала одним из важнейших ресурсов человечества, определяющим развитие общества и технологий. Наша жизнь неразрывно связана с. . .
[golang] 189. Rotate Array alhaos 28.01.2025 Повороты рукоятки, целочисленный слайс нужно сдвинуть на целое положительное число. Мне очень нравится решение на GO / / https:/ / leetcode. com/ studyplan/ top-interview-150/ package topInterview . . .	КуМир: решение задач на матрицы bytestream 28.01.2025 КуМир представляет собой среду для обучения программированию, которая включает в себя мощные инструменты для работы с матрицами. Матрица в программировании - это двумерный массив, состоящий из. . .	КуМир: решение задач на строки bytestream 28.01.2025 В системе программирования КуМир работа со строковыми данными является одним из важнейших аспектов создания программ. Строки представляют собой последовательности символов, заключенные в кавычки,. . .	КуМир: решение геометрических задач bytestream 28.01.2025 Программирование геометрических задач в среде КуМир становится всё более актуальным в обучении школьников и студентов. КуМир — это разработанная в России обучающая программная среда, предназначенная. . .	КуМир, исполнитель Водолей: Задачи и решения bytestream 28.01.2025 КуМир — это образовательная среда для обучения программированию. Она предлагает пользователям разнообразные инструменты для разработки и отладки программ, что особенно ценно для студентов и. . .	КуМир, исполнитель Чертежник: Решение задач bytestream 28.01.2025 КуМир (Комплект Учебных МИРов) представляет собой образовательную среду для обучения основам программирования и алгоритмизации. Исполнитель Чертежник работает на координатной плоскости, где может. . .

Наверх