Вывести из файла самую длинную фамилию

@jaguar9009 · Регистрация: 03.05.2011

Author24 — интернет-сервис помощи студентам

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

QBasic/QuickBASIC

CLS
OPEN "FARM.DAT" FOR OUTPUT AS #1
DIM A$(10)
FOR I = 1 TO 10
INPUT "NAME"; A$(I)
PRINT #1, A(I)
NEXT I
N = LEN(A$(1))
FOR I = 2 TO 10
IF N < LEN(A$(I)) THEN IMAX = I
NEXT I
PRINT A$(IMAX)
CLOSE #1

выводит в файл одни нули

@кот Бегемот · 05.05.2011, 22:21

доллар пропустил в 6 строке

@Quiet Snow · 05.05.2011, 22:44

Судя по заданию можно выполнить его так:

PureBasic

CLS
F = FREEFILE
OPEN "R", #F, "FAM.DAT"
   FOR i = 1 TO 10
      INPUT "NAME :", N$
      PRINT #F, N$
   NEXT
   SEEK #F, 1
   FOR i = 1 TO 10
      INPUT #F, N$
      IF LEN(N$) > k THEN k = LEN(N$): R$ = N$
   NEXT
CLOSE #F
PRINT R$

@кот Бегемот Платежеспособный зверь 8926 / 4354 / 1642 Регистрация: 28.10.2009 Сообщений: 11,568
	05.05.2011, 22:21	2
	доллар пропустил в 6 строке 1

	05.05.2011, 22:44

Опции темы