Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день Заказать работу  
Другие темы раздела
Turbo Pascal Музяка не находится. https://www.cyberforum.ru/ turbo-pascal/ thread561091.html
Скажите, в чем ошибка? Компилятор пишет, что все правильно, но при запуске появляется сообщение о не существующем файле. Условие задачи:Используя строковую процедуру Val(s,t,code) для преобразования текстовой информации составить программу получения звуковых сигналов. Вот код программы: program zadacha3; uses crt; var I:text; s:string; function soun(s:string):integer; var x,cod:integer;... 		Turbo Pascal Массив. Определить сумму положительных и количество отрицательных между максимальным и минимальным элементами
В массиве хранятся элементы, соответствующие росту учеников класса. Найти: -средний рост учеников -рост самого высокого и самого низкого в классе -сколько ребят отберут в баскетбольную секцию,если туда отбирают с ростом больше 170 см. -сколько ребят в классе имеют одинаковый рост 18)Написать программу, определяющую сумму положительных и кол-во отрицательных элементов среди элементов,...
Turbo Pascal Вычислить факториал заданных чисел https://www.cyberforum.ru/ turbo-pascal/ thread561081.html
Помогите сделать задачу на Паскале Вычислить факториал чисел 1, 2, 3 … 10 и вывести от введённого значения ( PRN или CON ). 		Turbo Pascal Динамические структуры данных: двунаправленные списки задание : детская игра считалочка дано 1 2 3 4 . . . n детей считаем начиная с первого m раз удаляем каждого m-ого есть особенность в счёте : доходя до n-ого ребёнка , мы продолжаем счёт от n-1 ребёнка . доходя до 1-ого ребёнка , мы продолжаем счёт от 2-ого ребёнка . НАПРИМЕР https://www.cyberforum.ru/ turbo-pascal/ thread561074.html
Составить программу по блок-схеме Turbo Pascal
по блок-схеме составить программу и вычислить результаты если плохо видно, то там корень из 3а в четвертой степени/ 3с пожалуйста помогите, умоляю! мне срочно нужно сделать , по информатике задали очень благодарна буду,только помогите:****** 		Turbo Pascal Обработка текстов. Определить порядковые номера заданных символов, заменить их пробелами Пожалуйста помогите, срочно нужно! Если не сложно напишите пожалуйста что бы было понятно,так как в этом чайник! =) ЗАДАЧА Обработка текстов Задан текст, состоящий из строк произвольной длины. Строки разделяются одним или несколькими символами, называемыми разделителями. Разделители одинаковы для всего текста. Текст заканчивается комбинацией двух специальных символов, отличных от разделителя.... https://www.cyberforum.ru/ turbo-pascal/ thread561042.html
Turbo Pascal Определить сумму ряда (1+1/2*2)+(1+1/2*2)+...(1+1/N*2) https://www.cyberforum.ru/ turbo-pascal/ thread561035.html
написать программу , определяющую сумму ряда (1+1/2*2)+(1+1/2*2)+...(1+1/N*2).число N ввести с клавиатуры.выдать результат на экран 		Turbo Pascal Одномерный массив. Упорядочить массив по неубыванию с помощью алгоритма сортировки слияниями
Помогите пожалуйста с этим "Упорядочить массив a1,a2,…,an по неубыванию с помощью алгоритма сортировки слияниями: -каждая пара соседних элементов сливается в одну группу из двух элементов (последняя группа может состоять из одного элемента); -каждая пара соседних двухэлементных групп сливается в одну четырехэлементную группу и т.д. При каждом слиянии новая укрупненная группа...
Turbo Pascal Обработка массивов. Заполнить новый массив элементами, которые есть хотя бы в одном из исходных Даны два массива: А(n) из n различных чисел и В(m) из m различных чисел. Получить новый массив, который cодержит элементы, которые есть хотя бы в одном мас¬сиве А или В (найти "объединение массивов"). Помогите пожалуйста! https://www.cyberforum.ru/ turbo-pascal/ thread560966.html Turbo Pascal Сформировать квадратную матрицу n по заданному образцу https://www.cyberforum.ru/ turbo-pascal/ thread560935.html
Помогите пожалуйста решить квадратную матрицу по заданному образцу 1 2 3 ... n-2 n-1 n 2 1 2 ... n-3 n-2 n-1 3 2 1 ... n-4 n-3 n-2 . . . ... . . . n-1 n-2 n-3 ... 2 1 2 n n-1 n-2 ... 3 2 1
График: f(x)= cos x -(4/15П)*cos 4x где -2П<=x<=4П с шагом h Turbo Pascal
f(x)= cos x -(4/15П)*cos 4x где -2П<=x<=4П с шагом h заранее спасибо 		Turbo Pascal Сортировка чётных-нечётных элементов массива рекурсией https://www.cyberforum.ru/ turbo-pascal/ thread560919.html
Программа упорядочивает элементы массива, стоящие на нечетных местах, в возрастающем порядке, а на четных в убывающем. Работает, но для n>8 турба выдаёт переполнение стека, а PASCAL ABC или выход за границы диапазона индексов, или "Слишком много вложенных вызовов подпрограмм". Помогите допилить программу!uses crt; type TArray=array of integer; var i,n:integer;M:TArray; procedure...
Почетный модератор
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
28.04.2012, 20:27 0

Массив. Поиск элементов с заданными свойствами - Turbo Pascal - Ответ 2967430

28.04.2012, 20:27. Показов 1238. Ответов 7
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

uses crt;
const nmax=30;
var a: array [1..nmax] of integer;
    n,i,j,imax,imin,bas,sov,od: byte;
    srr: integer;
begin
repeat
write('Количество учеников, не более ',nmax,', n=');
readln(n);
until n in [1..nmax];
writeln('Введите рост учеников в строчку через пробел');
imax:=1; imin:=1;
for i:=1 to n do
    begin
    read(a[i]);
    if a[i]>a[imax] then imax:=i;
    if a[i]<a[imin] then imin:=i;
    if a[i]>170 then inc(bas);
    inc(srr,a[i]);
    end;
writeln('Самый низкий  рост ',a[imin]);
writeln('Самый высокий рост ',a[imax]);
writeln('Средний рост ',srr/n:0:2);
for i:=1 to n-1 do
    for j:=i+1 to n do
        if a[i]=a[j] then inc(od);
writeln('Одинаковый рост имеют ',od);
readln;
end.


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

Массив: поиск элементов с заданными свойствами
Здравствуйте, нужна ваша помощь в пяти различных заданиях по турбо паскалю, буду премного...

Одномерный массив: поиск элементов с заданными свойствами
помогите решить задание 4.Одномерные массивы. и задание 5.двумерные массивы. пожалуйста очень...

Одномерный массив. Поиск элементов с заданными свойствами
Даны массивы: HD1...HD10 - шифры дорог; k1... k10 - категории дорог; S1...S2 - протяженность...

Массив. Поиск элементов с заданными свойствами, замена
Помогите пожалуйста Дан массив целых чисел, состоящий из 10 элементов. Заполнить его с...

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

Двумерный массив: арифметические действия с элементами, поиск элементов с заданными свойствами
помогите пожалуйста написать программу для нахождения (массив риал 9х9 значения вводятся в массив с...

Матрица: поиск элементов с заданными свойствами
Задана матрица А(n,m). Для выполнения действий над элементами матрицы в соответствии с данными,...

Работа с массивами. Поиск элементов с заданными свойствами
Задан массив из пяти строк и шести столбцов 1)Сформировать массив из первых попавшихся...

Массивы: поиск элементов с заданными свойствами, формирование
Даны сведения о грузах G(их масса 0...50т) 1)Определить число грузов с массой&gt;10т и число...

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