Перейти из форума на сайт.

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?
Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Закладки » Задачи на Pascal/Object Pascal/Free Pascal (Delphi/Lazarus)

Модерирует : ShIvADeSt

 Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434

Открыть новую тему     Написать ответ в эту тему

buffy



Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Задачи и Программирование на языке Pascal/Object Pascal (Turbo, Delphi и Free Pascal)

 
Перед тем, как задать вопрос: загрузите "версию для печати" (ссылка справа вверху, над номерами страниц) и попробуйте поискать средствами браузера (ctrl+F). Большинство типовых задач уже решались, причем неоднократно!  
ВНИМАНИЕ!
Текст всех программ обязательно заключайте в теги [code][/code].
Большие тексты (более 15 строк) обязательно прячутся в [more]ВАШ ТЕКСТ и/или Ваш КОД[/more]

Альтернативный компилятор
Free Pascal Compiler (FPC) -- мощный компилятор Паскаля
 - девиз: пишешь единожды, компилируешь где хошь...
 - на 99% совместим по коду с ТР и Object Pascal (Delphi)
 - межплатформенный
 - свободный  
Lazarus -- среда разработки для FPC (аналог среды Delphi7)
 
Файлы
Русская справка
Turbo Pascal 7.1 добавлены некоторые модули из Borland Pascal, русская справка.
Borland Pascal 7.0 Полный (13-дискетный, вкл. исходники), никем не модифицированный  дистрибутив.
 
Учебники:
В.В.Фаронов - Turbo Pascal. Начальный курс
В.В.Фаронов - Turbo Pascal. Наиболее полное руководство
Д.М.Ушаков, Т.А.Юркова - Паскаль для школьников
С.М.Окулов - Основы программирования
С.М.Окулов - 2 главы из школьного учебника по информатике
В.М.Котов - Олимпиадные задачи по информатике с решениями
Никитин - набор исходников для типовых задач
Мансуров - Основы программирования в среде Lazarus - основы паскаля, много примеров, блоксхем, алгоритмов. 2010. 772 с. примеры к книге
Деревенец - Песни о Паскале - паскаль для школьников и студентов-первокурсников
Епанешниковы - Программирование в среде Turbo Pascal
Паскаль для школьников. Подготовка к ЕГЭ (2011)
Фадеев - Паскаль для школы
Потопахин - Turbo Pascal Решение сложных задач (2006)
Полезные линки
библиотека алгоритмов (есть и на Паскале)
библиотека алгоритмов (ещё одна)
библиотека алгоритмов (и ещё одна)
Разбор олимпиадных задач по информатике от Михаила Густокашина
 
Проблема с набором русского текста в консоли/Turbo Pascal
решение проблемы с набором русского текста в консоли Windows  скриптом (командным файлом)
 
Построение блок-схем
FCEditor -- Программа для автоматического построения блок-схем программ из исходного текста на языке Pascal (Delphi)
 - для правильной работы исходный текст должен начинаться со слова program или unit
Всего записей: 4 | Зарегистр. 24-10-2002 | Отправлено: 12:46 11-01-2003 | Исправлено: akaGM, 23:06 21-11-2019
SERGE_BLIZNUK

Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Andrey89
ИЗДЕВАЕШЬСЯ?!?! найди свой первый запрос. сразу в следущем сообщении решение, которое написал Jokerjar79!!!
 
 
 
 
Добавлено:
von_Brutt
я себе позволил перелопатить ваш код.

Код:
 
uses crt;
var
 ch:char;
 n,i:byte;
 flag:boolean;
begin
 clrscr;
 flag:=true;
 ch:=readkey;
 write(ch);
 if (ch >= '1') and (ch <= '9') then
 begin
   n:= ord(ch) - 48;
   i:= 0;
   repeat
    ch:=readkey;
    write(ch);
    if ch<>'.' then i:=i+1;
   until (ch='.') or (i>n);
   WriteLn;
   if (i=n) then writeln('Yes')
     else writeln('No');
 end
 else
   WriteLn('No! - First char is not digit!');
 
 Writeln('press any key.');
 readkey;
