
01.04.2010, 00:31
|
|
Новичок
Регистрация: 30.03.2010
Сообщений: 3
С нами:
8484068
Репутация:
0
|
|
Помогите плз с лабораторной, завтра нужно сдать
задачку сделать с использованием функций ,
турбо паскаль
Заданы 2 двумерных массива А(М,М) и В(К,К). Переписать в один одномерный массив элементы главной и побочной диагонали массива А , а в другой одномерный массив элементы главной и побочной диагоналей массива В. Использовать подпрограммы.
Да ты че с ума сошёл, такую лехкотню не можешь решить. Позор тебе. Книжки те надо читать, а не по всяким сайтам шастать. Иди сам делай.
|
|
|

01.04.2010, 03:08
|
|
Новичок
Регистрация: 14.12.2009
Сообщений: 4
С нами:
8636635
Репутация:
0
|
|
LEGHEBOKA Да ты че с ума сошёл, такую лехкотню не можешь решить. Позор тебе. Книжки те надо читать, а не по всяким сайтам шастать. Иди сам делай.
LEGHEBOKA Здарово народ, помогите пожалуста решить задание по
лабе по турбо паскалю.
УСЛОВИЕ:
Дан массив А(N,N). Поменять элементы К-ой строки с элементами последней строкой этого массива. Переписать в одномерный массив элементы К-ой строки. Первоначальный и преобразованый двумерные массивы и одномерный массив вывести на экран.
P.S.
актуально
Помогите плз с лабораторной, завтра нужно сдать
задачку сделать с использованием функций ,
турбо паскаль
Заданы 2 двумерных массива А(М,М) и В(К,К). Переписать в один одномерный массив элементы главной и побочной диагонали массива А , а в другой одномерный массив элементы главной и побочной диагоналей массива В. Использовать подпрограммы.
|
|
|

01.04.2010, 12:43
|
|
Познающий
Регистрация: 27.05.2009
Сообщений: 44
С нами:
8925577
Репутация:
-1
|
|
всем ривет я хачу написать шахматы вот тока знаний у меня нехватает пока для этого посоветуите книгу или статю на ету тему где нетолко стоит Альфа-бета-отсечение а полностю код харошо розоброный и понятно описнаый скачал книгу "програмирование шахмат и других логичиских игр " тока там описание на С понять в принципи мошно но там работает он побитно а не обэктно орентировано да и обяснает както неочен на мои взгля или может я тупои  просто кароче ест ли ченит в етом роде пишите буду благодарен !!!
|
|
|

01.04.2010, 16:39
|
|
Познающий
Регистрация: 28.09.2008
Сообщений: 65
С нами:
9273261
Репутация:
8
|
|
Сообщение от new-sl
всем ривет я хачу написать шахматы вот тока знаний у меня нехватает пока для этого посоветуите книгу или статю на ету тему где нетолко стоит Альфа-бета-отсечение а полностю код харошо розоброный и понятно описнаый скачал книгу "програмирование шахмат и других логичиских игр " тока там описание на С понять в принципи мошно но там работает он побитно а не обэктно орентировано да и обяснает както неочен на мои взгля или может я тупои  просто кароче ест ли ченит в етом роде пишите буду благодарен !!!
молодой человек для начала вам бы прочитать это:
_http://www.google.ru/search?hl=ru&source=hp&q=%D1%81%D0%BA%D0%B0%D1%87% D0%B0%D1%82%D1%8C+%D0%BE%D1%80%D1%84%D0%BE%D0%B3%D 1%80%D0%B0%D1%84%D0%B8%D1%87%D0%B5%D1%81%D0%BA%D0% B8%D0%B9+%D1%81%D0%BB%D0%BE%D0%B2%D0%B0%D1%80%D1%8 C+%D1%80%D1%83%D1%81%D1%81%D0%BA%D0%BE%D0%B3%D0%BE +%D1%8F%D0%B7%D1%8B%D0%BA%D0%B0&lr=&aq=0&aqi=g8&aq l=&oq=%D1%81%D0%BA%D0%B0%D1%87%D0%B0%D1%82%D1%8C+% D0%BE%D1%80%D1%84%D0%BE%D0%B3%D1%80%D0%B0%D1%84&gs _rfai=
|
|
|

01.04.2010, 16:46
|
|
Познающий
Регистрация: 03.01.2009
Сообщений: 33
С нами:
9132561
Репутация:
52
|
|
Помогите
Pascal:
В строке найти слова, которые содержат хотя бы одну букву 'k'
|
|
|

