Важная информация
Показано с 1 по 7 из 7

Тема: Работа с файлами

  1. #1 Работа с файлами 
    Новичок
    Регистрация
    04.05.2011
    Сообщений
    4
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    1. Создать текстовый файл «VES.dat». Записать в файл 10 чисел. Вывести из файла максимальное число.

    2. Создать текстовый файл «NAME.dat». Записать в файл 10 имен. Вывести из файла количество имен, содержащих 4 буквы.

    3. Создать текстовый файл «FAM.dat». Записать в файл 10 фамилий. Вывести из файла самую длинную фамилию.

    4. Создать текстовый файл «FAM.dat». Записать в файл 10 фамилий. Отсортировать фамилии в файле по алфавиту.

    5. Создать текстовый файл «FAM.dat». Записать в файл 10 фамилий. Вывести все фамилии на букву «А».
    Ответить с цитированием  
     

  2. #2  
    Профи Аватар для Dimon012
    Регистрация
    09.02.2011
    Адрес
    Владивосток
    Сообщений
    850
    Сказал(а) спасибо
    29
    Поблагодарили 130 раз(а) в 108 сообщениях
    Записей в блоге
    3
    И для чего Вам Nikita это нужно? Чтобы просто сдать?
    Код :
    ' Открываем файл для записи
    OPEN "VES.dat" FOR OUTPUT AS #1
    ' цикл записи в файл 10-и цифр
    FOR i = 1 TO 10
        PRINT #1, (RND * 10)
    NEXT i
    ' закрываем файл
    CLOSE #1
    ' открываем файл для чтения
    OPEN "VES.dat" FOR INPUT AS #1
    nmax = 0
    ' цикл чтения файла
    WHILE NOT EOF(1)
        ' читаем из файла
        INPUT #1, namb
        ' выбираем наибольшее число
        IF namb > nmax THEN nmax = namb
        'PRINT namb
    WEND
    ' закрываем файл
    CLOSE #1
    ' печатаем наибольшее число
    PRINT nmax
    В целом задачка слегка дурная, ведь зачем сначала записывать нечто в файл, а потом его читать и с этим что то делать, это долго и ненадежно, можно вместо файла использовать массив. А самый эффективный способ найти самое большое число прямо при генерации чисел. Или имелось в виду, что файл надо заполнять вручную???
    Последний раз редактировалось Dimon012; 05.05.2011 в 05:37.
    Ответить с цитированием  
     

  3. #3  
    Профи Аватар для Dimon012
    Регистрация
    09.02.2011
    Адрес
    Владивосток
    Сообщений
    850
    Сказал(а) спасибо
    29
    Поблагодарили 130 раз(а) в 108 сообщениях
    Записей в блоге
    3
    И вообще что за лексика? "Вывести из файла", очевидно следует читать: "прочитать из файла числа, выбрать из них максимальное и распечатать" Хотя это вопрос не к Nikita а к учебнику, там действительно так и написано? Тогда следует формулировать задачу следующим образом: "Создать в текстовом редакторе файл и записать в него 10 чисел, сохранить файл на жесткий диск под именем "VES.dat", написать программу для чтения чисел из этого файла и выбора наибольшего из них." Я это пишу не потому, что у меня "приступ нудности", а потому, что от правильной формулировки задачи зависит все создание программы, а неверно сформулированная задача приводит к неверному программированию и следовательно неверно работающей программе!
    И вообще как меня достали!!! Больше всего в жизни я не люблю непроффесионалов!!!!! А вот их в России все больше и больше, судя по тому как пишутся учебники
    Последний раз редактировалось Dimon012; 05.05.2011 в 07:13.
    Ответить с цитированием  
     

  4. #4  
    Профи Аватар для Dimon012
    Регистрация
    09.02.2011
    Адрес
    Владивосток
    Сообщений
    850
    Сказал(а) спасибо
    29
    Поблагодарили 130 раз(а) в 108 сообщениях
    Записей в блоге
    3
    Учитывая вышесказанное представляю ответ на вторую задачу!
    Код :
    OPEN "NAME.dat" FOR INPUT AS #1
    kol = 0
    WHILE NOT EOF(1)
        INPUT #1, name$
        IF LEN(name$) = 4 THEN kol = kol + 1
        'PRINT name$
    WEND
    CLOSE #1
    PRINT kol
    Не забудте, что файл должен находиться в той же папке, что и работающая программа!
    Ответить с цитированием  
     

  5. #5  
    Профи Аватар для Dimon012
    Регистрация
    09.02.2011
    Адрес
    Владивосток
    Сообщений
    850
    Сказал(а) спасибо
    29
    Поблагодарили 130 раз(а) в 108 сообщениях
    Записей в блоге
    3
    В связи с вышесказанным представляю третью задачку:


    Код :
    OPEN "FAM.dat" FOR INPUT AS #1
    kol = 0
    famil$ = ""
    WHILE NOT EOF(1)
        INPUT #1, fam$
        IF LEN(fam$) > kol THEN
            kol = LEN(fam$)
            famil$ = fam$
        END IF
        'PRINT fam$
    WEND
    CLOSE #1
    PRINT famil$

    Опять же напоминаю, файл с фамилиями должен лежать в директории (папке) программы!
    Последний раз редактировалось Dimon012; 05.05.2011 в 06:22.
    Ответить с цитированием  
     

  6. #6  
    Профи Аватар для Dimon012
    Регистрация
    09.02.2011
    Адрес
    Владивосток
    Сообщений
    850
    Сказал(а) спасибо
    29
    Поблагодарили 130 раз(а) в 108 сообщениях
    Записей в блоге
    3
    Вот пятая задачка

    Код :
    OPEN "FAM.dat" FOR INPUT AS #1
    WHILE NOT EOF(1)
        INPUT #1, fam$
        IF MID$(fam$, 1, 1) = "А" THEN PRINT fam$
    WEND
    CLOSE #1

    Хочу добавить, что возможна путаница с кодировкой русских букв, как вариант предлагаю запись фамилий на латиннице, в этом случае незабудте заменить "А" на латинское "A" с виду они одинаковы, но код разный, так же имеет значение регистр буквы.
    Последний раз редактировалось Dimon012; 05.05.2011 в 06:34.
    Ответить с цитированием  
     

  7. #7  
    Профи Аватар для Dimon012
    Регистрация
    09.02.2011
    Адрес
    Владивосток
    Сообщений
    850
    Сказал(а) спасибо
    29
    Поблагодарили 130 раз(а) в 108 сообщениях
    Записей в блоге
    3
    Nikita, а вот стесняюсь спросить, вы вообще чем занимаетесь? После анализа ваших сообщений есть два варианта:
    1. Вы не занимались информатикой года полтора-два.
    2. Вы подрабатываете в своей школе (или на курсе) с помощью продажи заданий по информатике.

    Уж простите меня за любопытство
    Последний раз редактировалось Dimon012; 05.05.2011 в 07:27.
    Ответить с цитированием  
     

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Удалённая работа в США и ЕС
    от kaktebe в разделе Флейм
    Ответов: 12
    Последнее сообщение: 19.09.2012, 10:46
  2. Работа с массивами
    от Этери в разделе QBasic
    Ответов: 2
    Последнее сообщение: 15.11.2011, 05:54
  3. Некорректная работа программы
    от St&Ai. в разделе QBasic
    Ответов: 6
    Последнее сообщение: 14.08.2011, 13:59
  4. Работа в ЮАР
    от ОльгаЮАР в разделе Архив
    Ответов: 0
    Последнее сообщение: 07.06.2011, 18:47
  5. Работа с ресурсами PC в С/C++
    от Tyaga в разделе C/C++
    Ответов: 1
    Последнее сообщение: 11.02.2011, 18:27
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •