Осуществить запись текстовых данных в файл и чтение из файла с сравнением записанных и считанных данных. Имя файла выбирается произвольно, файл должен быть размещен в корневом каталоге диска С: и иметь расширение .txt — QBasic(Бейсик)

a = 5
b = 10
OPEN "c:\text.txt" FOR OUTPUT AS #1
PRINT #1, a
PRINT #1, b
CLOSE
OPEN "c:\text.txt" FOR INPUT AS #2
INPUT #2, a1
INPUT #2, b1
CLOSE
IF (a = a1) AND (b = b1) THEN PRINT "o'k" ELSE PRINT "no"

Тестирование выполнено в программе QB64 ( Скачать )

Leave a Comment