end.
 
 

 
 
Внимание!

Цитата:
за которой следуют только буквы

а вот это условие ни в вашем варианте, ни в моём не учитывается...
 
Добавлено:
Algofil

Цитата:
ты проигнорировал мое решение "финансового формата", лентяй!  Серж, там в строке не только числа в виде неразрывных последовательностей цифр, там и пробелы и буквы и знаки не запрещены...  
в форуме этого условия не было.. судя по всему Вы напрямую по аське общались...
Цитата:
и с сортировкой нахаляву таки код срубил...  
не совсем согласен... ;-)) книжка - это отнюдь не "код нахаляву" - там же разобраться надо и код по себя поправить... хотя... может чел попытается код из книжки переписать и не разбираясь сдать преподу?!... ну и правильно, а то ещё напрягаться, мозги ломать ;-))))
 
 
Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 23:20 27-11-2007
Algofil



Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
судя по всему Вы напрямую по аське
и это тоже - настойчивый молодой человек, эту бы энергию да в мирных целях! хотя вот формулировка:

Цитата:
№1. Текст содержит числа в цифровой форме.
- вполне достаточно сказано, чтобы предположить что кроме чисел может быть что угодно (т.е. даже некоторые байты младше 32, например 9, 10, 13)
Серж, про нахаляву я имел в виду, что он поленился по готовой http://i025.radikal.ru/0711/eb/28b820aca64b.bmp блок-схеме написать алгоритм, более того - лень было продебажить готовый код сортировки с указателями (хотя конечно тут я пожалуй излишне строг, дебажить процедуры работающие с кучей занятие не для слабонервных)
 
ну да ладно у каждого как известно свои дороги и кто знает как пройти их прямо...
Всего записей: 247 | Зарегистр. 19-09-2007 | Отправлено: 09:59 28-11-2007
pkitman



Newbie		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Народ, я все таки начал писать по блок-схеме сортировку, написал, а она не пашит. помогите плиз!!!
 
Uses crt;
Var  
    A:array[1..10] of integer;
    i,t,k,u,n,j:integer;
    
begin
For j:=1 to 10 do
    Begin
    A[j]:=1+random(100);
    end;
  i:=2;
  repeat
    t:=i;
    while t<>1 do
    begin
      k:=t div 2;
      if a[k]>=a[t]
      then
      begin
        t:=1
      end
      else
      begin
        u:=a[k];
        a[k]:=a[t];
        a[t]:=u;
        t:=k;
      end;
    end;
    i:=i+1
  until not(i<=n);
  i:=n-1;
  repeat
    u:=a[i+1];
    a[i+1]:=a[1];
    a[1]:=u;
    t:=1;
    while t<>0 do
    begin
      k:=2*t;
      if k>i
      then
      begin
        t:=0
      end
      else
      begin
        if k<i
        then
        begin
          if a[k+1]>a[k]
          then
          begin
            k:=k+1
          end;
        end;
        if a[t]>=a[k]
        then
        begin
          t:=0
        end
        else
        begin
          u:=a[k];
          a[k]:=a[t];
          a[t]:=u;
          t:=k;
        end;
      end;
    end;
    i:=i-1
  until not(i>=1);
end.
 
Буду очень благодарен!!!
 
Добавлено:
Пардон, немножко не то!!!
 
Вот она!!! Моя прога!!!
 
uses crt;
const n=10;
Var A:array[1..n] of integer;
Var i,k,t,u:integer;
 
