Программирование ver 4.1

KotZhilkina · 27 мая 2013

Картошкаграммист

potatogrammer

НУ ОК, ОБЪЯСНЯЮ

KOL ЭТО ВИДИМО COL - КОЛОНКА

GEN ЭТО ВИДИМО КАКОЙ-ТО ГЕНЕРАТОР

TEMP ЭТО ВИДИМО ЧТО-ТО ВРЕМЕННОЕ

дальше ванга сломалась, сори

kol - key object library - http://kolmck.net/

Kolya.Ebashu · 27 мая 2013

откуда столько задач по паскалю, еге? 1 курс?

justice_st · 27 мая 2013

экзамены скоро, лабы сдают

27 мая 2013

я вам тут константы для жаваскрипта накатал, не думаю что кому-то пригодится, мне просто делать нечего

var Const = (function(){
   var consts = {};

   function set (name, value) {
    if(typeof consts[name] !== "undefined") {
	    throw Error('Const already exist');
    }

    consts[name] = value;
   }
   function get (name) {
    return consts[name];
   }

   function _ (name, value) {
    if(typeof value === "undefined") {
	    return get(name);
    }

    return set(name, value);
   }

   return _;
}());
Const('RUBY', 'Govno');
console.log(Const('RUBY'))
try {
   Const('RUBY', 'Norm');
}
catch(e) {
   console.log('Ruby ne norm a %s', Const('RUBY'));
}

вывод:

Govno

Ruby ne norm a Govno

KotZhilkina · 27 мая 2013

а вот и еще одно доказательство:

константа RUBY использует ужасающее количество памяти

вывод:

Ruby ne norm a Govno

27 мая 2013

константа RUBY использует ужасающее количество памяти

да ну, не выдумывай. Она конечно не прямо хранится в памяти как константа в низкоуровневых языках, но тем не менее жрать она много не может

ну в смысле на деле это переменная с кучей свойств, так что не просто строка а можно сказать - объект

KotZhilkina · 27 мая 2013

константа RUBY использует ужасающее количество памяти
да ну, не выдумывай. Она конечно не прямо хранится в памяти как константа в низкоуровневых языках, но тем не менее жрать она много не может

ну в смысле на деле это переменная с кучей свойств, так что не просто строка а можно сказать - объект

ужасающее <> большое

ужасающее <> малое

ужасающее = ужасающее

вывод:

Ruby ne norm a Govno

27 мая 2013

зачем ты используешь sql?

KotZhilkina · 27 мая 2013

зачем ты используешь sql?

так у меня Access же, VBA там и все такое - ну ты в курсе...

Option Compare Database
Option Explicit
Public Sub FixAccessSecuritySettings()

   LibRegistry.AddKey "HKCU", "Software\Microsoft\Office\&Access.Version\Access\Security", "Level", "REG_DWORD", "1"
   LibRegistry.AddKey "HKCU", "Software\Microsoft\Office\&Access.Version\Access\Security\Trusted Locations\Offline Inventory Reports - Application", "Description", "REG_SZ", "Offline Inventory Reports - Application"
   LibRegistry.AddKey "HKCU", "Software\Microsoft\Office\&Access.Version\Access\Security\Trusted Locations\Offline Inventory Reports - Application", "Path", "REG_SZ", "&CoXSymbolPath"
   LibRegistry.AddKey "HKCU", "Software\Microsoft\Office\&Access.Version\Access\Security\Trusted Locations\Offline Inventory Reports - Backup", "Description", "REG_SZ", "Offline Inventory Reports - Backup"
   LibRegistry.AddKey "HKCU", "Software\Microsoft\Office\&Access.Version\Access\Security\Trusted Locations\Offline Inventory Reports - Backup", "Path", "REG_SZ", "&BackupPath"

End Sub
Public Sub RegisterDBEngine()

   'Fix for OLE automation error 430
   LibWindows.RunExecutable "Regsvr32.exe /S /U ""&DAOPath&DAO350File"""
   LibWindows.RunExecutable "Regsvr32.exe /S ""&DAOPath&DAO350File"""
   LibWindows.RunExecutable "Regsvr32.exe /S /U ""&DAOPath&DAO360File"""
   LibWindows.RunExecutable "Regsvr32.exe /S ""&DAOPath&DAO360File"""

End Sub
Public Sub SetDefaultPrinter()

   On Error Resume Next
   Set Application.Printer = Printers.Item(LibApp.OptionGet("Default Printer"))
   On Error GoTo 0

End Sub
Public Sub RunQuery(ByVal sQueryName As String)

   sQueryName = T(sQueryName)
   DoCmd.OpenQuery sQueryName, acViewNormal, acEdit

End Sub
Public Sub RunSQL(ByVal sSQLString As String)

   On Error GoTo ErrorCode

   sSQLString = T(sSQLString)
   'MsgBox sSQLString
   DoCmd.RunSQL sSQLString

ExitCode:
   On Error Resume Next
   Exit Sub

ErrorCode:
   MsgBox "Error " & Err.Number & " in " & Err.Source & ": " & Err.Description, vbCritical, "LibDatabase.RunSQL"
   Resume ExitCode

End Sub
Public Sub ClearTable(ByVal sTableName As String)

   sTableName = T(sTableName)
   If TableExists(sTableName) Then
    DoCmd.RunSQL "DELETE * FROM " & sTableName
   End If

End Sub
Public Sub DeleteTable(ByVal sTableName As String)

   sTableName = T(sTableName)
   If TableExists(sTableName) Then
    DoCmd.RunSQL "DROP TABLE " & sTableName
   End If

End Sub
Public Sub DeleteQuery(ByVal sQueryName As String)

   sQueryName = T(sQueryName)
   If QueryExists(sQueryName) Then
    DoCmd.DeleteObject acQuery, sQueryName
   End If

End Sub
Public Sub LinkTable(ByVal sTableName As String, ByVal sPath As String, ByVal sSpecName As String)

   sTableName = T(sTableName)
   sPath = T(sPath)
   sSpecName = T(sSpecName)

   If PathExists(sPath) Then
    Select Case sSpecName
	    Case "CSV_OIRMMS", "CSV_OIRPDT":
		    DoCmd.TransferText acLinkDelim, sSpecName, sTableName, sPath, True
	    Case Else:
		    '
    End Select
   Else
    '
   End If

End Sub
Public Sub RefreshLinkedTable(ByVal sTableName As String)

   sTableName = T(sTableName)
   If TableExists(sTableName) Then
    CurrentDb.TableDefs(sTableName).RefreshLink
   End If

End Sub
Public Sub CreateDatabase(ByVal sDatabasePath As String)

   sDatabasePath = T(sDatabasePath)
   If LibFiles.PathExists(sDatabasePath) Then
    '
   Else
    Dim dbsNew As Database
    Set dbsNew = DBEngine.Workspaces(0).CreateDatabase(sDatabasePath, dbLangGeneral)
    dbsNew.Close
   End If

End Sub
Public Function QueryExists(ByVal sQueryName As String) As Boolean

   sQueryName = T(sQueryName)

   Dim sQueryNameCheck
   On Error GoTo ErrorCode

   sQueryNameCheck = CurrentDb.QueryDefs(sQueryName)
   QueryExists = True

ExitCode:
   On Error Resume Next
   Exit Function

ErrorCode:
   Select Case Err.Number
    Case 3265  'Item not found in this collection
	    QueryExists = False
	    Resume ExitCode
    Case Else
	    MsgBox "Error " & Err.Number & ": " & Err.Description, vbCritical, "hlfUtils.TableExists"
	    Resume ExitCode
   End Select

End Function
Public Function TableExists(ByVal sTableName As String) As Boolean

   sTableName = T(sTableName)

   Dim sTableNameCheck
   On Error GoTo ErrorCode

   sTableNameCheck = CurrentDb.TableDefs(sTableName)
   TableExists = True

ExitCode:
   On Error Resume Next
   Exit Function

ErrorCode:
   Select Case Err.Number
    Case 3265  'Item not found in this collection
	    TableExists = False
	    Resume ExitCode
    Case Else
	    MsgBox "Error " & Err.Number & ": " & Err.Description, vbCritical, "hlfUtils.TableExists"
	    Resume ExitCode
   End Select
End Function
Public Function Concatenate(sSQL As String, Optional sDelimeter As String = ", ") As String
'Created by Duane Hookom, 2003
'this code may be included in any application/mdb providing this statement is left intact
'example
'tblFamily with FamID as numeric primary key
'tblFamMem with FamID, FirstName, DOB,...
'return a comma separated list of FirstNames
'for a FamID
' John, Mary, Susan
'in a Query
'SELECT FamID,
'Concatenate("SELECT FirstName FROM tblFamMem
' WHERE FamID =" & [FamID]) as FirstNames
'FROM tblFamily
'

'======For DAO uncomment next 4 lines=======
'====== comment out ADO below =======
   'Dim db As DAO.Database
   'Dim rs As DAO.Recordset
   'Set db = CurrentDb
   'Set rs = db.OpenRecordset(pstrSQL)

'======For ADO uncomment next two lines=====
'====== comment out DAO above ======
   Concatenate = ""
   Dim rs As New ADODB.Recordset
   rs.Open sSQL, CurrentProject.Connection, _
   adOpenKeyset, adLockOptimistic
   With rs
    If Not .EOF Then
	    .MoveFirst
	    Do While Not .EOF
		    Concatenate = Concatenate & _
		    .Fields(0) & sDelimeter
		    .MoveNext
	    Loop
    End If
    .Close
   End With
   Set rs = Nothing
'====== uncomment next line for DAO ========
   'Set db = Nothing
   If Len(Concatenate) > 0 Then
    Concatenate = Left(Concatenate, _
    Len(Concatenate) - Len(sDelimeter))
   End If
End Function
Public Sub OpenReport(ByVal sReportName As String, ByVal sWhereCondition As String)

   sReportName = T(sReportName)
   sWhereCondition = T(sWhereCondition)

   If LibApp.OptionGet("Reports Print Immediately") = True Then
    DoCmd.OpenReport sReportName, acNormal, sWhereCondition
   Else
    DoCmd.OpenReport sReportName, acPreview, sWhereCondition
   End If

End Sub

Airfol · 27 мая 2013

ого, кант а С4 егэ умеешь?

**Kant** · 27 мая 2013

я не с рашки и понятия не имею, что у вас там в егэ вообще творится

Prejudice · 27 мая 2013

пацаны, вы - моя последняя надежда

надо завтра сдать лабу, у меня уже 3 утра и я нихуя не могу сделать

задача

Написать на с++ программу, определяющую для матрицы случайных чисел m*n произведение элементов каждой строки.

Сформировать массив D из найденных произведений.

Написать функции:

заполнения двумерного массива случайными числами в диапазоне от 0 до 100
вывода двумерного массива
поиска произведения элементов строки матрицы

код

#include<iostream>
#include<math.h>
using namespace std;

void fill(int** ,int ,int );
void output(int** ,int ,int );
void mult(int** ,int ,int ,int* );

void main(int n, int m)
{
setlocale(0,"");
cout<<"Введите количество строк в массиве"<<endl;
cin>>n;
cout<<"Введите количество столбцов в массиве"<<endl;
cin>>m;

int** mas=new int*[n];
for(int i=0;i<n;i++)
mas[i]=new int[m];

int* D=new int[m];

fill(mas,n,m);
cout<<"Сформированный массив:"<<endl;
output(mas,n,m);
mult(mas,n,m,D);
delete[]mas;

cout<<"Массив произведений элементов каждой строки:"<<endl;
for(int i=0;i<n;i++)
cout<<D[i]<<endl;
}

void fill(int **mas, int n, int m)
{
for(int i=0;i<n;i++)
{
for(int j=0;j<m;j++)
*(*(mas+i)+j)=rand()%101;
}
}

void output(int **mas, int n, int m)
{
for(int i=0;i<n;i++)
{
for(int j=0;j<m;j++)
cout<<(*(*(mas+i)+j))<<"	";
cout<<endl;
}
}



void mult(int **mas, int n, int m, int* D)
{
       for (int i=0;i<n;i++)
       {
               int P=1;
               for(int j=0;j<m;j++)
               {
                       P*=mas[i][j];
               }
               D[i]=P;
       }
}

Создание и вывод массива офк работают, а вот самая суть, произведение и формирование нового массива, нихуя.

Закрыл комментариями все что требует доработки, а именно функцию поиска произведений и все что с ней связано в мейне.

Кому не трудно, поправьте плиз ИМЕННО ЭТОТ КОД (иначе я хуй защищу завтра) так, чтобы работало. С утреца гляну (ну или в ближайшие пол часа, если кто нибудь поможет так оперативно).

Заранее спасибо.

Изменено 28 мая 2013 пользователем excuse.me

TheDeadSkin · 27 мая 2013

эх, знал бы я ещё нормально синтаксис с++

Изменено 27 мая 2013 пользователем TheDeadSkin

Slarky · 27 мая 2013

Закрыл паскаль на 92 бала . Спасибо разделу и лично Канту за это

**Kant** · 27 мая 2013

пацаны, вы - моя последняя надежда
надо завтра сдать лабу, у меня уже 3 утра и я нихуя не могу сделать

задача

Написать на с++ программу, определяющую для матрицы случайных чисел m*n произведение элементов каждой строки.
Сформировать массив D из найденных произведений.
Написать функции:
заполнения двумерного массива случайными числами в диапазоне от 0 до 100
вывода двумерного массива
поиска произведения элементов строки матрицы
код
#include<iostream>
#include<math.h>
using namespace std;
void fill(int** ,int ,int );
void output(int** ,int ,int );
int mult(int** ,int ,int );
void main(int n, int m)
{
setlocale(0,"");
cout<<"Введите количество строк в массиве"<<endl;
cin>>n;
cout<<"Введите количество столбцов в массиве"<<endl;
cin>>m;

int** mas=new int*[n];
for(int i=0;i<n;i++)
mas[i]=new int[m];
fill(mas,n,m);
cout<<"Сформированный массив:"<<endl;
output(mas,n,m);
/*int** D=new int*[n];
for(int i=0;i<n;i++)
mas[i]=new int[m];
{
 for(int j=0;j<m;j++)
 *(*(mas+i)+j)=mult(mas,n,m);
}*/

delete[]mas;
cout<<"Массив произведений элементов каждой строки:"<<endl;
//output(D,1,m);
}
void fill(int **mas, int n, int m)
{
for(int i=0;i<n;i++)
{
 for(int j=0;j<m;j++)
 *(*(mas+i)+j)=rand()%101;
}
}
void output(int **mas, int n, int m)
{
for(int i=0;i<n;i++)
{
 for(int j=0;j<m;j++)
 cout<<(*(*(mas+i)+j))<<"	";
 cout<<endl;
}
}

/*
int mult(int **mas, int n, int m)
{
int P=1;
for(int i=0;i<n-1;i++)
{
 for(int j=0;j<m;j++)
 P=P*(*(*(mas+i)+j));
}
return P;
}*/
Создание и вывод массива офк работают, а вот самая суть, произведение и формирование нового массива, нихуя.
Закрыл комментариями все что требует доработки, а именно функцию поиска произведений и все что с ней связано в мейне.
Кому не трудно, поправьте плиз ИМЕННО ЭТОТ КОД (иначе я хуй защищу завтра) так, чтобы работало. С утреца гляну (ну или в ближайшие пол часа, если кто нибудь поможет так оперативно).
Заранее спасибо.

#include <stdlib.h>
#include <time.h>
#include <iostream>
#include <iomanip>
using namespace std;
int** matrix;
long long* D;
int m, n;  //m - строки, n - столбцы

