Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Определить количество часов и минут с начала суток. https://www.cyberforum.ru/ pascal/ thread166157.html Помогите сделать одну программу, я уже тут ппц как запутался, помогите это очень важно буду очень благодарен) Или подскажите что небудь Вот собственно: Определить Hour - полное количество часов и Minute - полное количество минут, прошедших с начала суток до того момента (в первой половине суток), когда часовая стрелка вернулась на Angle градусов. Значение Angle вводится с клавиатуры.	Вся группа незнает как составит алгоритм к программе. Pascal Программу написали она работает. А алгоритм по записям не знаем как составить ибо преподаватель не объяснила, а к завтрашнему дню нужно сдавать. Выручайте как вариант начертить на листочке и сфотать. Форум как всегда последняя надежда. Задача. program qw; const n=3; n1=3; type
Pascal Вывести произведение номеров двух наименьших элементов среди положительных В одномерном масиве который задается рандомно нужно посчитать произведение номеров двух наименьших елементов среди положительных...Я задаю массив рандомно с помощью функции Randomize, а как сделать так чтобы произведение номеров посчитало я не знаю:cry:Помогите пожалуста,вот то тчо писал сам. Program a001; uses crt; const n=10; Var d,r,t,y,f,i:integer; Var a:array of integer; Begin... https://www.cyberforum.ru/ pascal/ thread166112.html	Pascal Построить дерево https://www.cyberforum.ru/ pascal/ thread166095.html По текстовому файлу f построить дерево поиска T добавить новый элемент е проверить входит ли е в дерево удалить из дерева элемент е записать в текстовый файл f элементы дерева
Pascal Очередь (массив) Нужна помощь в решении задачи. За один просмотр файла f типа real и без использования дополнительных файлов напечатать элементы файла f в следующем порядке : сначала - все числа, меньше a, затем - все числа из отрезка , и наконец - все остальные числа, сохраняя исходный взаимный порядок в каждой из этих групп чисел (a, b – заданы, a < b)	Pascal Определть операцию div через другие операции и стандартные функции https://www.cyberforum.ru/ pascal/ thread165973.html помогите написать программу на языке паскаль!!! Задание: Определть операцию div через другие операции и стандартные функции. Очень буду прзнателен!!
Pascal Имеет ли квадратное уравнение хотя бы одно вещественное решение? Здраствуйте все.Помогите написать программу на паскале. Задача:Для произвольных вещественных чисел a, b и c определить, имеет ли квадратное уравнение хотя бы одно вещественное решение. Заранее спасибо https://www.cyberforum.ru/ pascal/ thread165972.html	Pascal составить программу, которая вводит .... Приняв, что координаты точек на плоскости задаются двумя числами x и y, составить программу, которая вводит с клавиатуры координаты точек и записывает их последовательно в файл: сначала x, а затем y. После завершения ввода осуществляется просмотр файла и его обработка (Подсчитать количество точек, попадающих в круг радиуса 4 с центром в начале координат)
Pascal Первая лабараторная по паскалю https://www.cyberforum.ru/ pascal/ thread165919.html Прошу помочь в решении лабараторной,условия таковы:"ВВести як значення сталих назви днiв тижня,та видрукувати назву поточного дня i найближчоi лекцii з основ програмуваня"	Pascal Все элементы массива, начиная со второго, сдвинуть вправо все элементы массива,начиная со второго,необходимо подвинуть вперед.первому элементу присвоить значение 0 https://www.cyberforum.ru/ pascal/ thread165904.html
Файл, записи Pascal .Дан файл, содержащий данные о покупателях, один раз посетивших супермаркет. В файле про каждого покупателя записаны фамилия, инициалы, дата посещения магазина, количество сделанных им покупок и их суммарная стоимость. Определить: Фамилию покупателя, суммарная стоимость покупки которого наименее отличалась бы от средней суммарной стоимости покупок.	Pascal Поделить каждый элемент масива на предыдущий Дан двухмерный массив. Поделить каждый его элемент на предыдущий, первый элемент оставить неизменным и вывести отсортированный массив! https://www.cyberforum.ru/ pascal/ thread165896.html

voice8787

19 / 19 / 12

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

Сообщений: 136

15.09.2010, 21:10

Дан вектор,требуется посчитать количество элементов вектора,отличных от его последнего элемента. - Pascal - Ответ 960382

15.09.2010, 21:10. Показов 1746. Ответов 2

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

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

Решение

Pascal

program kat;
uses crt;
var
v:array[1..80] of integer;
i,n,k:integer;
begin
clrscr;
write('Длина вектора='); read(n);
writeln('Введите элементы вектора:');
for i:=1 to n do
begin
write('v[',i,']='); read(v[i]);
end;
for i:=1 to n-1 do
begin
if v[i]<>v[n] then
begin
k:=k+1;
end;
end;
write('Количество элементов вектора,отличных от его последнего элемента=',k);
readln
end.

Вернуться к обсуждению:
Дан вектор,требуется посчитать количество элементов вектора,отличных от его последнего элемента. Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

15.09.2010, 21:10

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

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

Дан массив. Определить количество элементов, отличных от последнего элемента.
2.Дан массив А(10). Определить количество элементов, отличных от последнего элемента.

дан вектор А (N). написать программу нахождения минимального элемента вектора и его индекса. если индекс элемента парный, то часть вектора перед миним
дан вектор А (N). написать программу нахождения минимального элемента вектора и его индекса. если...

Определить количество элементов, отличных от последнего элемента
Определить количество элементов, отличных от последнего элемента.

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

15.09.2010, 21:10

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

Определить количество элементов массива, отличных от последнего элемента
Sub one() Dim B(20) As Integer Dim i, k As Integer k = 0 For i = 0 To 19 B(i) = Rnd * 20...

Дан целочисленный вектор А(12), среди его элементов есть одинаковые. Создать вектор В из различных элементов вектора А
Дан целочисленный вектор А(12), среди его элементов есть одинаковые. Создать вектор В из различных...

Определить количество элементов массива, отличных от последнего элемента и их суммы
Дан массив Р(10). Определить количество элементов , отличных от последнего элемента и их суммы 2 ...

Найти количество элементов массива, отличных от значения последнего элемента
массив из 50 чисел и заполнить его случайными числами.сколько в нем элементов, отличных от...

Наверх