Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
19.11.2009, 20:38
|
|
Постоянный
Регистрация: 05.07.2008
Сообщений: 555
Провел на форуме:
3134311
Репутация:
1467
|
|
Сообщение от warkk
Задача на Паскале: ........, Если масисив не упорядочен, то определить длину упорядоченной часта массива.
я делаю так
Код:
t:=0;
for i:=0 to n do
begin
if m[i]<m[i+1] then k:=k+1
else
begin
if t<k then
begin
t:=k;
k:=1;
end
И если масив состоит из 12123123451
Выведет 5, т.к. это самая длинная упорядочена часть масива.
Но если 12123123456
То выведет 3, т.е. оно у меня не правильно считает, потому что не выполняется условие f m[i]<m[i+1]
Как сделать что бы нормально считало?
i:=2;
while (mas[i-1] <= mas[i] )and(i<=masLength) do
inc(i);
if i = 2 then write('dlina uporyad 1')
else write('dlina uporyad 1',i)
я бы делал примерно так.
|
|
|
20.11.2009, 01:43
|
|
Познающий
Регистрация: 25.03.2008
Сообщений: 65
Провел на форуме:
190034
Репутация:
3
|
|
Сообщение от G4bR1eL
Need backup. 
Массивы Pascal.
Задача:
Ввести 5 целых чисел, вывести на екран это число, корень этого числа и квадрат этого числа.
Код ввода возможно должен быть
Код:
for i:=1 to 5 do write (M[i]:5);
writeln
for j:=1 to 3 do write (M[j]:3);
writeln
Код вывода
Код:
for i:=1 to 5 do
begin
writeln;
end;
for j:=1 to 3 do write(M[i;j]:15);
Тоесть результатирующий вывод при компиляции программы должен быть вида:
Загружаем код. Осуществляем ввод чисел
(1
2
3
4
5)
Программа подсчитывает и выводит ответ в виде некой матрицы:
1 1 1
2 0,.. 4
3 sqrt(3) 9
4 ... ...
5 ... ...
1 столбик наши вводимые числа. 2ой - корни. 3 - квадраты. Кто поможет, не пожалею WMZ.
|
|
|
|
20.11.2009, 04:02
|
|
Reservists Of Antichat - Level 6
Регистрация: 25.04.2008
Сообщений: 827
Провел на форуме:
2769640
Репутация:
1304
|
|
warkk
Код:
t:=0;
for i:=0 to n-1 do
begin
if m[i]<m[i+1] then k:=k+1
else k:=1;
if t<k then t:=k;
end;
__________________
Любая действущая программа устарела.
Создайте систему, которой сможет пользоваться даже дурак ,и только дурак захочет ею пользоваться.
Как правильно задавать вопросы: _http://www.yakimchuk.ru/questions.htm
|
|
|
|
20.11.2009, 19:48
|
|
Познающий
Регистрация: 10.02.2009
Сообщений: 40
Провел на форуме:
59352
Репутация:
0
|
|
Turbo Pascal Дан массив размера N.Осуществить циклический сдвиг элементов массива вправо на одну позицию с запоминанием первого элемента исправте что неправильно.
var
a:array [1..100] of integer;
i,n,temp:integer;
begin
writeln('Vvedite n=');
readln(n);
writeln('Vvedite massiv');
for i:=1 to n do
readln (a[i]);
for i:=n downto 2 do
a[i]:=a[i-1];
for i:=1 to n do
i:=1;
temp:=a[i+1];
a[i+1]:=a[i];
temp:=a[n];
a[1]:=a[n];
writeln (a[i]);
readln;
end.
|
|
|
|
20.11.2009, 20:04
|
|
Постоянный
Регистрация: 31.07.2008
Сообщений: 370
Провел на форуме:
2866942
Репутация:
350
|
|
с запоминанием первого элемента
тобишь что бы можна было вызвать первый елемент старого масива?
исправте что неправильно.
а что собно не получается?
|
|
|
|
20.11.2009, 20:07
|
|
Познающий
Регистрация: 10.02.2009
Сообщений: 40
Провел на форуме:
59352
Репутация:
0
|
|
проверь в паскале там программа неправильно работает
|
|
|
|
20.11.2009, 20:14
|
|
Постоянный
Регистрация: 31.07.2008
Сообщений: 370
Провел на форуме:
2866942
Репутация:
350
|
|
сорри паскаль не стоит... в голове компилю
|
|
|
|
20.11.2009, 23:57
|
|
Постоянный
Регистрация: 05.07.2008
Сообщений: 555
Провел на форуме:
3134311
Репутация:
1467
|
|
G4bR1eL
подсичтывать результат надо так
for i:=1 to 5 do
writeln(val[i],' sqrt= ',sqrt(val[i]),' sqr= ', sqr(val[i]));
|
|
|
|
21.11.2009, 19:50
|
|
Участник форума
Регистрация: 20.02.2009
Сообщений: 183
Провел на форуме:
719582
Репутация:
50
|
|
2 >>serhio<<
Ну сдесь
for i:=1 to n do
i:=1;
temp:=a[i+1];
a[i+1]:=a[i];
temp:=a[n];
a[1]:=a[n];
writeln (a[i]);
В цикле у тебя выполнятеся только i:=1 тобишь после
for i:=1 to n do нужен begin end;
И я не пойму зачем ты в цикле каждый раз присваиваешь переменной i значение одиницы?
И что ты пытаешся сделать в этой чати?
temp:=a[i+1];
a[i+1]:=a[i];
temp:=a[n];
a[1]:=a[n];
Последний раз редактировалось warkk; 21.11.2009 в 19:53..
|
|
|
|
22.11.2009, 18:07
|
|
Познающий
Регистрация: 19.06.2009
Сообщений: 62
Провел на форуме:
326503
Репутация:
-5
|
|
Дана строка s, содержащая от 2 до 25 слов, в каждом из которых от 1 до 8
строчных латинских букв. Между соседними словами стоит не менее одного
пробела, за последним словом - точка. Напечатайте слова строки, которые
отличны от последнего слова и первая буква слова входит в него еще раз.
Нужно написать на СИ. Спасибо заранее.
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
