Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Обнулить главную диагональ матрицы Дан двумерный массив А(5,5) в виде квадратной матрицы. Составьте программу, обнуляющую главную диагональ матрицы, если в ней найдется хоть один отрицательный элемент. Значения элементов массива задайте самостоятельно, используя процедуру ввода данных с клавиатуры. Для ввода данных и обработки массива используйте оператор цикла FOR. Выведите на экран исходную и преобразованную матрицу. Зарание... https://www.cyberforum.ru/ turbo-pascal/ thread100466.html Turbo Pascal Создать базу данных склад
Создать базу данных склад!! Program z35; uses crt; type sklad=record name:string; kol:integer; end; var n,i,kz:integer;
Turbo Pascal открытие файлов кароч такое вот дело... можно ли в паскале сделать функцию(процедулу) которая открывала бы текстовый файл(например html) на компе? то то есть - нажал кнопку(у меня кнопочный интерефейс(не в delphi)) и открывается на компе файл. html.т.к. ПДД теория у меня в html https://www.cyberforum.ru/ turbo-pascal/ thread100406.html Turbo Pascal Определить число e – основание натуральных логарифмов с помощью ряда https://www.cyberforum.ru/ turbo-pascal/ thread100399.html
Программа должна предусматривать ввод исходных данных с клавиатуры и вывод результата на экран. Определить число e – основание натуральных логарифмов с помощью ряда: (см. картинку) для всех значений n от 1 до 20. Для каждого случая напечатать n и соответствующее приближение e.
Упорядочить номера столбцов по убыванию значений найденных сумм с помощью обменной сортировки Turbo Pascal
дана квадратная матрица размером n*n, содержащие вещественные положительные числа. Определить сумму четных элементов в каждом столбце матрицы и упорядочить номера столбцов по убыванию значений найденных сумм с помощью обменной сортировки . Вывести упорядоченный список номеров столбцов и соответствующих им сумм. часть программы есть Program Ice8; uses crt; Type Tmas = array of real;...
Turbo Pascal Вывести на экран слова из предложения, которые содержат ровно три буквы е помогите пожалуйста написать программы: 1)Указать порядковые номера символов, составляющих слово ‘Паскаль’, если таких символов нет – выдать сообщение об этом. 2)Пусть дана последовательность, содержащая от 2 до 40 слов, в каждом из которых от 2 до 10 строчных латинских букв; между соседними словами - менее одного пробела, за последним словом - точка. Напечатайте все слова, отличные от первого... https://www.cyberforum.ru/ turbo-pascal/ thread100362.html
Turbo Pascal Для последовательности целых положительных чисел a1, ..., aN, где N – натуральное число, используя только элементарные арифметические операции (+, –, Для последовательности целых положительных чисел a1, ..., aN, где N – натуральное число, используя только элементарные арифметические операции (+, –, *, /) и не используя масивы, найти количество парных и количество непарных чисел с последовательности a1, ..., aN, а также сумму максимальных элементов этих двух групп чисел. Добавлено через 23 часа 30 минут Program z3; var... https://www.cyberforum.ru/ turbo-pascal/ thread100356.html Вычисление конечной суммы Turbo Pascal
Помогите пожалуйста кто может. Я и близко не понимаю как её решать хотя есть скажем так "инструкция к задаче" но оно на белларуском и я не понимаю я вылажу архивом так как я не знаю как сюда все окуратно вылажить помогите пожалуйста кто сможет(( заранее благодарен. Хатябы наброски хоть что нибудь:((
Turbo Pascal Дано натуральное число N іи действительные числа a1, ..., aN.Не используя масивы получить max(a1, ..., aN). https://www.cyberforum.ru/ turbo-pascal/ thread100325.html
1.Дано натуральное число N іи действительные числа a1, ..., aN.Не используя масивы получить max(a1, ..., aN). 2.Для последовательности целых положительных чисел a1, ..., aN, где N – натуральное число, используя только элементарные арифметические операции (+, –, *, /) и не используя масивы, найти количество парных и количество непарных чисел с последовательности a1, ..., aN, а также сумму...
Turbo Pascal Преобразовать массив так, чтобы сначала располагались элементы, целая часть которых лежит в интервале https://www.cyberforum.ru/ turbo-pascal/ thread100253.html
Дан одномерный массив целых чисел, состоящий из N элементов. Преобразовать массив таким образом, чтобы сначала располагались все элементы, целая часть которых лежит в интервале , а потом все остальные. Как преобразовать массив?обьясните пожалуйста, что-то не пойму...
Turbo Pascal Определить сумму четных элементов в каждом столбце матрицы
Определить сумму четных элементов в каждом столбце матрицы нужен алгоритм напишете плиз
Turbo Pascal Найти количество школьников, имеющих среднюю оценку ниже 4 https://www.cyberforum.ru/ turbo-pascal/ thread100185.html
В 1 строке двумерного массива записано количество участников в классах, во второй - средняя оценка класса по математике. Найти количество школьников, имеющих среднюю оценку ниже 4
Почетный модератор
64299 / 47594 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
04.03.2010, 10:57 0

Определить сколько чисел больше своих соседей - Turbo Pascal - Ответ 580445

04.03.2010, 10:57. Показов 1678. Ответов 13
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
var n,i,a,b,c,k:integer;
begin
clrscr;
repeat
write('Количество чисел не менее 3 n=');readln(n);
until n>=3;
writeln('Введите ',n,' целых чисел');
k:=0;
readln(a);
readln(b);
for i:=3 to n do
 begin
  readln(c);
  if (b>a)and(b>c) then k:=k+1;
  a:=b;
  b:=c;
 end;
write('Чисел больше своих соседей=',k);
readln
end.


Вернуться к обсуждению:
Определить сколько чисел больше своих соседей Turbo Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.03.2010, 10:57
Готовые ответы и решения:

Определить, сколько из чисел больше своих «соседей»
Программа. Дано 200 вещественных чисел. Определить, сколько из них больше своих «соседей», т.е....

Определить, сколько чисел больше своих «соседей»
Дано 30 вещественных чисел. Определить, сколько из них больше своих «соседей», т. е. предыдущего и...

Определить, сколько из чисел больше своих «соседей» по ряду
Условие задачи : Составить схему алгоритма и программу циклического вычислительного процесса....

Дано 7 вещественных чисел. определить, сколько из них больше своих «соседей»
Дано 7 вещественных чисел. определить, сколько из них больше своих «соседей», т. е. предыдущего и...

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

Определить, сколько из 200 вещественных чисел больше своих «соседей», то есть предыдущего и последующего
Дано 200 вещественных чисел. Определить, сколько из них больше своих «соседей», то есть предыдущего...

Дано N действительных чисел. Определить, сколько из них больше своих "соседей", т.е. предыдущего и последующего среди них
Дано N действительных чисел. Определить, сколько из них больше своих "соседей", т.е. предыдущего и...

Дан список чисел. Определите, сколько в этом списке элементов, которые больше двух своих соседей и выведите ко
Дан список чисел. Определите, сколько в этом списке элементов, которые больше двух своих соседей и...

Определить сколько элементов массива больше своих "соседей"
1. Дано: одномерный массив А(N). Определить сколько элементов массива больше своих "соседей",...

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