01.04.2010, 22:24
|
|
Познающий
Регистрация: 27.05.2009
Сообщений: 44
С нами:
8925577
Репутация:
-1
|
|
Сообщение от n1ghtstalker
молодой человек для начала вам бы прочитать это:
_http://www.google.ru/search?hl=ru&source=hp&q=%D1%81%D0%BA%D0%B0%D1%87% D0%B0%D1%82%D1%8C+%D0%BE%D1%80%D1%84%D0%BE%D0%B3%D 1%80%D0%B0%D1%84%D0%B8%D1%87%D0%B5%D1%81%D0%BA%D0% B8%D0%B9+%D1%81%D0%BB%D0%BE%D0%B2%D0%B0%D1%80%D1%8 C+%D1%80%D1%83%D1%81%D1%81%D0%BA%D0%BE%D0%B3%D0%BE +%D1%8F%D0%B7%D1%8B%D0%BA%D0%B0&lr=&aq=0&aqi=g8&aq l=&oq=%D1%81%D0%BA%D0%B0%D1%87%D0%B0%D1%82%D1%8C+% D0%BE%D1%80%D1%84%D0%BE%D0%B3%D1%80%D0%B0%D1%84&gs _rfai=
чето ты какуето..(похоже на неудачную попитку ломонут гоогле  ) запостил нечо ненаходит пошли ключивое слово по каторому искал
Последний раз редактировалось new-sl; 01.04.2010 в 22:28..
|
|
|

01.04.2010, 17:13
|
|
Познающий
Регистрация: 17.02.2010
Сообщений: 45
С нами:
8542140
Репутация:
47
|
|
LASS0..держи, слова разделяются пробелами
PHP код:
var
s, a: string;
i, rez: integer;
ok: boolean;
begin
readln(s);
ok:=false;
rez:=0; s:=s+' ';
a:='';
for i:=1 to length(s) do
begin
if s[i]<>' ' then
begin
a:=a + s[i];
if s[i] = 'k' then ok:=true;
end
else
begin
if ok then
begin
writeln(a);
ok:=false;
end;
a:='';
end;
end;
readln;
end.
|
|
|

01.04.2010, 21:13
|
|
Участник форума
Регистрация: 10.01.2009
Сообщений: 296
С нами:
9122295
Репутация:
605
|
|
Помогите плз разобраться.
Требуется составить програму на Паскале, которая выводит на экран все натуральные трехзначные числа,
делящиеся без остатка на 17, сумма цифр которых равняется 11.
Получилось вот что:
PHP код:
var
x,y,z,a,i,s:integer;
Begin
For i:=100 to 999 do
x:=i div 100;
y:=(i div 10) mod 10;
z:=i mod 10;
Begin
a:=x+y+z;
If (a=11) and (i mod 17 = 0) then s:=s+i;
writeln ('s',s);
readln;
end;
end.
Выводит: s=0
Что не так, подскажите пожалст?
Так же еще пробывал
PHP код:
Begin
i:=100
{тут манипуляции с числами, дальше сам цикл}
If (a=11) and (i mod 17 = 0) then s:=s+i else i:=i+1;
writeln ('s',s);
readln;
end;
И cнова s=0.
Только тут программа не выйдет из цикла при i=999, как это сделать??
|
|
|

01.04.2010, 21:29
|
|
Познающий
Регистрация: 17.02.2010
Сообщений: 45
С нами:
8542140
Репутация:
47
|
|
rid3r~man..держи
PHP код:
var
x, y, z, a, i, s:integer;
Begin
For i:=100 to 999 do
begin
x:=i div 100;
y:=(i div 10) mod 10;
z:=i mod 10;
a:=x+y+z;
If (a = 11) and (i mod 17 = 0) then writeln (i);
end;
readln;
end.
Последний раз редактировалось Soherox; 01.04.2010 в 21:31..
|
|
|

02.04.2010, 08:14
|
|
Участник форума
Регистрация: 10.01.2009
Сообщений: 296
С нами:
9122295
Репутация:
605
|
|
Soherox Спасибо.
А как все таки здесь сделать, чтобы программа вышла из цикла после i=999 ??
PHP код:
Begin
i:=100
{тут манипуляции с числами, дальше сам цикл}
If (a=11) and (i mod 17 = 0) then s:=s+i else i:=i+1;
writeln ('s',s);
readln;
end;
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|