Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal В квадратной матрице натуральных чисел найти сумму элементов над главной диагональю, являющихся палиндромами https://www.cyberforum.ru/ turbo-pascal/ thread245125.html в квадратной матрице натуральных чисел найти сумму элементов над главной диагональю, являющихся палиндромами Именуйте темы осмысленно. Название темы должно максимально полно отражать ее содержание.	Имеется текстовый файл Turbo Pascal Оставить в нём только те строки в которых есть символ Х
Turbo Pascal Проерка на правильность ввода. Наброски есть. https://www.cyberforum.ru/ turbo-pascal/ thread245099.html найти периметр квадрата, стороны которого параллельны осям координат, а противоположные вершины лежат в точках А(x1,y1), D(x2,y2). При неправильном вводе значений, вывести на экран сообщение об ошибке и предложением повторно ввести правильные данные. Результат отобразить на экране. а) используя операторы while или repeat выполнить проверку на корректность ввода введенных данных; оформить ...	Turbo Pascal задачка с натуральными совершенными и несовершенными числами https://www.cyberforum.ru/ turbo-pascal/ thread245093.html нужна помощь в решение этой задачи, буду признателен... Натуральное число называется совершенным, если оно равно сумме всех своих простых делителей (например, 6=1+2+3). Найти все совершенные числа, не превосходящие за-данного n. Примечание. На сегодня известно 24 совершенных числа; все они четные. Вопрос о конечно-сти множества совершенных чисел открыт.
Turbo Pascal Поменять местами строки матрицы, чтобы их минимальные элементы образовывали возрастающую последовательность составить блок-схему и написать программу обработки двумерного массива Дана матрица размерами NxM. поменять местами ее строки так, чтобы их минимальные элементы образовывали возрастающую последовательность.	Turbo Pascal Найти произведение ряда https://www.cyberforum.ru/ turbo-pascal/ thread245077.html P= a(a-n)(a-2n)...(a-n2)
Turbo Pascal Определите наличие в массиве чисел, лежащих в диапазоне от a до b Дан массив А состоящий из 20 целых чисел. Отсортируйте его по убыванию. Введите с клавиатуры 2 контрольных числа a и b. Определите наличие в массиве чисел, лежащих в диапазоне от a до b. В положительном случае выведите найденные числа и их индексы в массиве на экран. https://www.cyberforum.ru/ turbo-pascal/ thread245052.html	Найти периметр треугольника по координатам вершин Turbo Pascal найти периметр треугольника АВС, если его координаты A(x1,y1), B(x2,y2), C(x3,y3,)вводятся с клавиатуры. При неправильном вводе значений, вывести на экран сообщение об ошибке и предложением повторно ввести правильные данные. Какое тут будет условие, при которым будут определены неправильные данные? uses crt; var ab,bc,ac,p,x1,x2,x3,y1,y2,y3:real; begin clrscr;
Turbo Pascal Вычислить значение функции составить программу вычисления значения функции y=(√3+√√3+√√√3...√√√√3)/n https://www.cyberforum.ru/ turbo-pascal/ thread245012.html	Turbo Pascal Вычислить готується у вигляді трьох файлів: * файл програмного коду (файл з розширенням .pas - інтегроване середовище розробки Турбо Паскаль 7.0); * файл, що виконується (файл з розширенням .exe - інтегроване середовище розробки Турбо Паскаль 7.0); * файл з тестовим прикладом та блок-схемою алгоритму (файл з розширенням .txt або .doc - текстові редактори MS Word, EditPlus, EmEditor або інші https://www.cyberforum.ru/ turbo-pascal/ thread244998.html
Программа Turbo Pascal http://imagesbase.com/upload/view/2_1298_3__6__achjkrtxy2.jpg курсовая робота помогите! Добавлено через 16 часов 42 минуты http://imagesbase.com/upload/view/2_1298_3__6__achjkrtxy2.jpg курсовая робота помогите! пожалуйста очень прошу помогите!!!	Turbo Pascal Вычислить наибольшие элементы массивов и их порядковые номера вычислить наибольшие элементы и их порядковые номера для массивов Х(N), Y(M). Нахождение наибольших элементов и их порядковых номеров оформить в виде подпрограммы. https://www.cyberforum.ru/ turbo-pascal/ thread244970.html

Puporev

Почетный модератор

64300 / 47595 / 32743

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

Сообщений: 115,181

19.02.2011, 13:23

Вставить в массиив число 100 - Turbo Pascal - Ответ 1381823

19.02.2011, 13:23. Показов 944. Ответов 1

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

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

Решение

Pascal

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,j,k:byte;
    x:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax div 2,' n=');
readln(n);
until n in [1..nmax div 2];
writeln('Массив:');
for i:=1 to n do
 begin
  a[i]:=random(10)-5;
  write(a[i]:4);
 end;
writeln;
writeln;
i:=1;
while i<n do
if a[i]*a[i+1]>0 then{если знак одинаковый}
 begin
  inc(n);{увеличим размер массива}
  for j:=n downto i+2 do{сдвинем его вправо}
  a[j]:=a[j-1];
  a[i+1]:=100;{за первым элементом пары вставим 100}
  i:=i+2;{перешагнем}
 end
else inc(i);
writeln('Массив после вставок:');
for i:=1 to n do
write(a[i]:4);
readln
end.

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

19.02.2011, 13:23

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

Вставить число 100 после пятого элемента массива
Либо руки кривые, либо паскаль абц кривой. const n = 10; dd = 51; type myarray = array of...

Вставить число 100 после пятого элемента массива
1)Вставить число 100 после пятого элемента массива. 2)На основе разобранной задачи вставьте число...

Вставить число 100 после первого числа —100
Имеется файл с целыми числами. Вставить число 100 после первого числа —100. Результат записать в...

Вставить число 100 после пятого элемента массива
Привет всем!) помогите ребят плз) Дан массив целых чисел (n=12), заполненный случайным образом...

	19.02.2011, 13:23

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

19.02.2011, 13:23

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

Вставить число 100 после пятого элемента массива
Приветствую форумчане. Прошу вас помочь с заданием. Дан массив целых чисел (n=15), заполненный...

Вставить в массив после каждого минимального элемента число 100
Сформировать одномерный массив из 14 элементов с помощью генератора случайных чисел. Вставить в...

Удалить из массива третий элемент, вставить число 100 после пятого, найти сумму всех элементов
1.удалить из массива третий элемент 2.вставьте в массив число 100 после пятого элемента 3.найдите...

В одномерном массиве вставить элемент, равный 100, перед последним элементом, значение которого меньше 100
В одномерном массиве с вещественными элементами вставить элемент, равный 100, перед последним...

Наверх