|
|
| Другие темы раздела | |
| Turbo Pascal Написание программы с использованием перечисляемого типа данных Написать программу с использованием перечисляемого типа данных mes=(dec, yan, ..., noyab). Необходимо в зависимости от времени года (величина которого яв-ся исходной информацией) вевести некоторую информацию. Но это не столь важно. Помогите исправить ошибку! Выдает Error 39 : Ordinal expression expected! Program Tipy_dannyh; var res, mes,dec, yan, fev, mart, apr, mai, iun, iul, avg, sent,... https://www.cyberforum.ru/ turbo-pascal/ thread534188.html |
Составить блок-схемы к нескольким программам Turbo Pascal 1) program sortirovka_obmenom; uses crt; const n=5; var i,k,j:integer; a:array of integer; begin Clrscr; for i:=1 to n do begin write('vvedite a='); readln (a); |
|
Turbo Pascal Сформировать новый массив B того же размера по следующему правилу
https://www.cyberforum.ru/ turbo-pascal/ thread534151.html Дан массив А размера N.Сформулировать новый массив B того же размера по следующему правилу: Элемент Bk равен сумме элементов массива A с номерами от K до N. Заранее спасибо! |
Turbo Pascal Вычислить значение у.
https://www.cyberforum.ru/ turbo-pascal/ thread534139.html Помогите с задачей. Как можно представить эту формулу? |
|
Переделать программу Turbo Pascal Ребят, помогите переделать программу: Есть аналогичная прога, её нужно переделать(смотрим на вложенную картинку) Program HaHaKurs; uses Graph,crt; const A=15; T=0.16; n=131; z=27; type masivka=arrayof double; var Gd,Gm:integer; |
Turbo Pascal Вычислить значение выражения, записанного в стеке польской записью. fw=32 бит; Nr=3; Fk={S1,S2; R,S}; Nop=1,2. k1: команда извлечения элемента из стека; k2: команда выполнения арифметических операций +, -, *, / для любых целых аргументов; k3: команда чтения слова памяти. Задача. Вычислить значение выражения, записанного в стеке польской записью. помогите чем сможете!!! https://www.cyberforum.ru/ turbo-pascal/ thread534114.html |
| Turbo Pascal Игра "flip", странные ошибки при некоторых результатах При изменении одной карточки так же меняются 4 по бокам. Задача - перевернуть все сразу. Типа такого http://flashplayer.ru/play_7309.php Вроде всё написала, но при некоторых значениях программу перекашивает и никакие clrscr не помогают 1 1 3 1 4 1(вылетает весь паскаль) 9 1 uses crt; https://www.cyberforum.ru/ turbo-pascal/ thread534112.html |
Turbo Pascal Определить существование и тип треугольника Здравствуйте дорогие мои. Прошу вашей помощи. Условие задачи: написать программу, которая при заданных трех числах выводила следующее: Треугольник существует/ не существует, треугольник прямоугольный/ не прямоугольный, треугольник равносторонний/ не равносторонний. Задачу составила. Вот код: Program Treygolnik; var a, b, c: real; begin writeln ('Vvedite koordinaty tochek'); readln (a, b, c);... |
| Turbo Pascal Вывести на экран все компьютеры, у которых стоимость ниже среднего арифметического стоимостей. С клавиатуры вводится информация о компьютерах: Марка, производитель, цена. Вывести на экран все компьютеры, у которых стоимость ниже среднего арифметического стоимостей. 2) в этой же программе, добавить сортировку алфавитном порядке по 1 и 2 пункту( т.е. Марка и производитель) 3) Придумать, какую информацию можно хранить в этой программе с использование записей с вариантами. Добавить это в... https://www.cyberforum.ru/ turbo-pascal/ thread534096.html | Turbo Pascal Вычислить площади треугольников, заданных координатами своих вершин Подпрограммы Два треугольника заданы координатами своих вершин. Вычислить их площади по формуле S=1/2((Х2-Х1)(Y3-Y1)-(X3-X1)(Y2-Y1)) и определить, какой из них имеет большую площадь. https://www.cyberforum.ru/ turbo-pascal/ thread534094.html |
|
Turbo Pascal Вычислить сумму используя операторы for, while и repeat Вычислить сумму s= "суммарное" от 1 до 5 n^2+ "суммарное" от 1 до 12 n^3 Через for получилось так Через while не пойму как соединить между собой forn:= 1 to 5 do и forn:= 1 to 12 do.. ведь "while" не может повторяться несколько раз? Помогите пожалуйста! и через repeat, если можете, напишите тоже |
Turbo Pascal Найти номер его локального максимума Дан массив размера N. Найти номер его локального максимума (локальный максимум - это элемент, который больше любого из своих соседей). https://www.cyberforum.ru/ turbo-pascal/ thread534064.html |
|
3030 / 1916 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
|
|
| 29.03.2012, 22:24 | 0 |
Одномерный массив. Вывести его элементы с четными номерами в порядке возрастания номеров - Turbo Pascal - Ответ 285208029.03.2012, 22:24. Показов 2196. Ответов 9
Метки (Все метки)
Ответ
Вместо Inc(i) поставьте i:=i+1;
Вернуться к обсуждению: Одномерный массив. Вывести его элементы с четными номерами в порядке возрастания номеров Turbo Pascal
1
|
|
| 29.03.2012, 22:24 | |
|
Готовые ответы и решения:
9
Дан массив. Вывести его элементы с четными номерами в порядке возрастания номеров
|
| 29.03.2012, 22:24 | |
| 29.03.2012, 22:24 | |
|
Помогаю со студенческими работами здесь
0
Вывести его элементы с нечетными номерами в порядке возрастания номеров А2, А4,А6,…А N.
Вывести элементы массива с четными номерами в порядке возрастания номеров
|