Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Turbo Pascal Массив. Поиск элементов с заданными свойствами В массиве хранятся элементы, соответствующие росту учеников класса. Найти: -средний рост учеников -рост самого высокого и самого низкого в классе -сколько ребят отберут в баскетбольную секцию,если туда отбирают с ростом больше 170 см. -сколько ребят в классе имеют одинаковый рост https://www.cyberforum.ru/ turbo-pascal/ thread561094.html Музяка не находится. Turbo Pascal
Скажите, в чем ошибка? Компилятор пишет, что все правильно, но при запуске появляется сообщение о не существующем файле. Условие задачи:Используя строковую процедуру 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)Написать программу, определяющую сумму положительных и кол-во отрицательных элементов среди элементов,... https://www.cyberforum.ru/ turbo-pascal/ thread561084.html 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-ого ребёнка . НАПРИМЕР 		Turbo Pascal Составить программу по блок-схеме https://www.cyberforum.ru/ turbo-pascal/ thread561055.html
по блок-схеме составить программу и вычислить результаты если плохо видно, то там корень из 3а в четвертой степени/ 3с пожалуйста помогите, умоляю! мне срочно нужно сделать , по информатике задали очень благодарна буду,только помогите:******
Turbo Pascal Обработка текстов. Определить порядковые номера заданных символов, заменить их пробелами Пожалуйста помогите, срочно нужно! Если не сложно напишите пожалуйста что бы было понятно,так как в этом чайник! =) ЗАДАЧА Обработка текстов Задан текст, состоящий из строк произвольной длины. Строки разделяются одним или несколькими символами, называемыми разделителями. Разделители одинаковы для всего текста. Текст заканчивается комбинацией двух специальных символов, отличных от разделителя.... https://www.cyberforum.ru/ turbo-pascal/ thread561042.html Определить сумму ряда (1+1/2*2)+(1+1/2*2)+...(1+1/N*2) Turbo Pascal
написать программу , определяющую сумму ряда (1+1/2*2)+(1+1/2*2)+...(1+1/N*2).число N ввести с клавиатуры.выдать результат на экран
Turbo Pascal Одномерный массив. Упорядочить массив по неубыванию с помощью алгоритма сортировки слияниями Помогите пожалуйста с этим "Упорядочить массив a1,a2,…,an по неубыванию с помощью алгоритма сортировки слияниями: -каждая пара соседних элементов сливается в одну группу из двух элементов (последняя группа может состоять из одного элемента); -каждая пара соседних двухэлементных групп сливается в одну четырехэлементную группу и т.д. При каждом слиянии новая укрупненная группа... https://www.cyberforum.ru/ turbo-pascal/ thread561026.html Turbo Pascal Обработка массивов. Заполнить новый массив элементами, которые есть хотя бы в одном из исходных Даны два массива: А(n) из n различных чисел и В(m) из m различных чисел. Получить новый массив, который cодержит элементы, которые есть хотя бы в одном мас¬сиве А или В (найти "объединение массивов"). Помогите пожалуйста! https://www.cyberforum.ru/ turbo-pascal/ thread560966.html
Сформировать квадратную матрицу n по заданному образцу Turbo Pascal
Помогите пожалуйста решить квадратную матрицу по заданному образцу 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 		Turbo Pascal График: f(x)= cos x -(4/15П)*cos 4x где -2П<=x<=4П с шагом h https://www.cyberforum.ru/ turbo-pascal/ thread560933.html
f(x)= cos x -(4/15П)*cos 4x где -2П<=x<=4П с шагом h заранее спасибо
Почетный модератор
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
24.05.2012, 21:34 0

Массив. Вывести элеметы с нечётными номерами в порядке убывания номеров - Turbo Pascal - Ответ 3076913

24.05.2012, 21:34. Показов 4420. Ответов 20
Метки (Все метки)
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

masa1, могу сделать только с вспомогательным массивом... пойдет?
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
30
31
32
33
34
35
36

uses crt;
const nmax=25;
var a,b: array [1..nmax] of integer;
    n,i,e,buf: integer;
    
begin
repeat
write('Количество элементов, не более ',nmax,', нечетное число, n=');
readln(n);
until (n in [1..nmax]) and (odd(n));
writeln('Исходный массив');
for i:=1 to n do
    begin
    a[i]:=random(19)-9;
    write(a[i]:3);
    end;
writeln;
writeln('Итоговый массив');
i:=n; e:=0;
while i>=1 do
      begin
      inc(e);
      b[e]:=a[i];
      i:=i-2;
      end;
i:=2;
while i<n do
      begin
      inc(e);
      b[e]:=a[i];
      i:=i+2;
      end;
for i:=1 to n do
    write(b[i]:3);
readln;
end.


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

Вывести вначале элементы массива с нечетными номерами в порядке возрастания номеров, затем - элементы с четными в порядке убывания номеров
дан массив А размера N.вывести вначале элементы с нечетными номерами в порядке возрастания...

Вывести элементы с нечетными номерами в порядке возрастания номеров, а затем - элементы с четными номерами в порядке убывания номеров
Дан массив A размера N. Вывести вначале его элементы с нечетными номерами в порядке возрастания...

Вывести элементы массива с нечетными номерами в порядке номеров
Дан массив А размера N(n - нечетное число). Вывести его элементы с нечетными номерами в порядке...

Массив: Вывести его элементы с нечетными номерами в порядке убывания номеров
Дан массив A размера N (N — нечетное число). Вывести его элементы с нечетными номерами в порядке...

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

Дан массив A размера N (N — нечетное число). Вывести его элементы с нечетными номерами в порядке убывания номеров: AN,
Дан массив A размера N (N — нечетное число). Вывести его элементы с нечетными номерами в порядке...

Вывести элементы массива с нечетными номерами в порядке убывания номеров
Оформить в виде функции. Дан массив А размера N (N-нечетное число). Вывести его элементы с...

Вывести элементы массива с нечетными номерами в порядке убывания номеров
Дан массив A размера N (N — нечетное число). Вывести его элементы с нечетными номерами в порядке...

Вывести элементы массива с нечетными номерами в порядке убывания номеров
помогите, пожалуйста!:help: Дано массив А размера n (n-нечетное число) вывести его элементы с...

Вывести элементы массива с нечетными номерами в порядке убывания номеров
Помогите пожалуйста,нужна программа.Пишу сама,выдает runtime error 105.Может знаете,что за ошибка?...

Вывести элементы массива с нечетными номерами в порядке убывания номеров
.Дан массив A размера N (N — нечетное число). Вывести его элементы с нечетными номерами в порядке...

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