Версия для печати темы

Автор: FirsT 1.6.2012, 15:40

Тема: Обработка символьных массивов.
Условие задачи: Дана матрица их n x n символьных величин. Определить сколько в ней элементов, оканчивающихся буквой "R".
Вот собственно сама программа:
CLS: INPUT "matrix";n
DIM A$(n,n)
INPUT "konechnaya bukva";R$
FOR I = 1 TO n
INPUT "vvedite slovo"; A$(I)
IF RIGHT$(A$(I),1) = R$ THEN k = k+1
NEXT I
IF k = 0 THEN PRINT "v massive net slov, okanchivayuchihsya na bukvu"; R$: END
Print "vse slova, okanchivayuchiesya na bukvu ";R$
FOR I = 1 TO n
IF RIGHT$(A$(I),1) = R$ THEN PRINT A$(I)
NEXT I
END

С ув. FirsT. Спасибо.