Begin
clrscr;
Randomize;
For i:=1 to n do
Begin
A[i]:=1+random(100);
end;
For i:=1 to n do
Begin
Write(A[i]:6);
end;
 
    i:=2;
    repeat
    t:=i;
    if t<>1 then
    begin
    k:=t div 2;
         if a[k]>=a[t] then
         begin
          t:=1
          end
          Else
          begin
          u:=a[k];
          a[k]:=a[t];
          a[t]:=u;
          t:=k;
          end;
    End
      Else
      Begin
      i:=i+1;
    End;
    Until i<=n;
i:=n-1;
 
Repeat
      u:=a[i+1];
      a[i+1]:=a[1];
      a[1]:=u;
      t:=1;
 
      if t<>0 then
      begin
      k:=2*t;
            if k>i then
            begin
            t:=0
            End
            Else
            Begin
                  if k<i then
                  begin
                       if a[k+1]>a[k] then k:=k+1;
                       if a[t]>=a[k] then
                       Begin
                       t:=0;
                       End
                       Else
                       Begin
                       u:=a[k];
                       a[k]:=a[t];
                       a[t]:=u;
                       t:=k;
                       End;
 
                  End;
            End;
      End
      Else
      Begin
      i:=i-1;
 
Until i>=1
ReadKey
End.
 
 
 
Добавлено:
Опять лохонулся!!! Не то выложил, ваще бардак в компе твориться!!! Я не спал уже пару суток!!! Извините!!!
 
Вот номально терь все:
 
Пардон, немножко не то!!!
 
Вот она!!! Моя прога!!!
 
uses crt;
const n=10;
Var A:array[1..n] of integer;
Var i,k,t,u:integer;
 
Begin
clrscr;
Randomize;
For i:=1 to n do
Begin
A[i]:=1+random(100);
end;
For i:=1 to n do
Begin
Write(A[i]:6);
end;
 
    i:=2;
    repeat
    t:=i;
    if t<>1 then
    begin
    k:=t div 2;
         if a[k]>=a[t] then
         begin
          t:=1
          end
          Else
          begin
          u:=a[k];
          a[k]:=a[t];
          a[t]:=u;
          t:=k;
          end;
    End
      Else
      Begin
      i:=i+1;
    End;
    Until i<=n;
i:=n-1;
 
Repeat
      u:=a[i+1];
      a[i+1]:=a[1];
      a[1]:=u;
      t:=1;
 
      if t<>0 then
      begin
      k:=2*t;
            if k>i then
            begin
            t:=0
            End
            Else
            Begin
                  if k<i then
                  begin
                       if a[k+1]>a[k] then k:=k+1;
                       if a[t]>=a[k] then
                       Begin
                       t:=0;
                       End
                       Else
                       Begin
                       u:=a[k];
                       a[k]:=a[t];
                       a[t]:=u;
                       t:=k;
                       End;
 
                  End;
            End;
      End
      Else
      Begin
      i:=i-1;
     End;
 
Until i>=1;
WriteLn;
WriteLn;
For i:=1 to 10 do
Begin
Write(A[i]:6);
End;
ReadKey
End.
Всего записей: 18 | Зарегистр. 21-11-2007 | Отправлено: 21:26 28-11-2007
von_Brutt



Newbie		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
условие на буквы учёл, спсб...
Всего записей: 31 | Зарегистр. 29-10-2007 | Отправлено: 21:43 28-11-2007
s800



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
есть два задания прошу помощи:  
Матрица N:M  
1. зад1 Сформировать вектор из  минимальных значений элементов строк и найти их среднее арифметическое.  
 
2. зад2 Матрица N:M Сформировать вектор из разностей наибольших и наименьших значений элементов строк.
 
пока сделал только это  
{ Лабораторная работа  3
 Выполнила :  Нина
 Группа : 20-103
 Условие :
  сформировать вектор, элементы которого - наименьшие элементы
  соответствующих столбцов заданной матрицы}
 
const
 Mx=10;
 My = 10;
var
 Matrix : array[1..Mx, 1..My] of Real;
 Vec, VecMax : array[1..Mx] of Real;
 i, j : integer;
 k, m : real;
 N, Ny : integer;
