Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2013.07.07;
Скачать: [xml.tar.bz2];

Вниз

масивчик (   Найти похожие ветки 

 
G-leb   (2012-11-17 00:49) [40]

а гг ))  промежутки между  числами )


 
Inovet ©   (2012-11-17 00:50) [41]

> [36] G-leb   (17.11.12 00:40)
> не 7 винде не работает ф1

Ужас. Вирус, наверное, блокирует?


 
G-leb   (2012-11-17 00:58) [42]


> Ужас. Вирус, наверное, блокирует?


процессор не может работать с такими тяжелыми приложениями как справка


 
Sha ©   (2012-11-17 00:59) [43]

смени процессор


 
Inovet ©   (2012-11-17 01:03) [44]

> [43] Sha ©   (17.11.12 00:59)
> смени процессор

Мозг что ли? Ещё не всё потеряно - можно потренировать.


 
Германн ©   (2012-11-17 01:15) [45]


> смени винду


> смени процессор
>

Лучше сменить профессию будущую на такую где нет ни процессоров, ни F1, ни вообще компьютеров.


 
G-leb   (2012-11-17 01:22) [46]

program lab5;

{$APPTYPE CONSOLE}

uses
ctr;
Var
  mas : array [1..500] of  integer;
  n, i, j,k : integer;
begin
    clrscr;
   randomize;
   write("pazmernost masiva:"); readln(n);
for i := 1 to n do
   mas[i] := random (100);

   writeln ("masiv do sortirovki");
 for i := 1 to n do   write(mas[i]:3);

       for j:=1 to n-1 do
        for i:=1 to n-j do
       if (mas[i] > mas[i+1]) then
       begin k:=mas[i]; mas[i]:=mas[i+1]; mas[i+1]:=k end;
        writeln; writeln ("masiv posle sortirovki");
        for i := 1 to n do   write(mas[i]:3); readkey;

end.


какого хрена мне  
uses
ctr;
 ошибку показывает


 
G-leb   (2012-11-17 01:23) [47]

у меня есть образование одно ... МАРКЕТОЛОГ ...  но   мне нравится программирование


 
G-leb   (2012-11-17 01:24) [48]


> Лучше сменить профессию будущую на такую где нет ни процессоров,
>  ни F1, ни вообще компьютеров.

а вообще я дизайнером работаю и верстаю немного


 
G-leb   (2012-11-17 01:36) [49]


> Глеб, представь что оперирующий тебя врач прибежал на форум
> с вопросом "с какой стороны аппендицит"?


врачей не допустят до операции если они на 1 курсе  проучились 2 месяца сам то понял че пишешь .. не удачный пример


 
Германн ©   (2012-11-17 02:08) [50]


> G-leb   (17.11.12 01:23) [47]
>
> у меня есть образование одно ... МАРКЕТОЛОГ ...  но   мне
> нравится программирование

Нравится/Не нравится - надо учиться, а не списывать.

Врачей, которые "списывали" четыре года в институте, и ещё один год в ординатуре - в биореактор однозначно!


 
G-leb   (2012-11-17 03:24) [51]

Удалено модератором


 
zzzz   (2012-11-17 05:18) [52]

Удалено модератором


 
Anatoly Podgoretsky ©   (2012-11-17 09:55) [53]


> смени процессор

Что вы все Windows, процессор, надо что нибудь попроще, например сменить F1


 
Очень Злой   (2012-11-17 15:12) [54]


> вот масив .. как дописать чтоб находило похожие и добавляло
> ... а не походие умножало ?


Как вариант - сортируем массив например по возрастанию и затем пробегаемся по нему... все повторяющиеся числа после сортировки будут рядом, так что вычислить их не составит труда.


 
Очень Злой   (2012-11-17 15:20) [55]

Блин, не до конца прочитал ветку. А тут уже оказывается все разжевали...


 
брат Птибурдукова   (2012-11-17 16:25) [56]


> какого хрена мне  uses ctr;  ошибку показывает
Боже, как нас били за усес црт, цлрсцр и прочий украшайзинг в программах, вовсе не требовавших такового...



Страницы: 1 2 вся ветка

Форум: "Начинающим";
Текущий архив: 2013.07.07;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.55 MB
Время: 0.004 c
2-1353085510
G-leb
2012-11-16 21:05
2013.07.07
масивчик (


2-1352981138
Anariem
2012-11-15 16:05
2013.07.07
Timer


15-1361219402
Юрий
2013-02-19 00:30
2013.07.07
С днем рождения ! 19 февраля 2013 вторник


15-1361651403
Юрий
2013-02-24 00:30
2013.07.07
С днем рождения ! 24 февраля 2013 воскресенье


1-1309850189
adigozelov
2011-07-05 11:16
2013.07.07
ESC-команд Epson Lq 300,





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский