Студентам с лабораторными сюда (архивная - 2015)

sorry, C++

 

PHP:

#include <iostream>
#include <stdio.h>

using namespace std;

#define N 10
#define M 10
//распечатка массива
void _show(int mat[][M]) {
    printf("\n\n");
    for ( int i=0; i<N; i++) {
    for ( int j=0; j<M; j++) {
        printf("%5i ",mat[i][j]);
    }
    printf("\n");
    }
    printf("\n");
}

int main(int argc, char *argv[])
{
    int matrix[N][M];
    int num=0, K=0, S=0;
    printf("Номер строки: ");
    scanf("%i", &K);
    printf("Число для деления: ");
    scanf("%i", &S);
    //ЗАполнение массива
    for ( int i=0; i<N; i++) {
    for ( int j=0; j<M; j++) {
        do {
        matrix[i][j]=rand()%10000;
                                     //либо заполняй вручную через scanf("%i",&matrix[i][j]);
                                     //или можно сразу проиницилазировать,
        } while ( (matrix[i][j] % S) );
    }
    }
//распечатка массива
    _show(matrix);
    //Делим числа строки К на S
    for ( int j=0; j<M; j++ ) {
    matrix[K][j]=matrix[K][j]/S;
    }
//распечатка массива
    _show(matrix);

    return 0;
}


ВОт писал ее для gcc, надеюсь подредактировать на винду сможешь? если вопросы возникнут напиши в личку

 

>> числами которые делятся на S без остатка =>

числа P=S*N (где N натуральные)

 

Привет, давно не был тут.

Твой пост это к чему? Я что то не так сделал?

 

нужно - Написать программу, которая бы перекодировала текстовый файл из кодировки MS-DOS в кодировку MS Windows. на с++.

пожалуйста помогите!!!

 

Code:

//из ДОС в Windows
char* Decode_DOS_to_Win(char * str)
{
    unsigned char *cstr=str;//"unsigned" - чтоб избежать предупреждений комп-ра
    for(; *cstr; cstr++)
    {
        if(*cstr>=128 && *cstr<=175)
            *cstr+=64;
        else if(*cstr>=224 && *cstr<=239)
            *cstr+=16;
        else if(*cstr==252)
            *cstr=185;
    }
    return str;
}
//----------------------------------------------------

//из Windows в ДОС
char* Decode_Win_to_DOS(char * str)
{
    unsigned char *cstr=str;
    for(;*cstr;cstr++)
    {
        if(*cstr>=240)
            *cstr-=16;
        else if(*cstr>=192)
            *cstr-=64;
        else if(*cstr==185)
            *cstr=252;
    }
    return str;
}

Основные функции вот, с остальным разберешься?

 

1)

Program delenie;
uses crt;
var n,m:integer;
x: real;

begin
clrscr;
write('N=');
readln(n);
write('n=');
readln(m);
x:=n mod m;
writeln;
if x=0 then
writeln(n,' delitsya nacelo na ',m)
else
writeln(n,' NE delitsya nacelo na ',m);
readln;
end.

2) не понял условия... Среднее арифметическое чего..??!

3)

Program summa;
uses crt;
var n,m,s:integer;
x: real;
begin
clrscr;
s:=0;
writeln('BBeDuTE 4uCJIA, CyMMy KoToPblX HaDO y3HATb');
repeat
readln(n);
s:=s+n;
until n=0;
writeln('CyMMA = ',s);
readln;
end.

 

for help

есть малый дум, по поводу вот чего.....:
типа есть массив букв от [a...z], и N количество знаков =4,
вот мне надо сгенерировать типа в таком виде чтоб вышло.......
aaaa
aaab
aaac
........ :
пока дойдет до
zzzz
чтоб с выходным файлом о полученном результате в виде *.txt

просто у меня тут делфя стоит, а я в нёй нешарю, чтото другое поставить немогу админ забанил......
вот такая проблема((, если я непоадресу то извените, но уже то количество литературы кот я пролистал непомогает.......(( помогите кто нить!!

 

вопщем вводятся несколько дробных чисел и ищется их среднее арифметическое

HELP!!! очень жду

 

MRAK9

Code:

Program summa;
uses crt;
var m:integer;
x,s,n: real;
begin
clrscr;
s:=0;
writeln('BBeDuTE 4uCJIA');
repeat
readln(n);
s:=s+n;
m:=m+1;
until n=0;
writeln(s / m);
readln;
end.

 

в общем есть документ, старый текстовый, в нём форматирование забито полностью пробелами... нужна программа, распознающая эти пробелы и заменяющая их стандартным форматированием ms word. други, помогите, натолкните на мысль!
vc++

 

и чего это? к чему оно? чтот я не понял...

 

задачу сформулируй нормально,тогда помогут

 

С клавиатуры вводятся несколько дробных чисел, программа должна вычислить их среднее арифметическое

 

jawbreaker тебе написал,разве не работает?

 

Не работает..) jawbreaker кавычку не закрыл

Code:

Program summa;  
uses crt;  
var m:integer;  
x,s,n: real;  
begin  clrscr;  
s:=0;  
writeln('BBeDuTE 4uCJIA[COLOR=YellowGreen]'[/COLOR]);  
repeat  readln(n);  
s:=s+n;  
m:=m+1;  
until n=0;  
writeln(s / [COLOR=YellowGreen](m-1)[/COLOR]);  
readln;  
end.

Так же как и в задаче №1, в этой задаче ввод ноля означает окончание ввода.. Мне кадется "0" не надо считать слагаемым, поэтому и (m-1)...

 

я както невнимательно просмотрел,там еще переменной m значение надо присвоить,начальное

 

То есть тебе не важно на каком языке, главное результат..??! Тогда открывай блокнот, пиши туда

Code:

Dim My1Array(25)
Dim oFso
Dim oMyFile

Set oFso = CreateObject("Scripting.FileSystemObject")
Set oMyFile = oFso.CreateTextFile("output.txt")

My1Array(0) ="a"
My1Array(1) = "b"
My1Array(2) = "c"
My1Array(3) = "d"
My1Array(4) = "e"
My1Array(5) = "f"
My1Array(6) = "g"
My1Array(7) = "h"
My1Array(8) = "i"
My1Array(9) = "j"
My1Array(10) = "k"
My1Array(11) = "l"
My1Array(12) = "m"
My1Array(13) = "n"
My1Array(14) = "o"
My1Array(15) = "p"
My1Array(16) ="q"
My1Array(17) = "r"
My1Array(18) = "s"
My1Array(19) = "t"
My1Array(20) = "u"
My1Array(21) = "v"
My1Array(22) = "w"
My1Array(23) = "x"
My1Array(24) = "y"
My1Array(25) = "z"


For i = 0 To 25
   For j = 0 To 25
      For k = 0 To 25
	For l = 0 To 25
	   
oMyFile.WriteLine(My1Array(i)&My1Array(j)&My1Array(k)&My1Array(l))

             Next
      Next
   Next
Next

сохраняй как ххх.vbs и запускай.. получишь то, что надо..)))

 

ИМЕЕТСЯ ОДНОМЕРНЫЙ МАССИВ Х(N).ВЫЧИСЛИТЬ ПРОИЗВЕДЕНИЕ ЭЛЕМЕНТОВ МАССИВА ,ИМЕЮЩИХ НЕЧЕТНЫЙ НОМЕР . МАССИВ Х(N)ВЫВЕСТИ НА ПЕЧАТЬ .

Это надо на visial Basik

 

1) Определить среднее арифметическое значение элементов матрицы A(N,N)
2)Дан одномерный массив A(N).Сформировать массив B(K)из элементов массива A(N)индексы которых являются числа Фибоначи (1,2,3,5,8,13 и т.д. Fi = Fi-1 + Fi-2)
3) Найти скалярное произведение двух векторов A(n) и B(n)
Указание: скалярное произведение A*B=A1*B1+A2*B2+...+A(n)*B(n)

Написать на С++

С меня +++