BEGIN
 writeln('Лабораторная работа  3');
 writeln('Выполнила : Воробьева Нина');
 writeln('Группа : 20-103');
 writeln('Условие :');
 writeln(' сформировать вектор, элементы которого - наименьшие элементы');
 writeln(' соответствующих столбцов заданной матрицы');
 writeln;
 Writeln('Введите размерность матрицы NxNy (числа должны быть целыми и вводится через пробел):');
 Readln(N, Ny);
 if (N > 1) and (Ny > 1) then
 begin
  Writeln('Введите матрицу');
  for j := 1 to Ny do
   for i := 1 to N do
   begin
    Write('Matrix[', i, ',', j, '] : ');
    Readln(Matrix[i, j]);
   end;
  for i := 1 to N do
  begin
   k := Matrix[i, 1];
   m := Matrix[i, 1];
   for j := 2 to Ny do
   begin  {ищем минимальный элемент по столбцам (меняем j)}
    if Matrix[i, j] < k then k := Matrix[i, j];
    if matrix[i, j] > m then m := Matrix[i, j];
   end;
   Vec[i] := k;
   VecMax[i] := m;
  end;
  Write('Вектор из наименьших элементов : ');
  for i := 1 to N do
   Write(Vec[i]:6:2);
  Writeln;
  Write('Вектор из наибольших элементов : ');
  for i := 1 to N do
   Write(VecMax[i]:6:2);
 end else
  Writeln('введена неверная размерность матрицы');
END.
 
 
Всего записей: 1684 | Зарегистр. 21-02-2005 | Отправлено: 05:43 29-11-2007 | Исправлено: s800, 07:45 29-11-2007
3x3r



Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Матрица:
В Заданной матрице найти строку с наибольшей и наименьшей суммой элементов. Вывести найденные строки и суммы их элементов. =\
Всего записей: 124 | Зарегистр. 17-12-2005 | Отправлено: 06:32 29-11-2007
Algofil



Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ну все... песец программированию - начались зачеты по матрицам...
ничего более идиотского чем тождественные тригонометрические преобразования и поиск элементов матриц по двум (среднепотолочным) параметрам выпускники педвузов (хорошее заведение таким словом не назовут) с корами математика-информатика придумать уже не в состоянии...
всем потерпевшим мой тотальный совет - возьмите готовую реализацию (в комплекте паскаля) сортировки Хоара, осмыслите, перепишите в своем стиле (у кого нет - срочно обзавестись), отладьте и лепите во все лабы к месту и не к месту - препод видит незнакомый код - опаньки, списал! а это что за переменная? и тут вы ему гордо рассказываете как действует этот мегакод - основная задача забывается или уходит на 33 план ввиду своей смехотворности...
 
 
Добавлено:
ЗЫ: кстати не встречал ни одного стюдента, который в состоянии написать квик-сорт с чистого листа, а за поиском минимального элемента с максимальным индексом среднеквадратичной строки обращается на руборд ))
Всего записей: 247 | Зарегистр. 19-09-2007 | Отправлено: 10:02 29-11-2007
sayron22

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
                    00      n+1      2n+1                       3      5
Arctgx=- &#928;/2+&#8721;   (-1) /(2n+1)    =  - &#928;/2-1/x+1/3x-1/5x+…, x<-1
                    N=0    
