Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день Заказать работу  
Другие темы раздела
Turbo Pascal Найдите и введите на экран те слова, которые оканчиваются на букву "Я". https://www.cyberforum.ru/ turbo-pascal/ thread252053.html
Вот пару задачек на эту тему, буду благодарен, если поможите решить. 1.Задайте символьный массив. Найдите и введите на экран те слова, которые оканчиваются на букву "Я". 2. Задать символьный массив с неповторяющейся длиной слов. Поменять местами минимальное и максимальное по длине слова. Вывести на экран полученный массив. 3. Задать символьные массив из 12 элементов, содержащий фамилии... 		Turbo Pascal добавить новый товар, отсортировав при этом файл
всем привет, очень нужна ваша помощь, помогите пожалуйста исправить и дописать программу!!! Дан файл, в котором записан например, фен Boch 1300, сохраним его под именем tovar запускаем прогу, вводим имя текстового файла tovar.txt. имя типизированного tovat.dat. сортировка в этой проге не работает(и она вообще отдельна, не пойму зачем), нужно добавить новый товар, отсортировав при этом...
Turbo Pascal В заданном массиве A(N) каждый третий элемент заменить на значение «-3» В заданном массиве A(N) каждый третий элемент заменить на значение «-3».оформить процедурами ввод числовой матрицы и вывод числовой матрицы; в основной программе ввести размер матрицы и выполнить необходимые вычисления; включить разработанные процедуры в собственный модуль; https://www.cyberforum.ru/ turbo-pascal/ thread252032.html Turbo Pascal Матрица А(nxn) нужно вычислить: 1) массив С(n), где С - произведение отрицательных элементов i-ой строки, 2) S - сумма элементов главной диагонали матрицы, 3) V - скалярное произведение первого и второго столбцов матрицы.. Помогите пожалуйста... кто может... https://www.cyberforum.ru/ turbo-pascal/ thread252026.html
В последовательности определить число соседств двух положительных чисел Turbo Pascal
помогите пожалуйста решить задачу! даны натуральное число N и последовательность A1, A2, ..., An. В данной последовательности определить чтсло соседств двух положительных чисел. у меня вот что-то есть, ног он ничего не выводит! program rul; type mass=Array of integer; var x:mass; i:integer; begin for i:= 1 to 5 do readln(x); 		Turbo Pascal Блок схема Помогите плз, срочно надо. Program praktika3; Uses Crt; Type StFio=string; StAdres=string; StJou=string; RecBook=record FIO:StFio; Adres:StAdres; Journal:StJou; https://www.cyberforum.ru/ turbo-pascal/ thread252002.html
Turbo Pascal Используя подключение модуля В заданном массиве A(N) вместо a1 запишите наибольший элемент массива, а вместо aN — наименьший элемент массива. https://www.cyberforum.ru/ turbo-pascal/ thread252000.html Найти номер первой из строк матрицы, не содержащих ни одного положительного элемента Turbo Pascal
Народ помогите пожалуйста дали задание по программированию выполнить, а я не бум бум в этом деле. Размерность массивов следует задать именованными константами.Все необходимые данные должны передаваться подпрограмам в качестве параметров; все величины, используемые только внутри подпрограмм, должны быть описаны как локальные.Использование глобальных переменных в подпрограммах не допускается.Вывод...
Turbo Pascal Объекты https://www.cyberforum.ru/ turbo-pascal/ thread251975.html
Здравствуйте! Подскажите пож-та программа не хочет компилироваться, использую Turbo Pascal 7.0, вот код: uses crt, graph; type cWindow=object x,y: integer; {координаты окна} lenx,leny: integer; {размеры окна} visible: boolean; {флаг видимости} procedure Init (px,py,plenx,pleny: integer); procedure Show; 		Turbo Pascal Сколько раз встречается каждое из двубуквенных сочетаний Помогите, пожалуйста ..... что то я не разберусь .. кто- нибудь помогите решить эту задачку))) прошу.. для встречающихся в заданном тексте пар одинаковых рядом расположенных символов указать, сколько раз встречается каждое из таких двубуквенных сочетаний https://www.cyberforum.ru/ turbo-pascal/ thread251954.html
Turbo Pascal Примеры с решение по Pascal
есть разделы: Линейные уравнения Ветвления (iF) Условия выбора (Case) Массивы (одномерные, двухмерные) Строки Графика 		Turbo Pascal Дана целочисленная (?) матрица размера N*M, в которой имеются ровно 2 одинаковых элемента. Найти индексы этих элементов. https://www.cyberforum.ru/ turbo-pascal/ thread251925.html
Дана целочисленная (?) матрица размера N*M, в которой имеются ровно 2 одинаковых элемента. Найти индексы этих элементов. Заранее спасибо. Добавлено через 9 часов 11 минут помогите пожалуйста (
232 / 181 / 104
Регистрация: 19.03.2010
Сообщений: 949
0

Замена минимального элемента в массиве, максимальным. - Turbo Pascal - Ответ 1420253

04.03.2011, 13:25. Показов 3924. Ответов 2
Метки (Все метки)
Author24 — интернет-сервис помощи студентам
Доброго всем времени суток. Подскажите пожалуйста, как сделать программу, по замене первого отрицательного элемента на максимальный элемент этого же массива. У меня получилась программа, которая находит максимальный элемент, но не заменяет им минимальный. Вот исходный код:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

uses crt;
const n=5;
var a:array[1..n] of integer;
i,max,min:integer;
begin clrscr;
randomize;
writeln('Odnomernyi massiv: ');
for i:=1 to n do begin
a[i]:=random(15)-5;
end;
for i:=1 to n do begin
write(a[i]:3);
end;
max:=1;
min:=0;
for i:=1 to n do
begin
if a[i]>a[max] then max:=i;
if (a[i]<0) and (min=0) then min:=i;
end;
write(a[max]);
readln;
end.
Заранее благодарен.

Вернуться к обсуждению:
Замена минимального элемента в массиве, максимальным. Turbo Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 04.03.2011, 13:25
Готовые ответы и решения:

Программа нахождения минимального элемента в массиве и замена его с последним
помогите найти сдесь ошибку, у меня не заменяет минимальный элемент с последним. program...

Добавление элемента с максимальным значением после минимального элемента (Allegro Lisp)
Помогите сделать 1 программку максимально просто -добавление элемента с максимальным значением...

Вывод минимального номера строки и столбца с максимальным значением элемента массива
Есть массив, из которого выводиться максимальный элемент, при этом, если элемент в этом массиве...

Нахождение в массиве минимального элемента среди положительных и его номера в массиве
• Нахождение в массиве минимального элемента среди положительных и его номера в массиве. •...

2
04.03.2011, 13:25
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 04.03.2011, 13:25
Помогаю со студенческими работами здесь

Заменить все элементы массива с максимальным значением на сумму цифр минимального элемента
Дан целочисленный массив А. Заменить все элементы массива с максимальным значением на сумму цифр...

Заменить все элементы массива с максимальным значением на сумму цифр минимального элемента
Дан массив A.Заменить все элементы массива с максимальным значением на сумму цифр минимального...

Поиск максимального и минимального элемента в очереди, удаление элементов между максимальным и минимальным
Задача следующая: написать функцию, которая ищет максимальный и минимальный элементы в очереди и...

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

Замена минимального элемента строки на первый
в заданной матрице 5x5 найти min элемент в каждой строке и записать его на место первого элемента...

В двух последовательностях замените все элементы, следующие за элементом с максимальным значением, на значение минимального элемента
пусть дан фрагмент программы: var S: set of char; c,d: char присвойте переменной перечисленные ниже...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru