Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
28.04.2010, 23:43
|
|
Новичок
Регистрация: 28.04.2010
Сообщений: 1
Провел на форуме:
19174
Репутация:
0
|
|
доброго времени суток, помогите плз с задачами:
1.Вставить нулевую строку и нулевой столбец перед строками и столбцами, где находятся минимальные элементы.
2.Поменять местами каждые две строки массива.
3.Удалите строки, содержащие более одного максимального элемента, а затем столбцы, сумма элементов которых равна заданному числу. Если такого столбца или строки нет, то вывести сообщение об этом.
4.Удалите строки, содержащие ноль, а затем столбцы, в которых только отрицательные элементы.Если такого столбца или строки нет, то вывести сообщение об этом.
|
|
|
29.04.2010, 00:47
|
|
Участник форума
Регистрация: 25.02.2009
Сообщений: 110
Провел на форуме:
498761
Репутация:
7
|
|
Pascal
определить каких элементов в массиве больше положительных отрицательных или нулевых
|
|
|
|
29.04.2010, 01:07
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
Провел на форуме:
3055344
Репутация:
259
|
|
Сообщение от meisterr
Pascal
определить каких элементов в массиве больше положительных отрицательных или нулевых
PHP код:
uses crt;
var
p,o,n,i:integer;
begin
clrscr;
for i:=1 to n do
begin
if a[i]>0 then p:=p+1;
if a[i]<0 then o:=o+1;
if a[i]=0 then n:=n+1;
end;
if (p>o) and (p>n) then writeln('bolshe polojatelnih');
if (o>p) and (o>n) then writeln('bolshe otricatelnih');
if (n>p) and (n>o) then writeln('bolshe nulevih');
readln;
end.
|
|
|
|
29.04.2010, 16:54
|
|
Новичок
Регистрация: 13.09.2009
Сообщений: 5
Провел на форуме:
164267
Репутация:
0
|
|
Pascal
Условие: Ввести строку, найти все символы которые встречаются в словах либо только с четными, либо только с нечетными порядковыми номерами.
Код:
Пример: мама мыла раму поэтому снег выпал
буква Ы встречается только в четных словах 2 и 6. Значит она нам подходит.
аналогично буквы
Р (только в 3 нечетном слове)
Э (только в 4 четном слове)
С (только в 5 нечетном слове)
В (только в 6 четном слове)
Л (во 2 и 6 четных словах)
П (в 4 и 6 четных словах)
T (в 4 слове)
O (в 4 слове)
Значит программа должна вывести нам буквы Ы Р Э С В Л П Т O.
Задачу нужно решить с использованием множеств.
Последний раз редактировалось Bengl; 29.04.2010 в 17:53..
|
|
|
|
02.05.2010, 13:38
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
Провел на форуме:
3055344
Репутация:
259
|
|
Сообщение от Bengl
Pascal
Условие: Ввести строку, найти все символы которые встречаются в словах либо только с четными, либо только с нечетными порядковыми номерами.
Код:
Пример: мама мыла раму поэтому снег выпал
буква Ы встречается только в четных словах 2 и 6. Значит она нам подходит.
аналогично буквы
Р (только в 3 нечетном слове)
Э (только в 4 четном слове)
С (только в 5 нечетном слове)
В (только в 6 четном слове)
Л (во 2 и 6 четных словах)
П (в 4 и 6 четных словах)
T (в 4 слове)
O (в 4 слове)
Значит программа должна вывести нам буквы Ы Р Э С В Л П Т O.
Задачу нужно решить с использованием множеств.Дело было вечером, делать было нечего))))
задачка была интересная, поэтому решил ее добить))) вот код, токо хз на счет рациональности))) первый раз такую делаю! но работает, это точно)))
PHP код:
var bukvi: set of char;
stroka,str,v,m:string;
a,u,i,x,y,e1,e2,k:integer;
s:array[1..100] of string;
q:array[1..100] of integer;
t:char;
label metka;
begin
bukvi:=[];
write('vvedite stroku: ');
readln(stroka);
str:=stroka;
a:=1;
k:=1;
y:=0;
e1:=0;
e2:=0;
while str<>'' do
begin
a:=pos(' ',str);
if a=0 then a:=length(str);
s[k]:=copy(str,1,a);
delete(str,1,a);
k:=k+1;
end;
for i:=1 to length(stroka) do
begin
t:=stroka[i];
if t in bukvi then goto metka;
for u:=1 to k do
begin
x:=pos(t,s[u]);
if x<>0 then
begin
y:=y+1;
q[y]:=u;
end;
end;
for u:=1 to y do
begin
if q[u] mod 2=0 then e1:=e1+1;
if q[u] mod 2<>0 then e2:=e2+1;
end;
if (e1=y) or (e2=y) then
begin
include(bukvi,t);
m:=m+t+' ';
end;
e1:=0;
e2:=0;
y:=0;
metka: end;
writeln(m);
readln;
end.
И скорее всего, код не читаемый))) но рабочий это проверено!
По больше бы таких задачек тут))
Последний раз редактировалось EndLeSSDre@M; 02.05.2010 в 13:43..
|
|
|
|
29.04.2010, 21:06
|
|
Познающий
Регистрация: 07.06.2009
Сообщений: 30
Провел на форуме:
205687
Репутация:
0
|
|
Ребята, помогите создать цикл, чета голова совсем неработает )
Вобщем:
в едит1 вводим число - пусть будет 3
в едит2 нужно вывести числа через "," по этой формуле = 2^n (n-число которое вводим в едит1) т.е. должны получить такие числа в едит2: 2^0, 2^1, 2^2, 2^3.
|
|
|
|
29.04.2010, 22:14
|
|
Новичок
Регистрация: 16.03.2010
Сообщений: 6
Провел на форуме:
11714
Репутация:
0
|
|
Здравствуйте!
Пожалуйста помогите выполнить лабораторную работу на любом языке.
Тема:Массивы
Цел работы - программирование задач на одномерные и двумерные массивы
Задана матрица размерностью n*m.
Проверить, все ли строки матрицы упорядоченны по убыванию. Если нет, найти первую неупорядоченную строку и упорядоченную.
|
|
|
|
29.04.2010, 23:42
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
Провел на форуме:
3055344
Репутация:
259
|
|
Сообщение от Ss[x]dD
Ребята, помогите создать цикл, чета голова совсем неработает )
Вобщем:
в едит1 вводим число - пусть будет 3
в едит2 нужно вывести числа через "," по этой формуле = 2^n (n-число которое вводим в едит1) т.е. должны получить такие числа в едит2: 2^0, 2^1, 2^2, 2^3.
PHP код:
procedure TForm1.Button1Click(Sender: TObject);
var n,s,i,k:integer;
t:string;
begin
n:=strtoint(edit1.text);
s:=1;
for i:=0 to n do
begin
for k:=1 to i do
begin
s:=s*2;
end;
t:=t+inttostr(s)+',';
s:=1;
end;
edit2.text:=t;
end;
end.
Сообщение от Robobit
Здравствуйте!
Пожалуйста помогите выполнить лабораторную работу на любом языке.
Тема:Массивы
Цел работы - программирование задач на одномерные и двумерные массивы
Задана матрица размерностью n*m.
Проверить, все ли строки матрицы упорядоченны по убыванию. Если нет, найти первую неупорядоченную строку и упорядоченную.
В каком смысле упорядочены строки по убыванию??? Может элементы в строках? не?
|
|
|
|
29.04.2010, 23:52
|
|
Новичок
Регистрация: 24.03.2009
Сообщений: 18
Провел на форуме:
147876
Репутация:
12
|
|
Ребят, нужно вкратце объяснить задачку по теории автоматов.
Составить цепочку из символов а и b , длина которых кратна трем.
Как этО?
|
|
|
|
30.04.2010, 10:17
|
|
Новичок
Регистрация: 16.03.2010
Сообщений: 6
Провел на форуме:
11714
Репутация:
0
|
|
EndLeSSDre@M
Извиняюсь, я ошибся.
Проверить, все ли строки матрицы упорядоченны по убыванию. Если нет, найти первую неупорядоченную строку и упорядочить.
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
![Аватар для Ss[x]dD](/avatars/avatar87396.gif){kind=avatar}
Похожие темы
Комбинированный вид