СЛЕШЬ обозначает деление, несудите строго, я плохо пользуюсь wordom =)
ПОмогите пожалуйста решить эту программу!!!!!!!!!! ПЛИЗЗЗЗЗЗЗЗЗЗЗЗЗ. Мне её завтра здавать или мне хана! =(
 
 
Добавлено:
ЧЁТ СЕРВАК НЕ ТО НАПИСАЛ
 
Добавлено:
Люди, а как добавить файл с решением. или фотку. Чёт найти немогу где вставить можно!
Всего записей: 21 | Зарегистр. 22-11-2007 | Отправлено: 12:53 29-11-2007
Algofil



Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
Люди, а как добавить файл с решением

слева от поля ввода серый кружочек - наведи на него мыша
Всего записей: 247 | Зарегистр. 19-09-2007 | Отправлено: 12:59 29-11-2007
SERGE_BLIZNUK

Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Algofil
Цитата:
сортировки Хоара, осмыслите, перепишите в своем стиле (у кого нет - срочно обзавестись), отладьте и лепите во все лабы к месту и не к месту  
Супер! ;-))
 
;-)) проофтоплю чуть-чуть..
Цитата:
стюдента, который в состоянии написать квик-сорт с чистого листа
ну таких вообще немного (в общем % отношении). да если они тут и появятся - то вопросы будут из олимпиад по программированию... 8-)))
Кстати, я, к своему стыду вынужден признать, что я бы сейчас "с чистого листа" QuickSort не реализовал... хотя бы описание алгоритма потребовалось... ;-((
 
и ещё. вдруг кому понадобится (в плане интересно задачки порешать) -    
 http://contest.elecard.ru/ - I конкурс по программированию компании Элекард
 
Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 14:35 29-11-2007
Algofil



Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
ну таких вообще немного (в общем % отношении)

именно поэтому они сдают зачеты и лабы автоматом, поэтому я и советую форумчанам 1 раз напрячься а потом стричь купоны...

Цитата:
хотя бы описание алгоритма потребовалось

ну естественно с чистого листа не в голове а в девелопере, я ж не прошу придумать алгоритм Хоара или Дийкстры самостоятельно - я че зверь штоле?
Всего записей: 247 | Зарегистр. 19-09-2007 | Отправлено: 14:47 29-11-2007
s800



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
всем потерпевшим мой тотальный совет - возьмите готовую реализацию (в комплекте паскаля) сортировки Хоара,

Что то не нашел в комплекте этой реализации... (кинете сылку плз) где можно скачать
вот http://www.firststeps.ru/theory/knut/r.php?7 это она
Всего записей: 1684 | Зарегистр. 21-02-2005 | Отправлено: 05:09 30-11-2007 | Исправлено: s800, 05:19 30-11-2007
Algofil



Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
да, это она, только у Кнута (как и положено) без глюков, у борландов (в комплекте ТР 7.0 файл не помню типа quick*.pas) было два упущения, смысловое - базовый элемент выбирался тупо из центра и техническое - размер стека забыли увеличить, оставили дефолт
Всего записей: 247 | Зарегистр. 19-09-2007 | Отправлено: 10:07 30-11-2007
sayron22

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Цикл while. Приближённо вычислить интервал. ПОЖАЛЙСТА кто-нибудь решите мне программу от начала и до конца мне завтра отчёт здавать, а именно этой программы нехватает!!!=( Заранее благодарю.
 
Диапазон от 0 до n, ln(2+sinx)dx используя форму прямоугольников при n=100
Диапазон от а до b, f(x)dx~h. [f(x1)+f(x2)+…+f(xn)],
Где h=(b-a)/n, xi=a+ih+h/2.
Всего записей: 21 | Зарегистр. 22-11-2007 | Отправлено: 10:33 30-11-2007
I am not Liar

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
омг сплошь матрицы
фантазии никакой!!!
=)
у нас вот недавно школьная олимпа была - преподша содрала задачи со всеросса за 2006/07 год. за 3 часа тока две осилил =)
на заочку забил, 432 балла из 600 - я доволен)
Всего записей: 87 | Зарегистр. 07-11-2007 | Отправлено: 17:02 30-11-2007
Algofil



Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
за 3 часа тока две осилил

