Вопрос № 84864: Здравствуйте. У меня скоро зачет и в одном из билетов вопрос, который мне никак не удается решить. Помогите, пожалуйста.
Надо найти все такие расположения 8-ми ферзей на шахматке размером 8х8, когда ни один ферзь не угрожает другим....Вопрос № 84883: Товарищи эксперты!! не сочтите за спам! сессия начинается через пару дней! а контрольную увидел только сегодня, помогите кто чем может! первый раз в глаза паскаль то вижу!! не успеваю читать! хотя бы основной код, там то дальше как нить сам додумаю =...
Вопрос № 84.864
Здравствуйте. У меня скоро зачет и в одном из билетов вопрос, который мне никак не удается решить. Помогите, пожалуйста.
Надо найти все такие расположения 8-ми ферзей на шахматке размером 8х8, когда ни один ферзь не угрожает другим.
Отправлен: 30.04.2007, 19:26
Вопрос задала: Zena (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)
Ответ отправил: Denisss (статус: Профессионал) Россия, Москва WWW:Хлама много, по сути ничего... ICQ: 281599577 ---- Ответ отправлен: 30.04.2007, 19:44 Оценка за ответ: 5 Комментарий оценки: Спасибо. Задача решена. Я даже как то не надеялась на такой быстрый ответ. Сйпер!:=)
Вопрос № 84.883
Товарищи эксперты!! не сочтите за спам! сессия начинается через пару дней! а контрольную увидел только сегодня, помогите кто чем может! первый раз в глаза паскаль то вижу!! не успеваю читать! хотя бы основной код, там то дальше как нить сам додумаю =(
1. Дан одномерный массив целых чисел. Определить номера последней пары соседних элементов с разными знаками. Массив задается с помощью генератора случайных чисел.
2. Задана квадратная матрица А размером NN (N<=10), состоящая из действительных элементов. Получить новую матрицу путем деления всех элементов данной матрицы на ее наибольший по модулю элемент.
3. Дана строка. Определить длину самого короткого и самого длинного слова (слова разделяются одним или несколькими пробелом).
4. Из введенного множества символов сформировать множество русских букв и вывести его упорядоченным по убыванию. При решении задачи обязательно использовать множественный тип.
Отправлен: 30.04.2007, 22:34
Вопрос задал: Hammer22 (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)
Отвечает: Gh0stik
Здравствуйте, Hammer22!
Задача №1. const n=10;
var a:array [1..n] of integer;
i,x:integer;
begin
randomize; writeln;
for i:=1 to n do
begin
a[i]:=random(43);
if odd(random(2)+1) then a[i]:=-a[i]; {генерируем произвольные элементы, с произвольным знаком}
write(a[i]:4);
end;
x:=0;writeln;
for i:=1 to n-1 do if a[i]*a[i+1]<0 then x:=i; {являются ли соседние разного знака}
if x < > 0 then writeln('a[',x,'] and a[',x+1,']');
end.
Задача №2. const n=5;
var a:array [1..n,1..n] of real;
i,j:integer;
x:real;
begin
randomize; writeln;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(43);
if odd(random(2)+1) then a[i,j]:=-a[i,j]; {генерируем матрицу}
write(a[i,j]:7:2);
end;
writeln;
end;
x:=abs(a[1,1]);
for i:=1 to n do for j:=1 to n do
if x < abs(a[i,j]) then x:=abs(a[i,j]); {поиск наибольшего по модулю}
writeln('x=',x:7:2);
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=a[i,j]/x; write(a[i,j]:7:2);{делим каждый элемент на наибольший по модулю}
end;
writeln;
end;
end.
Задача №3. var s,sl:string;
mn,mx:integer;
begin
write('Input text: ');read(s);
mn:=length(copy(s,1,pos(' ',s)-1));
mx:=length(copy(s,1,pos(' ',s)-1));
while pos(' ',s)<>0 do
begin
sl:=copy(s,1,pos(' ',s)-1); {копируем текст (слово) до первого пробела}
if mx < length(sl) then mx:=length(sl);{проверяем длину слова минимальна она или максимальна}
if mn > length(sl) then mn:=length(sl);
delete(s,1,pos(' ',s)); {удаляем обработанное слово}
while s[1]=' ' do delete(s,1,1);
end;
if mx < length(s) then mx:=length(s);
if mn > length(s) then mn:=length(s);
writeln('mn=',mn,' mx=',mx);
end.
Задача №4. const rus=['а'..'я','А'..'Я'];
var r:set of char;
c:char;
begin
repeat
read(c);
if c in rus then include(r,c); {читаем элемент и если это русская буква то добавляем его во множество}
until c='.';
for c:='я' downto 'А' do {выводим по убыванию}
if c in r then write(c);
end.
Good Luck!!!
--------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.
Ответ отправил: Gh0stik (статус: Профессионал) Украина, Славянск Организация: Славянский государственный педагогический университет (Кафедра алгебры) ICQ: 289363162 ---- Ответ отправлен: 01.05.2007, 14:50