void FillMatrix();
void PrintMatrix();
void FindMult();
int main()
{
   cout << "Enter m and n:" << endl;
   cin >> m;
   cin >> n;
   matrix = (int**)malloc(m*sizeof(int*));
   for (int i = 0; i < m; i++)
   {
       matrix[i] = (int*)malloc(n*sizeof(int));
   }
   D = (long long*)malloc(m*sizeof(long long));

   FillMatrix();
   PrintMatrix();

   FindMult();
   cout << "Multiplication result:" << endl;
   for (int i = 0; i < m; i++)
   {
       cout << D[i] << endl;
   }
   for (int i = 0; i < m; i++)
   {
       free(matrix[i]);
   }
   free(matrix);
   free(D);

   system("pause");
   return 0;
}

void FillMatrix()
{
   srand(time(NULL));
   for (int i = 0; i < m; i++)
   {
       for (int j = 0; j < n; j++)
       {
           matrix[i][j] = rand() % 101;
       }
   }
}

void PrintMatrix()
{
   cout << "Your matrix" << endl;
   cout << "-----------------------------------------------" << endl;
   for (int i = 0; i < m; i++)
   {
       for (int j = 0; j < n; j++)
       {
           cout << setw(3) << matrix[i][j] << " ";
       }
       cout << endl;
   }
   cout << "-----------------------------------------------" << endl;
}

void FindMult()
{
   for (int i = 0; i < m; i++)
   {
       long long mul = 1;
       for (int j = 0; j < n; j++)
       {
           mul *= matrix[i][j];
       }
       D[i] = mul;
   }
}

я все переписал, ибо у тебя там какая-то хуйня местами.

Изменено 27 мая 2013 пользователем Kant

Обязательное_поле · 27 мая 2013

Кант, почему ты всем помогаешь?

Изменено 27 мая 2013 пользователем Обязательное_поле

**Kant** · 27 мая 2013

потому что я готов заниматься чем угодно, лишь бы не писать свои лабы по мча

SPYHunter · 27 мая 2013

потому что я готов заниматься чем угодно, лишь бы не писать свои лабы по мча

Тру стори блять :fffuuu:

Prejudice · 28 мая 2013

Кант, ты просто корол :pray:

спасибо огромное

100ker · 28 мая 2013

пацаны, вы - моя последняя надежда
надо завтра сдать лабу, у меня уже 3 утра и я нихуя не могу сделать

задача

Написать на с++ программу, определяющую для матрицы случайных чисел m*n произведение элементов каждой строки.
Сформировать массив D из найденных произведений.
Написать функции:
заполнения двумерного массива случайными числами в диапазоне от 0 до 100
вывода двумерного массива
поиска произведения элементов строки матрицы
код
#include<iostream>
#include<math.h>
using namespace std;
void fill(int** ,int ,int );
void output(int** ,int ,int );
int mult(int** ,int ,int );
void main(int n, int m)
{
setlocale(0,"");
cout<<"Введите количество строк в массиве"<<endl;
cin>>n;
cout<<"Введите количество столбцов в массиве"<<endl;
cin>>m;

int** mas=new int*[n];
for(int i=0;i<n;i++)
mas[i]=new int[m];
fill(mas,n,m);
cout<<"Сформированный массив:"<<endl;
output(mas,n,m);
/*int** D=new int*[n];
for(int i=0;i<n;i++)
mas[i]=new int[m];
{
 for(int j=0;j<m;j++)
 *(*(mas+i)+j)=mult(mas,n,m);
}*/

delete[]mas;
cout<<"Массив произведений элементов каждой строки:"<<endl;
//output(D,1,m);
}
void fill(int **mas, int n, int m)
{
for(int i=0;i<n;i++)
{
 for(int j=0;j<m;j++)
 *(*(mas+i)+j)=rand()%101;
}
}
void output(int **mas, int n, int m)
{
for(int i=0;i<n;i++)
{
 for(int j=0;j<m;j++)
 cout<<(*(*(mas+i)+j))<<"	";
 cout<<endl;
}
}