задачи олимпиад прошлых лет - решать обязательно! в натуральную величину притом, они есть на сайтах, по опыту подготовки к всеукраинским олимпиадам могу точно сказать что на областных сплошь и рядом встречаются задачи со всеукраинских 4-5-ти летней давности, а на всеукраинских попадаются (не так часто) слегонца подрихтованные с международных... победители как правило ребята которые сходу определяют - это задача такая, решается так-то, ну и техника кодирования кое-что значит...
Всего записей: 247 | Зарегистр. 19-09-2007 | Отправлено: 17:35 30-11-2007
3x3r



Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
возьмите готовую реализацию (в комплекте паскаля) сортировки Хоара, осмыслите, перепишите в своем стиле

 
 Может дашь ссылку на учебник - пособие,что это такое ?)))
Всего записей: 124 | Зарегистр. 17-12-2005 | Отправлено: 19:42 30-11-2007
AlexandrRGUNG

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помогите пожалуйста.....
Есть такая задачка..... На двумерный массив.. Эта та тема с которой я перестал что либо понимать в паскале, ну тупой я
 
A={Аij }, {i=1, 2, .., n;  j = 1, 2, .., m}.  
 
Aij={sqr(0.84+i)-sqr(abs(i-j)) если i>j
      {sqrt(38+sqr(x)-i) в остальных случаях.
 
Определить в главной диагонали матрицы A число элементов, значение которых превышает значение выражения c*i+b, где i – номер строки. c и b задаются по вводу. Напечатать число элементов и номера строк, которым они принадлежат.  
 
Ввод и вывод оформить здесь нужно оформить из файла, а я не знаю как
Подскажите пожалуйста, каким же образом сделать этот самый ввод и вывод, и в чем сама суть программы.. что такое главная диаганаль? Как ее найти.. На курсе математики мы не проходили матрицу, а на информатике уже начали..
Всего записей: 10 | Зарегистр. 30-11-2007 | Отправлено: 21:59 30-11-2007
SERGE_BLIZNUK

Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
AlexandrRGUNG
Цитата:
что такое главная диаганаль
учитесь пользоваться поиском в интернете. Поверьте, это в жизни пригодится ;-)))
вторая же ссылка в яндексе ведёт на Главная диагональ матрицы

Цитата:
Ввод и вывод оформить здесь нужно оформить из файла, а я не знаю как

вывод в файл - это всего навсего означает, что результат вместо того, чтобы вывести на экран, вывести в файл Assign(fResult,'Result.txt'); Rewrite(fResult); WriteLn(fResult, 'Результат:',...,...,); Close(fResult)
 
вы лучше скажите, откуда взять X (который фигурирует во второй формуле)?? тоже задаётся пользователем, как и C, B ?
 
Добавлено:
3x3r и to ALL
 

Цитата:
возьмите готовую реализацию (в комплекте паскаля) сортировки Хоара, осмыслите, перепишите в своем стиле  

 
ребята, вы поймите, что это была определённая шутка со стороны многоуважаемого Algofil!!! Т.е. БЕЗУСЛОВНО, знание этого алгоритма Вам поможет изучить Паскаль.
Но, к сожалению, в любую задачу вставлять это всё же не стоит ;-)))
 
[OFFTOP]
а то может получится как в том бородатом анекдоте:  
У студента экзамен по биологии,учить лень, ну и выучил только про блох.Приходит на экзамен,тянет билет,смотрит.а ему про рыб досталось.Ну что делать ...  
-ну в общем, рыбы - это животные такие.а если бы они жили на суше,то у них была бы шерсть,а если у них шерсть,значит были бы и блохи,а блохи это...
 
 
Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 23:31 30-11-2007
AlexandrRGUNG

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Х это опечатка. в принципе там не принципиально, что в формуле...
Всего записей: 10 | Зарегистр. 30-11-2007 | Отправлено: 01:57 01-12-2007
Открыть новую тему     Написать ответ в эту тему

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Закладки » Задачи на Pascal/Object Pascal/Free Pascal (Delphi/Lazarus)


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru