• Добро пожаловать на компьютерный форум Tehnari.ru. Здесь разбираемся с проблемами ПК и ноутбуков: Windows, драйверы, «железо», сборка и апгрейд, софт и безопасность. Форум работает много лет, сейчас он переехал на новый движок, но старые темы и аккаунты мы постарались сохранить максимально аккуратно.

    Форум не связан с магазинами и сервисами – мы ничего не продаём и не даём «рекламу под видом совета». Отвечают обычные участники и модераторы, которые следят за порядком и качеством подсказок.

    Если вы у нас впервые, загляните на страницу о форуме и правила – там коротко описано, как задать вопрос так, чтобы быстро получить ответ. Чтобы создавать темы и писать сообщения, сначала зарегистрируйтесь, а затем войдите под своим логином.

    Не знаете, с чего начать? Создайте тему с описанием проблемы – подскажем и при необходимости перенесём её в подходящий раздел.
    Задать вопрос Новые сообщения Как правильно спросить
    Если пришли по старой ссылке со старого Tehnari.ru – вы на нужном месте, просто продолжайте обсуждение.

Недавнее содержимое от Jogi

  1. J

    Векторы в Паскаль

    вот код держи) uses tpcrt; var max,min : Byte; a: array[1..20] of byte; i,a1 : byte; b : boolean; begin clrscr; write('Input min,max [0..127] : '); readln(min,max); b:=true; a[1]:=min; write(a[1]:4); for i:=2 to 20 do begin if b then begin a[i]:=a[i-1]+1; b:=a[i]<>max; end...
  2. J

    Векторы в Паскаль

    мне привели пример что должно получится так: но так должно быть с любыми числами, как я понял он должен получится "волнообразный" что лиtehno015
  3. J

    Помогите разобраться

    Помогите разобраться есть код который в тип файлах выводит строку в которой удалены числа между мин2 и мах2)) подскажите в каком месте программы идет удаление и если можете подскажите как сделать так что бы удалилось все кроме тех чисел которые между мин2 и мах2) uses crt; var f:file of...
  4. J

    Файлы в Паскаль

    сделал я не так, да и все равно как сделать одну нормальную программу для 2-го задания из этих 2-х я не понимаю((tehno015 uses crt; const n=5; m=7; var a:array[1..n,1..m] of integer; vmin,vmax,i,j,x,y,mx,mn,imx,jmx,imn,jmn,z:integer; f:text; begin clrscr; randomize...
  5. J

    Файлы в Паскаль

    посмотрите пожалуйста так ли я сделал?)) Const N=5; Type Mtr=Array[1..N,1..N] of Integer; Var Matrix:Mtr; p,q:byte; Max:Integer; i,j,k:byte; M:Mtr; Begin k:=0; for j:=1 to N do begin Max:=M[1,j]; for i:=1 to j do if M[i,j-i+1]>Max then Max:=M[i,j-i+1]; Inc(k)...
  6. J

    Кто-нибудь может помочь с решением?

    Вот в первой программе, можете показать где именно идет удаление, и что то не очень понимаю как изменить чтобы удалялось не между мин2 и мах2 а наоборот за ними))
  7. J

    Файлы в Паскаль

    Прочитать из созданного файла все диагонали, параллельные побочной, и вывести их на экран построчно. Подскажите пожалуйста как мне это сделать))
  8. J

    Файлы в Паскаль

    11Angelav спасибо))
  9. J

    Файлы в Паскаль

    Помогите пожалуйста:tehnari_ru_837: уж очень надоtehno015
  10. J

    Файлы в Паскаль

    Файлы в Паскаль Доброго времени суток. помогите пожалуйста нужно составить 2 програмки в паскаль.Буду очень благодарен: Задание 1 Создать типизированный файл целых чисел. Записать в него с консоли последовательность целых чисел, конец последовательности (терминатор) – ноль, который не...
Назад
Сверху