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

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

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

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

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

  1. I

    Помогите написать задачу

    Помогите написать задачу Создать массив случайных трехзначных целых чисел (N <= 30). Найти наибольшую цифру каждого числа. Использовать рекурсивную функцию нахождения наибольшего цифры числа.
  2. I

    Задача на Паскале про массив

    Задача на Паскале про массив Создать массив случайных трехзначных целых чисел (N <= 30). Найти наибольшую цифру каждого числа. Использовать рекурсивную функцию нахождения наибольшего цифры числа.
  3. I

    Кто решит задачки?

    Фри паскаль
  4. I

    Кто решит задачки?

    Кто решит задачки? 1)Создать текстовый файл с несколькими строками. Отыскать и вывести cамий длинную и короткую строку из указанного текстового файла. 2)Создать матрицу 4 × 4: Найти сумму элементов, которые находятся ниже побочной диагонали, сумму элементов, находящихся на основной диагонали...
  5. I

    Задача по Паскалю на множества

    Задача по Паскалю на множества Дана строка символов. Определить количество различных символов, которые являются буквами или цифрами, вывести их на печать, используя множества.
  6. I

    Создайте блок-схему

    Создайте блок-схему Var m0,m,Max_W,i,counter,q:Integer; f:Text; Res:Array[1..20] of ShortInt; Function Pw3(v:byte):LongInt; var t:byte; P:LongInt; begin if v=0 then P:=1 else begin P:=1; for t:=1 to v do P:=P*3; end; Pw3:=P; end; Begin Assign(f,'Input.txt'); Reset(f); Readln(f,m0,Max_W)...
  7. I

    Помогите написать блок схему

    Помогите написать блок схему {$A+,B-,D+,E+,F-,G-,I+,L+,N+,O-,P+,Q-,R-,S+,T-,V+,X+<Y+} {$M 16384,0,655360} program Confuse; var Max,Min,x:Extended; k,n,i:Integer; begin assign(Input,'Confuse.dat'); Reset(Input); Readln(n,k); Max:=-2E9; Min:=2E9; for i:=1 to n do begin read(x); if x>Max then...
  8. I

    Создайте програму с файлами

    Создайте програму с файлами Програма должна проверять в входном файле количество рядов и удалять по запросу пользователя (по номеру ряда) сам ряд.
  9. I

    Создайте блок схему

    Создайте блок схему Program Scles; Cont Weight:Array[0..19] of longint =(1,3,9,27,81,243,729,2187,6561,19683,59049, 177147,531441,1594323,4782969,14348907, 43046721,129140163,387420489,1162261467); Var m,n temp,i,j:longint; d:Array[0..20] of -1..1; begin Assign(input,'Input.txt'); reset(Input)...
  10. I

    Проверьте почему не работает правильно

    Проверьте почему не работает правильно 2.1 Постановка задачі ТЕРЕЗИ Є терези і набір гир масою 1,3,9,27,…,3^(n-1)кг, причому кожна гиря в єдиному екземплярі. На ліву шальку терезів кладуть предмет масою m кг (0 <=m<=3). Потрібно розподілити гирі на терезах так, щоб...
  11. I

    Нужна блок схема к Паскалю. Помогите

    Привет очень нужна блок схема, я не знаю как это сделать....:tehnari_ru_325: Условие Існують натуральні числа, що закінчуються цифрою N: перенесення цифри N на початок числа приводить до збільшення числа у N разів. Наприклад, число 102 564,N=4,410 256= 102 564 • 4. Знайдіть найменші натуральні...
  12. I

    Нужна блок схема к Паскалю. Помогите

    Нужна блок схема к Паскалю. Помогите Привет очень нужна блок схема, я не знаю как это сделать....:tehnari_ru_325: вот код Program Interesting_numbers_kursova; Const Size=80; Var Mas:Array[1..Size] of 0..9; n:Byte; Procedure Run(n:Byte); Var j,i,ost,cifr:Byte; begin...
  13. I

    Нужна блок-схема, помогите

    Нужна блок-схема, помогите Всем привет у меня сдача курсовой, пожалуйста помогите написать блок схему к это программе((( вот код...:tehnari_ru_942: Program Sudna; Type New_type=Record numb,time:integer; end; Arr=Array[1..10000] of New_type; Var A:Arr; i,n:integer; Procedure Read_Data; begin...
  14. I

    Помогите написать блок-схему

    Помогите написать блок-схему Добрый день, у меня проблема, нужна блок схема к курсовой, а я не знаю как сделать.... Помогите пожалуйста... Вот код... Program Mediana; Type New_Mas=Array[1..20001] of Integer; Var i,n:LongInt; a,b:^New_Mas; Procedure Sort(L,r:Integer); var i,j,x,y:integer; begin...
  15. I

    Помогите написать блок-схему для курсовой

    Спасибо Огромное!!! Очень благодарен!
Назад
Сверху