Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
30.04.2010, 14:06
|
|
Новичок
Регистрация: 09.03.2010
Сообщений: 3
Провел на форуме:
8042
Репутация:
3
|
|
Python
2 Robobit
Если я все правильно понял, то можно попробовать вот так:
PHP код:
# -*- coding: CP1251 -*-
check=0
#вводим размерность и элементы матрицы
n=input("введите количество строк: ")
m=input("введите количество столбцов: ")
matrix = [[input("введите элемент: ") for i in range(m)] for j in range(n)]
#функция пузырьковой сортировки
#(ей мы будем упорядочивать элементы строк)
def bubble(k):
for x in range(len(k)-1):
for y in range(len(k)-1-x):
if k[y]<k[y+1]:
k[y],k[y+1]=k[y+1],k[y]
return(k)
#если строка неупорядоченна, упорядочиваем
for d in range(n):
if str(matrix[d])!=str(bubble(matrix[d])):
print("первая неупорядоченная строка в упорядоченном виде:")
print(matrix[d])
check=3
break
#если неупорядоченных строк нету
#значит все строки упорядоченны
if check==0:
print("все строки упорядоченны!")
Код, однако, не претендует на рациональность... |
|
|
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..
|
|
|
|
03.05.2010, 14:10
|
|
Познающий
Регистрация: 14.08.2009
Сообщений: 51
Провел на форуме:
997316
Репутация:
123
|
|
Составьте на языке Паскаль программу вычисления суммы всех натуральных чисел, не превышающих заданного натурального числа N.
Последний раз редактировалось BELbIY; 03.05.2010 в 14:23..
|
|
|
|
03.05.2010, 14:41
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
Провел на форуме:
3055344
Репутация:
259
|
|
Сообщение от BELbIY
Составьте на языке Паскаль программу вычисления суммы всех натуральных чисел, не превышающих заданного натурального числа N.
PHP код:
var i,n,summ:integer;
begin
write('vvedite N =');
readln(n);
i:=1;
summ:=0;
while i<=n do begin
summ:=summ+i;
i:=i+1;
end;
writeln('summa=',summ);
readln;
end.
Последний раз редактировалось EndLeSSDre@M; 03.05.2010 в 14:44..
|
|
|
|
03.05.2010, 14:52
|
|
Познающий
Регистрация: 14.08.2009
Сообщений: 51
Провел на форуме:
997316
Репутация:
123
|
|
Сообщение от EndLeSSDre@M
PHP код:
var i,n,summ:integer;
begin
write('vvedite N =');
readln(n);
i:=1;
summ:=0;
while i<=n do begin
summ:=summ+i;
i:=i+1;
end;
writeln('summa=',summ);
readln;
end.
Спасибо. Работает)
|
|
|
|
03.05.2010, 15:48
|
|
Участник форума
Регистрация: 03.11.2009
Сообщений: 102
Провел на форуме:
1319431
Репутация:
22
|
|
собстено ето лаба но чатсь зделал
вот немного кода
class CDIALOGDlg : public CDialog
{
public:
CDIALOGDlg();
enum { IDD = IDD_DIALOG1 };
protected:
virtual void DoDataExchange(CDataExchange* pDX); // DDX/DDV support
// Implementation
protected:
DECLARE_MESSAGE_MAP()
public:
afx_msg void OnBnClickedCheck1();
// how long time client been in hotel
CString SecondName_String;
CString Adress_String;
int Phone_int;
int How_Many_Plays_int;
int How_Long_Stay_int;
};
CDIALOGDlg::CDIALOGDlg() : CDialog(CDIALOGDlg::IDD)
, SecondName_String(_T(""))
, Adress_String(_T(""))
, Phone_int(0)
, How_Many_Plays_int(0)
, How_Long_Stay_int(0)
{
}
void CDIALOGDlg:  oDataExchange(CDataExchange* pDX)
{
CDialog: oDataExchange(pDX);
DDX_Text(pDX, IDC_EDIT1, SecondName_String);
DDV_MaxChars(pDX, SecondName_String, 20);
DDX_Text(pDX, IDC_EDIT2, Adress_String);
DDX_Text(pDX, IDC_EDIT3, Phone_int);
DDV_MinMaxInt(pDX, Phone_int, 0, 15);
DDX_Text(pDX, IDC_EDIT4, How_Many_Plays_int);
DDV_MinMaxInt(pDX, How_Many_Plays_int, 1, 255);
DDX_Text(pDX, IDC_EDIT5, How_Long_Stay_int);
DDV_MinMaxInt(pDX, How_Long_Stay_int, 1, 365);
}
/////++++++++++++++++++++++++++++++++++++++++++++++++++ +++++++++++++++++++++++++++++++++++++++++++
BEGIN_MESSAGE_MAP(CDIALOGDlg, CDialog)
END_MESSAGE_MAP()
void CLab_8App::OnDIALOG1()
{
CDIALOGDlg DIALOGDlg;
DIALOGDlg.DoModal();
}
// App command to run the dialog
void CLab_8App::OnAppAbout()
{
CAboutDlg aboutDlg;
aboutDlg.DoModal();
} мне нада все данные принятые с диалога запомнить а после используя немного формул вывести на главное окно) таким вот способом
lass CMainWnd  ublic CFrameWnd // визначення класу головного вікна
{
private:
float value;
public:
CBitmap m_bmp;
CMainWnd();
void show_image();
DECLARE_MESSAGE_MAP();
};
BEGIN_MESSAGE_MAP(CMainWnd,CFrameWnd)
ON_COMMAND(ID_EXIT,OnClose)
ON_COMMAND(ID_IMAGE,show_image)
END_MESSAGE_MAP()
void CMainWnd::show_image()
{
InvalidateRect(NULL); //посылаем сообщение WM_PAINT
CPaintDC dc(this); //создать контекст устройства для вызова GDI -функции
CDC memDC; //создать контекст памяти для выбора информации из памяти
//создание контекста устройства памяти, совместимого с контекстом устройства GDI
memDC.CreateCompatibleDC(&dc);
memDC.SelectObject(&m_bmp); //выбор изображения в контекст области памяти
dc.StretchBlt(180,10,350,300,&memDC,0,0,300,300,SR CCOPY);
CString str="Снимок екрана\n";
dc.TextOutW(285,310,str,13);
}; но вот сюда нада передать значения с диалога
CString str="Снимок екрана\n";
как зделаь праильно-подскажыте(или литературу сам почитаю) |
|
|
|
04.05.2010, 13:49
|
|
Познающий
Регистрация: 29.03.2009
Сообщений: 87
Провел на форуме:
2185909
Репутация:
308
|
|
Необходимо написать на асме:
Деление модулей нормализованного и ненормализованного чисел, нулей, бесконечных величин и их комбинаций с округлением до нуля
Помогите, а? Перечитал уже множество всего по работе с плавающей точкой  |
|
|
|
05.05.2010, 07:26
|
|
Новичок
Регистрация: 04.05.2010
Сообщений: 5
Провел на форуме:
5709
Репутация:
0
|
|
1. создать файл, содержащий сведения о сотрудниках института:фам,имя,отчество, название отдела,год рождения,стаж работы,должность,тарифный коэффициент. Кол-во записей произвольное. Вывести в файл для печати: список сотрудников пенсионного возраста с указанием стажа работы, и список сотрудников указанного отдела.
С++, помогите девушке, которая будет вам очень благодарна. Сама в этом ни чего не понимаю.
|
|
|
|
06.05.2010, 11:49
|
|
Новичок
Регистрация: 05.05.2010
Сообщений: 3
Провел на форуме:
7450
Репутация:
0
|
|
напишите пожалуйста программу на С++: задан массив А(10)(10) определить: 1) количество строк, не содержащих ни одного нулевого элемента;
2) максимальное из чисел, встречающихся в матрице более одного раза.
|
|
|
|
06.05.2010, 14:53
|
|
Познающий
Регистрация: 08.12.2007
Сообщений: 92
Провел на форуме:
1216941
Репутация:
35
|
|
помогите с задачей,
"
Задача с аналитической геометрии:
В декартовой плоскости координатами концов задано два отрезка.
Найти найменший прямоугольник,который описывает два заданых отрезка,при этом одна из сторон найденого прямоугольника паралельна другому отрезку
"
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
![Аватар для [underwater]](/avatars/avatar81148.gif){kind=avatar}
Похожие темы
Линейный вид
