Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Jail bait
0 / 0 / 1
Регистрация: 26.12.2013
Сообщений: 6
#1

1 курс. Тема: одномерные массивы. Программа работает, но не совсем точно выполняет то, что требуется в задании. Не знаю, как исправить код - Pascal ABC

26.12.2013, 16:07. Просмотров 219. Ответов 0
Метки нет (Все метки)

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
uses crt;
const
   n = 10;
type
   mas = array[1..n] of integer;
var
 
   a: mas;
   i: byte;
   temp: integer;
   rezult: integer;
 
begin
 
   rezult := 0;
   temp := a[1];
 
for i:=1 to n do
 
   a[i]:=random(15);
 
for i:=2 to n do
 
 
   if temp < a[i] then temp := a[i]
   else rezult := rezult + 1;
   writeln('вывод элементов массива:');
   for i:=1 to n do write(a[i]:5);
   writeln(' Ответ: ',rezult);
 
end.
Задание таково: "Дан массив A. Найдите наименьшее число элементов, которые нужно исключить из последовательности [1], [2], ..., [N], чтобы осталась возрастающая
последовательность."

Программа работает и выполняет эту задачу, но, увы, частично. Есть один косяк: с тем, чтобы исключить именно НАИМЕНЬШЕЕ число элементов, программа не очень-то справляется. Число выдает, в принципе, подходящее, но я, самостоятельно просмотрев последовательность, убеждаюсь, что возможны альтернативные варианты, которые более удовлетворяют условиям задания.
Количество элементов n и диапазон значений можно выставлять какой угодно, это не суть. А вот что делать с косяком? Покажите верный код, пожалуйста, или ошибку. Вообще нет идей.
http://www.cyberforum.ru/turbo-pascal/thread196071.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.12.2013, 16:07
Я подобрал для вас темы с готовыми решениями и ответами на вопрос 1 курс. Тема: одномерные массивы. Программа работает, но не совсем точно выполняет то, что требуется в задании. Не знаю, как исправить код (Pascal ABC):

Одномерные массивы. Все работает, вроде правильно. Как лучше организовать код!?
Задание: Ввести элементы одномерного массива размером 50 с использованием...

Не совсем понимаю, что нужно найти в задании.
Здравствуйте. Задание: Последовательность треугольных чисел строится по...

Подсобите исправить код, знаю, что есть ошибки
Посмотрите код, есть тут ляпы очевидные, некоторые я исправил, но еще надо...

тема: одномерные массивы
не могу сделать задачу.....помогите плиз ))))))) задача: переупорядочить...

Прошу исправить ошибки в задании. Массивы
Известны длины участков пути (в км), которые проехали 25 легковых автомобилей,...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.12.2013, 16:07
Привет! Вот еще темы с решениями:

Нужно разобраться тема: Одномерные массивы
Дан одномерный массив из N элементов. Вычислить сумму квадратов чисел,...

Создать форму по коду (Тема одномерные массивы)
unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils,...

Написала программу,не работает не знаю как исправить
Добрый вечер :з Задание: Определить,можно ли из символов заданной строки-a...

Не совсем понятно как работает такой код
Есть консольное приложение, которое при работе выводит данные. Непонятно как...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru