Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal текс.файл содержит размеры 2-ой матрицы и значения ее элементов записанные построчно.Прочитать матрицу,транспонировать ее от-но неглавной диагоналии в https://www.cyberforum.ru/ turbo-pascal/ thread289477.html текс.файл содержит размеры 2-ой матрицы и значения ее элементов записанные построчно.Прочитать матрицу,транспонировать ее от-но неглавной диагоналии вывести в другой файл в виде таблицы,заменив элементы ниже главной диагонали словом ноль. program lab5; var i,j,m,n:integer; a,b:array of real; q,w:text; begin assign(q,'in.txt'); assign(w,'out.txt'); reset(q);	Turbo Pascal текстовые файлы Организовать текстовый файл состоящий из N строк. Заменить в нем одну из строк новой строкой. Номер заменяемой строки и содержимое новой строки запрашивается и вводится с клавиатуры. плиз помогите,у самой что-то не получается..если можно напишите пожалуйста с комментариями.
Turbo Pascal Првильно ли решена? Задача:Даны два массива А и B,состоящие из 6 целых чисел. Вычислить сумму и произведение элементов, содержащихся как в А, так и в В. Решение: program ulia3; type z=arrayof integer; w=arrayof integer; var A:w;B:z; i,sum,proizv:integer; begin https://www.cyberforum.ru/ turbo-pascal/ thread289432.html	Turbo Pascal Не воспроизводются звуки в паскаль! Нашёл на форуме программу которая реализует мелодию из к/ф бумер. Сначала запустил на компиляторе который стоял у меня ничего не воспроизводилось, потом скачал компилятор от "Puporev" так же не т никаких результатов. В ЧЁМ ДЕЛО??? Вот мелодия если что! program bumer; uses crt; https://www.cyberforum.ru/ turbo-pascal/ thread289430.html
Turbo Pascal Файловый тип Создать файл, содержащий 10 записей, включающих: -Пункт назначения -Номер рейса -Количество свободных мест -Цену на билет; Вывести сведения о рейсах, вылетающих в Москву с 19-00 до 23-00, на которые есть свободные места. Выводить, отсортировав по номеру рейса. оочень нужно(((	Turbo Pascal Анимация в паскале Привет все люди помогите с одной задачей разобратся в поскале.Мне нужно вот что. №1 Построить движущееся изображение самолета на фоне звёздного неба. https://www.cyberforum.ru/ turbo-pascal/ thread289410.html
Turbo Pascal Как быть с константами при объединении модулей https://www.cyberforum.ru/ turbo-pascal/ thread289399.html У мен есть несколько решенных задач, в которых я использовала процедуры. Теперь мне необходимо из всех этих задач создать личный модуль, но у меня возникает вопрос: некоторые из этих задач связаны с матрицами....в них встречаются такие кусочки... const m =10; type mas= array of integer; ИЛИ const m=3; type mas = array of integer;	Получить мультфильм "Круги на воде" Turbo Pascal Получить мультфильм "Круги на воде", используя концентрические окружности. Центры окружностей должны быть совмещены с центром экрана. Иллюзия движения создается последовательной сменой цветов всех окружностей, начиная с внутренней и кончая внешней. Обеспечить ввод максимального и минимального радиусов в диалоге, а также количество волн и последовательность сменяющихся цветов.(graph)
Turbo Pascal Проанализировав созданный текстовый файл, найдите в нем ошибки на правописание чк-чн, нч-нщ. Создайте текстовый файл слов с ошибками. Исправьте ош https://www.cyberforum.ru/ turbo-pascal/ thread289377.html 18.Проанализировав созданный текстовый файл, найдите в нем ошибки на правописание чк-чн, нч-нщ. Создайте текстовый файл слов с ошибками. Исправьте ошибки в исходном файле. Если ошибок в файле нет, предусмотрите в программе вывод соответствующего сообщения. Вывести на экран первоначальный файл и преобразованный. При выводе на экран содержания измененного файла, слова, где была ошибка, высветите...	Turbo Pascal Составьте список группы спортсменов, занимающихся легкой атлетикой, включающей N человек. Для каждого спортсмена укажите фамилию, имя, название общ 8.Составьте список группы спортсменов, занимающихся легкой атлетикой, включающей N человек. Для каждого спортсмена укажите фамилию, имя, название общеобразовательной школы, класс, результаты по следующим дисципли-нам: - бег 100м, - бег 3000м, - прыжки в высоту, - прыжки в длину, - прыжки с шестом, - метание ядра, - метание копья, - метание диска. Информацию о каждом спортсмене оформить... https://www.cyberforum.ru/ turbo-pascal/ thread289372.html
Целые числа и их обработка Turbo Pascal С клавиатуры вводим целые числа a,b,c. Если a ≤ b ≤ c, то заменить эти числа их квадратами.Если a>b>c, то каждое число поменять самым большим с них.	Turbo Pascal Даны две таблицы по 10 элементов в каждой. Найдите наименьшее среди тех чисел первой таблицы, которые не входят во вторую таблицу (считая, что хот https://www.cyberforum.ru/ turbo-pascal/ thread289369.html 18.Даны две таблицы по 10 элементов в каждой. Найдите наименьшее среди тех чисел первой таблицы, которые не входят во вторую таблицу (считая, что хотя бы одно такое число есть).

Высокий

250 / 250 / 135

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

Сообщений: 524

05.05.2011, 19:41

Переставить элементы массива так, чтобы сначала следовали все отрицательные числа, а затем все остальные - Turbo Pascal - Ответ 1618758

05.05.2011, 19:41. Показов 2422. Ответов 2

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

Ответ

где то здесь это уже было...

Pascal

Uses crt;
const n=25;
var z:array[1..n] of integer;
    i,j,k:byte;
    x:integer;
begin clrscr;
randomize;
writeln('исходный массив:');
for i:=1 to n do
 begin
  z[i]:=-25+random(51);
  write(z[i]:4);
 end;
writeln;
writeln;
k:=0;
for i:=1 to n do
if z[i] >= 0 then{если положительный}
  begin
    k:=k+1;{считаем}
    x:=z[i];{запоминаем}
    for j:=i downto k+1 do{сдвигаем начало массива-к позиций к этому элементу}
    z[j]:=z[j-1];{на 1}
    z[k]:=x;{на свободное место пишем это число}
  end;
writeln('Перестановка:');
for i:=1 to n do
write(z[i]:4);
readkey
end.

Вернуться к обсуждению:
Переставить элементы массива так, чтобы сначала следовали все отрицательные числа, а затем все остальные Turbo Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

05.05.2011, 19:41

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

Переставить элементы массива так, чтобы сначала следовали все отрицательные числа, а затем все остальные
Дан одномерный массив целых чисел. Переставить элементы в массиве таким образом, чтобы сначала...

Переставить элементы в массиве, чтобы сначала следовали все отрицательные числа, а затем все остальные
Здраствуйте! У меня было такое задание. Дан одномерный массив целых чисел. Переставить элементы в...

Упорядочить элементы файла так, чтобы сначала следовали все положительные компоненты, а затем все остальные
составить программы с помощью которых: -сформировать файл из целых чисел, которые должны быть...

Переставить элементы в массиве таким образом, чтобы сначала следовали все отрицательные числа
Дан одномерный массив целых чисел. Переставить элементы в массиве таким образом, чтобы сначала...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

05.05.2011, 19:41

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

Переставить элементы массива так, чтобы сначала располагались все единицы, затем все двойки и, наконец, все нули
Ребят помогите пожалуйста В массив x(N) каждый элемент равен 0,1 или 2. Приставить элементы...

Переставить элементы массива так, чтобы сначала располагались все нули, затем все единицы
В массиве А каждый элемент равен 0, 1, 2. Переставить элементы массива так, чтобы сначала...

Переставить элемента массива, так чтобы сначала было расположены все положительные элементы, потом все отрицательные
Всем добрый вечер! Есть задача: Кто знает как ее решить - помогите, с меня спасибо:)

Переставить элементы массива так, чтобы сначала шли нули, потом отрицательные, а затем положительные элементы
Дан одномерный массив, который содержит не более 60 вещественных чисел, среди которых есть...

Наверх