Перейти к содержанию

алексей555

Пользователи
  • Постов

    456
  • Зарегистрирован

  • Посещение

Весь контент алексей555

  1. @bambr_72 привет ноут dns i3, 4Gb оперативы, жёского нет и сломана матрица и край корпуса! зарядка есть
  2. она будет запущена не всегда, вот в чём и проблема. нужно средствами delphi реализовать ( даже в голову ничего не лезет
  3. Помогите советом по delphi 7) Как определить что закоончился календарный месяц??? Необходимо обновлять данные в таблице ежемесячно, как сделать так что бы по истечению месяца данные в таблице обновлялись???
  4. Продам акк origin с BF3 и BF4 + ещё пару игр) Писать в личку )
  5. продам акк origina с bf4 чистый уже не продаю
  6. NATОгромное спасибо!! Странно прочему сам не додумал ((
  7. Задача такова: Дана целочисленная квадратная матрица Yn*n. Найти суммы элементов тех строк матрицы, на главной диагонали которых стоят нулевые элементы. Вот что пришло на ум, но все усилия дали 0% результата Может кто подкинет алгоритм? void main() { int y[20][20]; int sum; unsigned i,j,n; cout<<"Ââåäèòå n: "; cin>>n; sum=0; for (i=0; i cout< for (j=0; j cin>>y[i][j]; } } for (i=0;i for (j=0;j if ((i=j) && (y[i][j]=0)) sum+=y[i][j]; } } cout<<"summa= "<getch(); }
  8. Всё нашёл в чём проблема , стыдно, очень очень )) проблемка была банальной Закройте пожалуйста тему!!
  9. Бьюсь несколько дней, ничего в голову не лезет (( Задача: а)Создать типизированный файл, содержащий сведения о друзьях.Структура фамилия, имя, дата рождения (дд.мм.гггг) , хобби б)Вывести на экран список друзей(фамилия имя и дата рождения), родившихся во время года Х (зима, лето и тд) и имеющих хобби Y(любое)!! Проблема в следующем: не получается вывести список (( проверьте ошибки, Заранее огромное спасибо всем кто хотя бы натолкнёт на правильную волну !! Собственно вот код: type zap=record fi:string[20]; dr:string[10]; xob:string[15] end; var z:zap; f:file of zap; m:string; begin writeln('Для окончания ввода наберите ноль и нажмите клавишу Enter '); assign(f,'drug.dat'); rewrite(f); write('Фамилия и имя друга: '); readln(z.fi); repeat with z do begin write('дата рождения: '); readln(dr); write('хобби: '); readln(xob); write(f,z); write('Фамилия и имя: '); readln(fi); end; until z.fi='0'; close(f); writeln('Файл создан') end. program ti_file; type zap=record fi:string[20]; dr:string; xob:string[15] end; var z:zap; f:file of zap; m,vg,x,y:string; err,n: integer; begin write('Введите время года: '); readln(x); write('хобби: '); readln(y); assign(f,'drug.dat'); reset(f); while not eof(f) do with z do begin read(f,z); m:=copy(z.dr,4,2); val(m,n,err); case n of 01,02,12:vg:='зима'; 03,04,05:vg:='весна'; 06,07,08:vg:='лето'; 09,10,11:vg:='осень' end; if (x=vg) and (y=z.xob) then writeln('|',z.fi:10,'|':10,z.dr:10,'|':10,z.xob:15) end; close(f) end. program ti_file;
  10. Xupyp1 Смысл трогать стандартный термоинтерфейс? Вот когда подсохнет (ну это относительно долго и не обязательно)! Если температура процыка нормальная, то и нет смысла что-то делать
  11. + версия bios, а так по таким вопросам нужно на сайте производителя читать
  12. у меня 70ms пинг! на российских серверах и 117-130 на европу
  13. для начала протестируй винт на наличие битых секторов и тп. и замерь температуру всех елементов в простое и когда в игре начинает лагать!! после будем демать дальше
  14. ArtyomK премного благодарен!! Хорошо кода есть люди которые могут помочь, ещё раз спасибо
  15. aspirin так вот я получил 11 5 24 52 12 47 23 15 6 10 54 99 13 41 65 12 15 45 65 32 21 22 44 55 74 65 20 12 31 20 на выходе 24 5 11 52 12 47 23 15 6 10 54 99 13 41 65 12 15 45 65 32 21 22 44 55 74 65 20 12 31 20
  16. aspirin спасибо за предложение, но всё же, 3 элемент вектора остаётся без изменений!! может ещё где ошибка в записи ?
  17. Помогите !! в языках программирования я не очень, но обещаю исправиться, а пока не могу отладить прогамму! Задание В вещественном векторе А(n) найти наибольший элемент и поменять его с первым элементом. Вывести преобразованный вектор!: Программа работает только на первых 2 элемента вектора, а остальные не корректно заменяет вообщем вот код program vector; var A:array [1..30] of real; num,i,n:byte; max:real; begin writeln('Введите размерность вектора '); read(n); writeln('введите элементы вектора через пробел '); for i:=1 to n do read(A[i]); max:=A[i]; num:=1; for i:=1 to n do begin if maxmax:=A[i];num:=i; end; end; A[num]:=A[1]; A[1]:=max; for i:=1 to n do write(' ', A[i]); writeln end. помогите уважаемые гуру!!
  18. Приму в дар звукотехнику(усилки, ас) Советского времени не важно в каком состоянии!!
  19. приму в дар, не рабочую либо рабочую, советскую аудио аппаратуру ( усилители и акустику, пульты и тд ) Ну если кому не жалко
  20. Matisseне знаю как вам !! а мне понравилось более динамичней !!
  21. Matisse ммм.... DLS?? это мой друг не DLS а Beta test- по этому тут всё ватное и мягкое
  22. мда неплохо процессор грузит !! Amd Phenom II x6 [email protected] все 6 ядер по 70-80 процентов нагружает!!
×
×
  • Создать...