|
Все страницы: |
1 2 | Посмотреть всю тему |
известным вокалистом страны... и не только...
вот так-то...товарисчи...
но , остался таким -же придурком, как и был...готовым выпить со всеми!!!
И самое Глвное - никто - не знает, ка меня реально зовут...
Даже те с кем, я сотрудничаю...
потому, что, они имеют дело с моим братом... - это не я....
вот так-то...товарисчи...
но , остался таким -же придурком, как и был...готовым выпить со всеми!!!
И самое Глвное - никто - не знает, ка меня реально зовут...
Даже те с кем, я сотрудничаю...
потому, что, они имеют дело с моим братом... - это не я....
#### у меня ща моск лопнет
>#### у меня ща моск лопнет
.................
Да куйня...
я Вас ещё не до этого доведу...
вот когда у тебя йяца нвачнут лопаться - вот это да!!!
Вкуриваешь???
.................
Да куйня...
я Вас ещё не до этого доведу...
вот когда у тебя йяца нвачнут лопаться - вот это да!!!
Вкуриваешь???
А у меня стоит собственный ламборДЖини Диабло, и собачка писает на колесо машины...
uses crt;
var mas:array[1..4,1..4] of integer;
i,j,kolPol,kolOtr,temp,nomer,min:integer;
masmin:array[1..4] of integer;
begin
clrscr;{очистка экрана}
randomize;{}
kolOtr:=0;{счетчик отрицательных чисел}
kolPol:=0;{счетчик положительных чисел}
for i:=1 to 4 do {цикл for от i:=1 до 4 }
for j:=1 to 4 do {цикл for от j:=1 до 4 }
begin
mas[i,j]:=random(10)-4; {элемент массива присваиваем случайное число}
end;
for i:=1 to 4 do {цикл for от i:=1 до 4 }
begin
for j:=1 to 4 do {цикл for от j:=1 до 4 }
begin
Write(mas[i,j]:3); {выводим i-й эл-т массива на экран}
end;
WriteLn;
end;
for i:=1 to 4 do {цикл for от i:=1 до 4 }
begin
for j:=1 to 4 do {цикл for от j:=1 до 4 }
begin
if (i-j>0) then {если разница в нидексах больше 0, то}
if mas[i,j]<0 then {если эл-т массива меньше 0, то}
kolOtr:=kolOtr+1 {увеличиваем счетчик отрицательных чисел на 1}
else kolPol:=kolPol+1; {увеличиваем счетчик положительных чисел на 1}
end;
end;
WriteLn('otr: ',kolOtr,' Pol: ',kolPol); {выводим счетчики на экран}
temp:=mas[1,1]; {временной переменной присваиваем 1-й эл-т массива}
for j:=1 to 4 do {цикл for от j:=1 до 4 }
begin
for i:=1 to 4 do {цикл for от i:=1 до 4 }
begin
if i=j then {если индексы равны то}
begin
if i=4 then {если индекс равен 4}
mas[i,j]:=temp {эл-ту массива с номером 4,4 присваиваем временный эл-т}
else
mas[i,j]:=mas[i+1,j+1];{эл-ту массива с номером i,j присваиваем эл-т с номером i+1;j+1}
end;
end;
end;
for i:=1 to 4 do {цикл for от i:=1 до 4 }
begin
for j:=1 to 4 do {цикл for от j:=1 до 4 }
begin
Write(mas[i,j]:3); {выводим на экран эл-т массива}
end;
WriteLn;{пропускаем строку на экране}
end;
for j:=1 to 4 do {цикл for от j:=1 до 4 }
begin
for i:=1 to 4 do {цикл for от i:=1 до 4 }
begin
if (mas[i,j] mod 2) = 0 then {если остаток от деления эл-та массива на 2 равен 0}
masmin[j]:=masmin[j]+1;{увеличиваем счетчик строки на 1 для данного столбца}
end;
end;
min:=masmin[1];{минимальному эл-ту присваиваем первый эл-т счетчика}
nomer:=1; {номер строки с минимальным элементом присваиваем 1}
for i:=2 to 4 do {цикл for от i:=2 до 4 }
begin
if masmin[i]>min then {если счетчик больше чем минимальный эл-т то}
begin
min:=masmin[i]; {минимальному эл-ту присваиваем текущий эл-т счетчика}
nomer:=i; {запоминаем номер строки с минимальным эл-том}
end;
end;
for j:=1 to 3 do {цикл for от j:=1 до 3 }
begin
for i:=1 to 4 do {цикл for от i:=1 до 4 }
begin
if (j=nomer) or (j>nomer) then {если индекс равен или больше номеру строки с мин эл-том}
mas[i,j]:=mas[i,j+1]; {присваиваем текущему эл-ту следующий за ним в строке }
end;
end;
WriteLn;
Writeln(nomer);{выводим номер минимального элемента}
for i:=1 to 4 do {цикл for от i:=1 до 4 }
begin
for j:=1 to 3 do {цикл for от j:=1 до 3 }
begin
Write(mas[i,j]:3);{выводим эл-т массива}
end;
WriteLn;{вставляем пустую строку}
end;
ReadLn;{запрос на ввод}
end.
var mas:array[1..4,1..4] of integer;
i,j,kolPol,kolOtr,temp,nomer,min:integer;
masmin:array[1..4] of integer;
begin
clrscr;{очистка экрана}
randomize;{}
kolOtr:=0;{счетчик отрицательных чисел}
kolPol:=0;{счетчик положительных чисел}
for i:=1 to 4 do {цикл for от i:=1 до 4 }
for j:=1 to 4 do {цикл for от j:=1 до 4 }
begin
mas[i,j]:=random(10)-4; {элемент массива присваиваем случайное число}
end;
for i:=1 to 4 do {цикл for от i:=1 до 4 }
begin
for j:=1 to 4 do {цикл for от j:=1 до 4 }
begin
Write(mas[i,j]:3); {выводим i-й эл-т массива на экран}
end;
WriteLn;
end;
for i:=1 to 4 do {цикл for от i:=1 до 4 }
begin
for j:=1 to 4 do {цикл for от j:=1 до 4 }
begin
if (i-j>0) then {если разница в нидексах больше 0, то}
if mas[i,j]<0 then {если эл-т массива меньше 0, то}
kolOtr:=kolOtr+1 {увеличиваем счетчик отрицательных чисел на 1}
else kolPol:=kolPol+1; {увеличиваем счетчик положительных чисел на 1}
end;
end;
WriteLn('otr: ',kolOtr,' Pol: ',kolPol); {выводим счетчики на экран}
temp:=mas[1,1]; {временной переменной присваиваем 1-й эл-т массива}
for j:=1 to 4 do {цикл for от j:=1 до 4 }
begin
for i:=1 to 4 do {цикл for от i:=1 до 4 }
begin
if i=j then {если индексы равны то}
begin
if i=4 then {если индекс равен 4}
mas[i,j]:=temp {эл-ту массива с номером 4,4 присваиваем временный эл-т}
else
mas[i,j]:=mas[i+1,j+1];{эл-ту массива с номером i,j присваиваем эл-т с номером i+1;j+1}
end;
end;
end;
for i:=1 to 4 do {цикл for от i:=1 до 4 }
begin
for j:=1 to 4 do {цикл for от j:=1 до 4 }
begin
Write(mas[i,j]:3); {выводим на экран эл-т массива}
end;
WriteLn;{пропускаем строку на экране}
end;
for j:=1 to 4 do {цикл for от j:=1 до 4 }
begin
for i:=1 to 4 do {цикл for от i:=1 до 4 }
begin
if (mas[i,j] mod 2) = 0 then {если остаток от деления эл-та массива на 2 равен 0}
masmin[j]:=masmin[j]+1;{увеличиваем счетчик строки на 1 для данного столбца}
end;
end;
min:=masmin[1];{минимальному эл-ту присваиваем первый эл-т счетчика}
nomer:=1; {номер строки с минимальным элементом присваиваем 1}
for i:=2 to 4 do {цикл for от i:=2 до 4 }
begin
if masmin[i]>min then {если счетчик больше чем минимальный эл-т то}
begin
min:=masmin[i]; {минимальному эл-ту присваиваем текущий эл-т счетчика}
nomer:=i; {запоминаем номер строки с минимальным эл-том}
end;
end;
for j:=1 to 3 do {цикл for от j:=1 до 3 }
begin
for i:=1 to 4 do {цикл for от i:=1 до 4 }
begin
if (j=nomer) or (j>nomer) then {если индекс равен или больше номеру строки с мин эл-том}
mas[i,j]:=mas[i,j+1]; {присваиваем текущему эл-ту следующий за ним в строке }
end;
end;
WriteLn;
Writeln(nomer);{выводим номер минимального элемента}
for i:=1 to 4 do {цикл for от i:=1 до 4 }
begin
for j:=1 to 3 do {цикл for от j:=1 до 3 }
begin
Write(mas[i,j]:3);{выводим эл-т массива}
end;
WriteLn;{вставляем пустую строку}
end;
ReadLn;{запрос на ввод}
end.
luciano, не забыл после "собственный" - слово "на"?
Задан двумерный числовой массив F(4, 4). Организуйте подсчёт количества положительных и отрицательных элементов под главной диагональю. Выполнить циклическую перестановку элементов главной диагонали вверх. Исключить из массива столбец, содержащий наименьшее количество чётных по значениям элементов.
>Задан двумерный числовой массив F(4, 4). Организуйте подсчёт количества положительных и отрицательных элементов под главной диагональю. Выполнить циклическую перестановку элементов главной диагонали вверх. Исключить из массива столбец, содержащий наименьшее количество чётных по значениям элементов.
>
да,это ужасно, какой кошмар. Полностью с вами согласен.
>
да,это ужасно, какой кошмар. Полностью с вами согласен.
Лучи...
я тебе сказал...
если , ты не реализуешь свой голос... - я тебя убью...
и я так поступлю...потому, что , я Придурок и Псих...
я ненавижу то, что происходит с Миром, но и не люблю, когда, реальные Люди, отказываются помочь этому Миру...создать красоту, Жизнь - твой голос , я считаю именно такой!, но ты прячешься , с какого куя???
я тебе сказал...
если , ты не реализуешь свой голос... - я тебя убью...
и я так поступлю...потому, что , я Придурок и Псих...
я ненавижу то, что происходит с Миром, но и не люблю, когда, реальные Люди, отказываются помочь этому Миру...создать красоту, Жизнь - твой голос , я считаю именно такой!, но ты прячешься , с какого куя???
>Какой кошмар, это ужасно, да! Согласен с вами полностью.
>я Придурок и Псих...
да,это ужасно, какой кошмар. Полностью с вами согласен.
да,это ужасно, какой кошмар. Полностью с вами согласен.
>да,это ужасно, какой кошмар.
Полностью с вами согласен, это ужасно, какой кошмар.
Полностью с вами согласен, это ужасно, какой кошмар.
>Чэ, я бандит
....................
О...90-е продолжаются...
к какой бригаде относишься...???
К Коптевским, Солнцевским, или ещё кто???
....................
О...90-е продолжаются...
к какой бригаде относишься...???
К Коптевским, Солнцевским, или ещё кто???
>Какой кошмар
Да, это ужасно, полностью с вами согласен.
Да, это ужасно, полностью с вами согласен.
>>Чэ, я бандит
>....................
>О...90-е продолжаются...
>к какой бригаде относишься...???
>К Коптевским, Солнцевским, или ещё кто???
может быть, к пикантным?
>....................
>О...90-е продолжаются...
>к какой бригаде относишься...???
>К Коптевским, Солнцевским, или ещё кто???
может быть, к пикантным?
>может быть, к пикантным?
Да, это ужасно, какой кошмар, полностью с вами согласен.
Да, это ужасно, какой кошмар, полностью с вами согласен.
Чистая Энергия лидирует на нашем форуме. В топ 10 почти все места его
его темы можно прикреплять
Пикантный бандит 
Это ужасно, какой кошмар.
Это ужасно, какой кошмар.
>>Какой кошмар
>Да, это ужасно, полностью с вами согласен.
///////////////////////
Я так тоже думаю...
>Да, это ужасно, полностью с вами согласен.
///////////////////////
Я так тоже думаю...
>Я так тоже думаю...
Какой кошмар
Какой кошмар
Да,это великолепно, полностью с вами несогласен.
>Да,это великолепно, полностью с вами несогласен.
Какой кошмар, полностью с вами согласен.
Какой кошмар, полностью с вами согласен.
>Да,это великолепно, полностью с вами несогласен.
Я так тоже думаю.
Я так тоже думаю.
>Чэ, я бандит
Так я и знала
Так я и знала
>Задан двумерный числовой массив F(4, 4). Организуйте подсчёт количества положительных и отрицательных элементов под главной диагональю. Выполнить циклическую перестановку элементов главной диагонали вверх. Исключить из массива столбец, содержащий наименьшее количество чётных по значениям элементов.
Интерпретация языка программирования. В качестве языка программирования выступает сильно упрощенный Паскаль, синтаксис которого задается следующими БНФ:
<программа>::=program <имя>;<раздел описаний><раздел операторов>
<имя>::=<идентификатор>
<раздел описаний>::= см. вариант
<раздел операторов>::= begin <оператор>{;<оператор>} end.
<оператор>::=<оператор присваивания> | <оператор вывода> |
<составной оператор> | <спец. оператор>
<оператор присваивания>::= <имя>:=<выражение>
<выражение>::= <простое выражение> | <спец. выражение>
<операция отношения><спец. выражение>
<операция отношения>::= > | < | <> | <= | >= | =
<простое выражение>::= <терм>{<операция сложения><терм>}
<терм>::= <атом>{<операция умножения><атом>}
<атом>::= <имя> | (<выражение>) | <спец. атом>
<операция сложения>::= см. вариант
<операция умножения>::= см. вариант
<спец. выражение>::= см. вариант
<спец. атом>::= см. вариант
<оператор вывода>::= writeln(<список элементов>)
<список элементов>::= <элемент>{,<элемент>}
<элемент>::= см. вариант
<составной оператор>::= begin <оператор>{; <оператор>} end
<спец. оператор>::= см. вариант
<знак>::= <пусто> | + | –
<конст>::= <знак> <цифра> {<цифра>}
<конст. бз>::= <цифра> {<цифра>}
<логич. значение>::= true | false
надо написать интерпретатор паскаля на рефале
Интерпретация языка программирования. В качестве языка программирования выступает сильно упрощенный Паскаль, синтаксис которого задается следующими БНФ:
<программа>::=program <имя>;<раздел описаний><раздел операторов>
<имя>::=<идентификатор>
<раздел описаний>::= см. вариант
<раздел операторов>::= begin <оператор>{;<оператор>} end.
<оператор>::=<оператор присваивания> | <оператор вывода> |
<составной оператор> | <спец. оператор>
<оператор присваивания>::= <имя>:=<выражение>
<выражение>::= <простое выражение> | <спец. выражение>
<операция отношения><спец. выражение>
<операция отношения>::= > | < | <> | <= | >= | =
<простое выражение>::= <терм>{<операция сложения><терм>}
<терм>::= <атом>{<операция умножения><атом>}
<атом>::= <имя> | (<выражение>) | <спец. атом>
<операция сложения>::= см. вариант
<операция умножения>::= см. вариант
<спец. выражение>::= см. вариант
<спец. атом>::= см. вариант
<оператор вывода>::= writeln(<список элементов>)
<список элементов>::= <элемент>{,<элемент>}
<элемент>::= см. вариант
<составной оператор>::= begin <оператор>{; <оператор>} end
<спец. оператор>::= см. вариант
<знак>::= <пусто> | + | –
<конст>::= <знак> <цифра> {<цифра>}
<конст. бз>::= <цифра> {<цифра>}
<логич. значение>::= true | false
надо написать интерпретатор паскаля на рефале
Какой кошмар, полностью с вами согласен.
utta, полностью с вами согласен.
Демократ новый текст к своей песенге создал!
>utta, полностью с вами согласен.
Так я и знала
Так я и знала
>Демократ новый текст к своей песенге создал!
Да,Это ужасно
Да,Это ужасно
>utta, полностью с вами согласен.
Я так тоже думаю.
Я так тоже думаю.
>>Демократ новый текст к своей песенге создал!
>Да,Это ужасно
Да, я так тоже думаю.
>Да,Это ужасно
Да, я так тоже думаю.
Лучано, полностью с вами согласна!!!
умрите питекантропы от ацкого напалма
|
Все страницы:
1
2
|