HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

  #1  
Старый 01.04.2010, 00:31
LEGHEBOKA
Новичок
Регистрация: 30.03.2010
Сообщений: 3
С нами: 8484068

Репутация: 0
По умолчанию

Цитата:
Помогите плз с лабораторной, завтра нужно сдать

задачку сделать с использованием функций ,
турбо паскаль

Заданы 2 двумерных массива А(М,М) и В(К,К). Переписать в один одномерный массив элементы главной и побочной диагонали массива А , а в другой одномерный массив элементы главной и побочной диагоналей массива В. Использовать подпрограммы.
Да ты че с ума сошёл, такую лехкотню не можешь решить. Позор тебе. Книжки те надо читать, а не по всяким сайтам шастать. Иди сам делай.
 
Ответить с цитированием

  #2  
Старый 01.04.2010, 03:08
DIDn"t
Новичок
Регистрация: 14.12.2009
Сообщений: 4
С нами: 8636635

Репутация: 0
Post

Цитата:
LEGHEBOKA Да ты че с ума сошёл, такую лехкотню не можешь решить. Позор тебе. Книжки те надо читать, а не по всяким сайтам шастать. Иди сам делай.

Цитата:
LEGHEBOKA Здарово народ, помогите пожалуста решить задание по
лабе по турбо паскалю.
УСЛОВИЕ:
Дан массив А(N,N). Поменять элементы К-ой строки с элементами последней строкой этого массива. Переписать в одномерный массив элементы К-ой строки. Первоначальный и преобразованый двумерные массивы и одномерный массив вывести на экран.
P.S.
актуально
Цитата:
Помогите плз с лабораторной, завтра нужно сдать

задачку сделать с использованием функций ,
турбо паскаль

Заданы 2 двумерных массива А(М,М) и В(К,К). Переписать в один одномерный массив элементы главной и побочной диагонали массива А , а в другой одномерный массив элементы главной и побочной диагоналей массива В. Использовать подпрограммы.
 
Ответить с цитированием

  #3  
Старый 01.04.2010, 12:43
new-sl
Познающий
Регистрация: 27.05.2009
Сообщений: 44
С нами: 8925577

Репутация: -1
По умолчанию

всем ривет я хачу написать шахматы вот тока знаний у меня нехватает пока для этого посоветуите книгу или статю на ету тему где нетолко стоит Альфа-бета-отсечение а полностю код харошо розоброный и понятно описнаый скачал книгу "програмирование шахмат и других логичиских игр " тока там описание на С понять в принципи мошно но там работает он побитно а не обэктно орентировано да и обяснает както неочен на мои взгля или может я тупои просто кароче ест ли ченит в етом роде пишите буду благодарен !!!
 
Ответить с цитированием

  #4  
Старый 01.04.2010, 16:39
n1ghtstalker
Познающий
Регистрация: 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=
 
Ответить с цитированием

  #5  
Старый 01.04.2010, 16:46
LASS0
Познающий
Регистрация: 03.01.2009
Сообщений: 33
С нами: 9132561

Репутация: 52
По умолчанию

Помогите
Pascal:
В строке найти слова, которые содержат хотя бы одну букву 'k'
 
Ответить с цитированием

  #6  
Старый 01.04.2010, 22:24
new-sl
Познающий
Регистрация: 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..
 
Ответить с цитированием

  #7  
Старый 01.04.2010, 17:13
Soherox
Познающий
Регистрация: 17.02.2010
Сообщений: 45
С нами: 8542140

Репутация: 47
По умолчанию

LASS0..держи, слова разделяются пробелами
PHP код:
  var
    
sastring;
    
irezinteger;
    
okboolean;
begin
  readln
(s);
  
ok:=false;
  
rez:=0s:=s+' ';
  
a:='';
  for 
i:=1 to length(s) do
    
begin
      
if s[i]<>' ' then
        begin
          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
 
Ответить с цитированием

  #8  
Старый 01.04.2010, 21:13
rid3r~man
Участник форума
Регистрация: 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 10mod 10;
      
z:=i mod 10;
     
Begin
       a
:=x+y+z;
       If (
a=11) and (i mod 17 0then s:=s+i;
       
writeln ('s',s);
       
readln;
     
end;
 
end
Выводит: s=0
Что не так, подскажите пожалст?

Так же еще пробывал
PHP код:
     Begin
   i
:=100
     
{тут манипуляции с числамидальше сам цикл}
     If (
a=11) and (i mod 17 0then s:=s+else i:=i+1;
     
writeln ('s',s);
     
readln;
 
end
И cнова s=0.
Только тут программа не выйдет из цикла при i=999, как это сделать??
 
Ответить с цитированием

  #9  
Старый 01.04.2010, 21:29
Soherox
Познающий
Регистрация: 17.02.2010
Сообщений: 45
С нами: 8542140

Репутация: 47
По умолчанию

rid3r~man..держи
PHP код:
 var
     
xyzais:integer;
 
Begin
   
For i:=100 to 999 do
     
begin
        x
:=i div 100;
        
y:=(i div 10mod 10;
        
z:=i mod 10;
        
a:=x+y+z;
        If (
11) and (i mod 17 0then writeln (i);
     
end;
   
readln;
 
end

Последний раз редактировалось Soherox; 01.04.2010 в 21:31..
 
Ответить с цитированием

  #10  
Старый 02.04.2010, 08:14
rid3r~man
Участник форума
Регистрация: 10.01.2009
Сообщений: 296
С нами: 9122295

Репутация: 605
По умолчанию

Soherox Спасибо.
А как все таки здесь сделать, чтобы программа вышла из цикла после i=999 ??
PHP код:
 Begin 
   i
:=100 
     
{тут манипуляции с числамидальше сам цикл
     If (
a=11) and (i mod 17 0then s:=s+else i:=i+1
     
writeln ('s',s); 
     
readln
 
end
 
Ответить с цитированием
Ответ



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Американским студентам запретили пользоваться Skype KPOT_f!nd Мировые новости. Обсуждения. 1 28.09.2006 03:47
Любителям квестов сюда!! FoX's Болталка 10 25.01.2005 20:42



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.