Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Вычислить Здраствуйте, собсна не могли бы вы написать программку для решения такой вот задачки с min и max спасибо) https://www.cyberforum.ru/ pascal/ thread66724.html	Pascal Определить значение переменных создайте пожалуйста программу и объясните мне,что в ней происходит Определите значения переменных р и d после выполнения операторов: р := true; d := 1; case k mod 10 of 3, 2, 7, 5: d := k; 1: ; 4,8: begin p := false;
Pascal Рекурсия: вывести значение логического выражения, заданного в виде строки Доброе время суток всем вошедшим)) Вот проблема такая замысловатая, решить программу рекурсия(( Буду весь благодарен откликнувшимся:) Вывести значение логического выражения, заданного в виде строки S. Выражение определяется следующим образом («T» — True, «F» — False): <выражение> := T \| F \| And(<параметры>) \| Or(<параметры>) <параметры> := <выражение> \| <выражение> , <параметры> например... https://www.cyberforum.ru/ pascal/ thread66712.html	Pascal Курсовая: меню, файлы, записи, запросы https://www.cyberforum.ru/ pascal/ thread66709.html Помогите, пожалуйста с курсовой. Множество данных представляет собой файл с прямым доступом, состоящий из записей постоянной длины. Обеспечить реализацию следующих запросов к заданному множеству структурированной информации: создание набора данных (НД); добавление новых элементов в конец НД; просмотр всех элементов НД; поиск элемента по номеру; переход к работе с другим НД. вставка нового...
МАТРИЦА ПО СПИРАЛИ! Pascal Помогите решить задачу. построить квадратную матрицу 7 порядка, элементами которой являются числа от 1 до 49 расположенные по спирали. П.с.В поиске нашла темы,но там она не решена полностью!	Pascal Дана сторона основания тетраэдра..... Дана сторона основания тетраэдра и его апофема (апофема-длинна перпендикуляра,опущенного из центра правильного многоугольника на одну из его сторон, апофема равна радиусу вписанного в даный многоугольник круга)Требуется найти обьём пирамиды! Плиз помогите дубу))))))))) https://www.cyberforum.ru/ pascal/ thread66702.html
Pascal Условие нажатия кнопки https://www.cyberforum.ru/ pascal/ thread66697.html Как можно проверить нажатие кнопкой мыши в определенную область окна программы?	Pascal Арифметика Помогите пожалуйста решить 3 простые задачки на языке Pascal, Заранее огромное спасибо!!! 1) Дано четырёх значное натуральное число, получить натуральное m, цифры кот. записаны в обратном порядкем. 2) Вычислить площадь прямоугольного треугольника, если известны координаты её вершин. 3) Даны 2 числа х и у, поменять их местами без использования дополнительных переменных.
Pascal Количество слов в строке. ПОЖАЛУЙСТААААА помогите,написать программу на Паскале!Подсчитать количество слов,содержащих две буквы "м".Пожалуйста,ооочень нужно! https://www.cyberforum.ru/ pascal/ thread66692.html	Pascal Программа по заточке вала Нужно создать программу на паскале для заточки вала. Даже не знаю с чего начать. Может кто подскажет? https://www.cyberforum.ru/ pascal/ thread66686.html
Pascal Сформировать из элементов массива А одномерный массив В Дан двумерный массив А размерностью 7х7, элементы массива – случайные числа из диапазона (-30..30). Необходимо сформировать из элементов массива А одномерный массив В, в который поместить все элементы удовлетворяющие заданному условию. Вывести на экран на экран исходный массив А и полученный массив В. Условие отбора элементов из массива А: Все элементы массива А в порядке убывания	Pascal Дан файл Т, который содержит номера телефонов сотрудников учреждения Дан файл Т, который содержит номера телефонов сотрудников учреждения: 1) ФИО сотрудника 2) номер телефона. Найти номер телефона сотрудника по его фамилии и инициалам. помогите пожалуйста((( https://www.cyberforum.ru/ pascal/ thread66678.html

кот Бегемот

Платежеспособный зверь

8926 / 4354 / 1642

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

Сообщений: 11,568

23.11.2009, 22:03

работа с компонентами массива - Pascal - Ответ 373533

23.11.2009, 22:03. Показов 516. Ответов 3

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

Ответ

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

Помогите пожалуйста решить следующую задачку...

язык Pascal(TP);

В массиве из 10 целых чисел найти произведение элементов, расположенных между первым и последним отрицательными элементами

Pascal

var
a:array[1..10]of integer;
i,ot1,ot2,sum:integer;
begin
writeln('vvedite elementy massiva');
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do
if a[i]<0 then ot2:=i;
for i:=10 downto 1 do
if a[i]<0 then ot1:=i;
sum:=1;
for i:=ot1+1 to ot2-1 do
sum:=sum*a[i];
writeln(sum);
end.

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

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

23.11.2009, 22:03

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

работа с компонентами массива
Найти максимальную разность двух соседних элементов массива из 10 вещественных чисел. Указать...

Массив. Разделить каждый элемент массива на разность между компонентами, имеющими максимальное и минимальное значение
Дан массив у(у1,у2,у3,....,у20)Разделить каждый элемент массива на разность между компонентами,...

работа с компонентами
на форме есть 5 шейпов как мне поменять 1 свойство у всех, кроме 1(имена известны) вот так делаю...

Работа с компонентами
Привет! Можно ли как-то присвоить компоненту на одном объекте ВСЕ сразу переменные из компонента на...

	23.11.2009, 22:03

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

23.11.2009, 22:03

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

Работа с компонентами
Где можно почитать как работать с компонентами в Adobe Flash Professional (CS5) ? Например как...

Работа с динамическими компонентами
Здравствуйте. Нарисовалась такая проблема. На панели создаются динамические компоненты Image. По...

Работа с компонентами ListBox
Помогите сделать, пожалуйста. В оконном приложении исходные данные вводить из компоненты Edit в...

Работа с динамическими компонентами
Здравствуйте. Есть несколько вопросов по работе с динамическими компонентами. Вот к примеру...

Наверх