/*
int mult(int **mas, int n, int m)
{
int P=1;
for(int i=0;i<n-1;i++)
{
 for(int j=0;j<m;j++)
 P=P*(*(*(mas+i)+j));
}
return P;
}*/
Создание и вывод массива офк работают, а вот самая суть, произведение и формирование нового массива, нихуя.
Закрыл комментариями все что требует доработки, а именно функцию поиска произведений и все что с ней связано в мейне.
Кому не трудно, поправьте плиз ИМЕННО ЭТОТ КОД (иначе я хуй защищу завтра) так, чтобы работало. С утреца гляну (ну или в ближайшие пол часа, если кто нибудь поможет так оперативно).
Заранее спасибо.
#include <stdlib.h>
#include <time.h>
#include <iostream>
#include <iomanip>
using namespace std;
int** matrix;
long long* D;
int m, n;  //m - строки, n - столбцы

void FillMatrix();
void PrintMatrix();
void FindMult();
int main()
{
cout << "Enter m and n:" << endl;
cin >> m;
cin >> n;
matrix = (int**)malloc(m*sizeof(int*));
for (int i = 0; i < m; i++)
{
	matrix[i] = (int*)malloc(n*sizeof(int));
}
D = (long long*)malloc(m*sizeof(long long));

FillMatrix();
PrintMatrix();

FindMult();
cout << "Multiplication result:" << endl;
for (int i = 0; i < m; i++)
{
	cout << D[i] << endl;
}
for (int i = 0; i < m; i++)
{
	free(matrix[i]);
}
free(matrix);
free(D);

system("pause");
return 0;
}

void FillMatrix()
{
srand(time(NULL));
for (int i = 0; i < m; i++)
{
	for (int j = 0; j < n; j++)
	{
		matrix[i][j] = rand() % 101;
	}
}
}

void PrintMatrix()
{
cout << "Your matrix" << endl;
cout << "-----------------------------------------------" << endl;
for (int i = 0; i < m; i++)
{
	for (int j = 0; j < n; j++)
	{
		cout << setw(3) << matrix[i][j] << " ";
	}
	cout << endl;
}
cout << "-----------------------------------------------" << endl;
}

void FindMult()
{
for (int i = 0; i < m; i++)
{
	long long mul = 1;
	for (int j = 0; j < n; j++)
	{
		mul *= matrix[i][j];
	}
	D[i] = mul;
}
}
я все переписал, ибо у тебя там какая-то хуйня местами.

Если ты такое не можешь сам сделать,то можешь ливать с универа,программисты вы такие программисты

Войти

Сейчас на странице Всего пользователей: 0 (0 пользователей, 0 гостей)

Программирование ver 4.1

Рекомендованные сообщения

Поделиться сообщением

Ссылка на сообщение

Поделиться сообщением

Ссылка на сообщение

Поделиться сообщением

Ссылка на сообщение

Гость 2poy_nyasha

Поделиться сообщением

Ссылка на сообщение

Поделиться сообщением

Ссылка на сообщение

Гость 2poy_nyasha

Поделиться сообщением

Ссылка на сообщение

Поделиться сообщением

Ссылка на сообщение

Гость 2poy_nyasha

Поделиться сообщением

Ссылка на сообщение

Поделиться сообщением

Ссылка на сообщение

Поделиться сообщением

Ссылка на сообщение

Поделиться сообщением

Ссылка на сообщение

Поделиться сообщением

Ссылка на сообщение

Поделиться сообщением

Ссылка на сообщение

Поделиться сообщением

Ссылка на сообщение

Поделиться сообщением

Ссылка на сообщение

Поделиться сообщением

Ссылка на сообщение

Поделиться сообщением

Ссылка на сообщение

Поделиться сообщением

Ссылка на сообщение

Поделиться сообщением

Ссылка на сообщение

Поделиться сообщением

Ссылка на сообщение