ну сущности то нет! Ведь это есть "тупое" раскидывание на 2 группы, суть его сводится к ЕСЛИ ЧЕЛОВЕК ЗНАЕТ ДРУГОГО ТО ЕГО В ДРУГУЮ ГРУППУ!
Язык паскаль......девушка припахала........ Даны: n, матрица a(2n*2n). Матрица а естественным образом развивается на 4 блока n*n: 1 | 2 ----- 3 | 4 Поменять местами блоки 2 и 3. Исходные данные прочитать из файла. Результаты вывести в новый файл
РЕАЛИЗАЦИЯ Вот код, для массива заданного как константа: Code: program zamena; const [COLOR=Blue][B]n=3;[/B][/COLOR] [COLOR=Blue][B]k=n*2;[/B][/COLOR] a:array [1..k,1..k] of integer= ((0,2,1,2,5,6), (4,5,7,8,1,8), (0,6,2,3,3,4), (5,6,1,9,7,1), (1,2,3,4,5,6), (6,5,4,3,2,1)); Var buff:integer; i:integer; j:integer; Begin For i:=1 to k Do Begin For j:=1 to k DO write(a[i,j],' '); writeln; end; For i:=1 to k Do Begin For j:=n+1 to k Do Begin If i<=n then Begin buff:=a[i,j]; a[i,j]:=a[i+n,j-n]; a[i+n,j-n]:=buff; End; End; End; writeln; writeln('RESULT:'); writeln; For i:=1 to k Do Begin For j:=1 to k DO write(a[i,j],' '); writeln; end; readln; End. Ввод, вывод, думаю сам сможешь Результат:
Delimiter, вроде так вот? Code: #include <stdio.h> #include <stdlib.h> #include <iostream.h> #include <conio.h> #define N 4 int m[N][N]; void fill_m(); void out_m(); int cnt[N]; int main() { fill_m(); out_m(); for(int i=0;i<N;i++) // idem po personam { for(int j=0;j<N;j++) // idem po znakomstvam { if(m[i][j]==1) cnt[i]++; } } int top_m=0; // bolshe vsego znak int max=0; for(i=0;i<N;i++) { if(cnt[i]>max) {max=cnt[i]; top_m=i;} } cout << "\n\nOdna gruppa:\n"; for(int j=0;j<N;j++) { if(m[top_m][j]==0) cout << " " << j << " "; } cout << " & " << top_m << "\n"; out_m(); getch(); return 0; } void fill_m() { for(int i=0;i<N;i++) { for(int j=0;j<N;j++) { cout << i << " with " << j <<": "; cin >> m[i][j]; } cout << "\n"; } } void out_m() { for(int i=0;i<N;i++) { for(int j=0;j<N;j++) { cout << m[i][j]; } cout << "\n"; } }
Помогите плз! Нада решить задачу: Составить программу, которая вводит предложение и заменяет все четырёхбуквенные слова на первый символ из этих слов! Заранее Спасибо! De-visible:Может ЯП уточнишь? Sorre, забыл, Pascal
Привет народ ! помогите кто небудь написать программу для зачета .. достали уже преподы программа можете написать на чем угодно, лишь бы выполнял следующие пункты:
Кому интересно, я узнал как она решается! Code: program slova; Uses Crt; var stroka, slovo,s : string; i, max : integer; begin ClrScr; WriteLn('введите текст с любыми разделителями '); TextColor(Cyan); ReadLn(stroka); stroka:=stroka + '.'; i:= 1; TextColor(LightGreen); while Length(stroka) <> 0 do begin if pos(copy(stroka,i,1),' ,.?!-:;') <> 0 then begin slovo := copy(stroka,1,i-1); if length(slovo)=4 then begin s:=s+' '+slovo[1]; end else s:=s+' '+slovo; delete(stroka,1,i); i := 1; end else i := i+1; end; writeln(s); ReadLn; end. De-visible: Не забывай теги Code: [/I][/COLOR][/SIZE]
Помогите написать 6 прог в паскале!!! очень срочно!!! ответы в личку!!! De-visible: Лучше дай ссылку на архив с заданиями!
Надо найти сумму элементов последовательности x=(x1,x2,...,xn), начиная от первого отрицательного элемента и до конца последовательности!!! Надо составить прогу обработки массива (n=7). В эхо-проверке выводить его элементы по k штук в строке. Заранее благодарен!!!
ещё надо : Составьте процедуру Max_rearrange, находящую макс по модулю элемент в каждой строке квадратной матрицы A и осуществляющую его перестановку с соответствующим диагональным элементом !!! Тоже надо решить! оч. прошу!!!
Code: uses crt; var a: array [1..100] of longint; i,k,n,s:integer; begin clrscr; {vvod elementov, k-kol-vo elementov} for i:=a[1] to k do if a[i]<0 then i:=n; s:=0; begin for i:=a[n] to k do s:=s+a[i]; end; writeln(s:5:2); readln; end. алгоритм набросал, дальше сам...
Так никто и незнает как первую часть задачки сделать? (Паскаль) Разработать программу, которая позволяет найти площадь заштрихованной области: 1.вычислить площадь заштрихованной области по формулам, сост.разработанные программы по заданным конфигурациям
Привет, помогите пожалуйста с лабами по Delphi. 1) Данны 3 массива целых чисел: (4*5), (5*5), (5*4). Вставить после первого столбца, содержащего хотя бы один нулевой элемент, столбец из единиц. Использовать StringGrid. 2) Создать приложение, предлагающее пользователю ввести массив строк и выдающее минимальную длинну строки в массиве строк. Выделить самую короткую строку символом "!". Если строк с минимальной длинной несколько, выдать сообщение. 3) Имеется список, элементами которого являются вещественные числа. Создать консольное приложение, описывающее подпрограмму, которая добавляет в начало списка элемент, равный минимальному элементу в списке. Помогите пожалуйста с этими лабами, а то я вообще не знаю Delphi и паскаль.
Code: program laba07; var p, cnt : integer; str, sub : string; begin write ('Vvedite stroku: '); readln (str); write ('Vvedite iskomuyu podstroku: '); readln (sub); cnt := 0; repeat p := pos (sub, str); if p > 0 then begin delete (str, 1, p + length (sub)); inc (cnt); end; until p = 0; writeln ('Kolichestvo: ', cnt); end.
Помогите плиз! Нужно аписать игру "Пулемёт" на с++. Правила игры. Пулемёт находится в нижнейчасти экрана, может перемещаться вправо и влево с помощью клавиш управлением курсора и стрелять. Слева направопо экрану перемещаются различные обьекты. При попадании из пулемёта объект взрывается. Разработать иерархию классов для представления пулемёта и различных (два- три) типов объектов.
2 CorAX С этим справиться не сложно. Просто тут в основном помогают тем, чей код может уместиться в качестве соурса! Ждать что будут делать проект заливать на слил.ру и выкладывать стцылку на него - ГЛУПО !
Зачет горит, нужна программа на Java Создать двумерный массив и заполнить его сотней любых чисел и найти максимальное число. Помогите, есль не трудно, буду очень благодарен