Создать файл, содержащий произвольные текстовые строки

@Vzik · Регистрация: 05.05.2009

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

Я понимаю что задачки не сложные...но у меня с ними возникли проблемы нужна ваша помощь!!!!
1. В заданном предложении символы самого длинного слова заменить символами «*».Напечатать исходный и преобразованный тексты.
2.Создать файл, содержащий произвольные текстовые строки. Напечатать строки, имеющие наименьшую длину.Файл я создала а вот строки вывести не могу...помогите?!

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
CLS
REM
OPEN "file.dat" FOR OUTPUT AS #1
INPUT "vvedi 1 predlozenee", a$
INPUT "vvedi 2 predlozenee", b$
INPUT "vvedi 3 predlozenee", c$
WRITE #1, a$, b$, c$
CLOSE #1
IF LEN(a$) > LEN(b$) THEN
IF LEN(a$) > LEN(c$) THEN
PRINT a$
IF LEN(b$) > LEN(c$) THEN
PRINT b$, c$
ELSE
PRINT c$, b$
END IF
END IF
END IF
END

@BasicMan · 14.05.2009, 20:41

1. в предложении могут быть знаки пунктуации, или только пробелы?

Добавлено через 20 минут 9 секунд
2. Это Визуал или Кубасик?

@Vzik · 14.05.2009, 20:53 **[ТС]**

Это визиол бейсик

А в первой тока пробелы без знаков препинания!

@Toxa33rus · 14.05.2009, 22:45

вот первое:

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
CLS
REM
 
INPUT "vvedi 1 predlozenie: ", a$
currBeginPos = 0
currEndPos = 0
maxLen = 0
maxBeginPos = 0
maxEndPos = 0
FOR i = 1 TO LEN(a$)
  IF MID$(a$, i, 1) = " " THEN
    currEndPos = i
    IF currEndPos - currBeginPos > maxLen THEN
      maxBeginPos = currBeginPos + 1
      maxEndPos = currEndPos - 1
      maxLen = currEndPos - currBeginPos
    END IF
    currBeginPos = i - 1
  ELSE
    currEndPos = i + 1
  END IF
NEXT i
 
tmpStr$ = left$(a$,maxBeginPos)
For i=1 to maxLen - 2
  tmpStr$ = tmpStr$ + "*"
next i
tmpStr$ = tmpStr$ + RIGHT$(a$, len(a$) - maxEndPos)
 
print tmpStr$

@BasicMan · 15.05.2009, 12:13

Toxa33rus, эту задачу лучше решать через функцию InStr:

INSTR()
Returns the position of the first occurrence of a string in another string.

PureBasic
1
INSTR([start%,]stringexpression1$,stringexpression2$)

start% Sets the character position where the search begins.
If start% is omitted, INSTR starts at position 1.
stringexpression1$ The string to search.
stringexpression2$ The string to look for.

Ex:

PureBasic
1
2
a$ = "Microsoft QBasic"
PRINT "String position ="; INSTR(1, a$, "QBasic")

Не по теме:

но, по-любому, ее лучше вообще решить, чем лезть со своими идиотскими советами (эт я про себя грю)
Toxa33rus, будет время займись и второй задачкой, пожалуйста

@Toxa33rus · 15.05.2009, 15:10

По второму не совсем понятно: "Создать файл, содержащий произвольные текстовые строки".
Может подразумевается что его надо руками создать, а потом уже вывести в бэйсике то что нужно?

@Vzik · 15.05.2009, 17:29 **[ТС]**

Ну про 2 задачу как было задание так и написала! Как я поняла строки 3 ввести с клавиатуры...я смогла! Теперь только вывести строки с наименьшей длинной не получается...

@BasicMan · 15.05.2009, 17:33

Не по теме:

Vzik, здравствуйте )

во второй задаче 3 строки или больше?
и еще, даже для 3х строк Ваш алгоритм проверки довольно интересен ;о)

@Vzik · 15.05.2009, 17:54 **[ТС]**

Там нужно именно три строки...мне преподаватель объяснял что так нужно сравнивать строки...а ничего не получается!!!

@BasicMan · 15.05.2009, 18:11

по-моему условие надо так переписать )

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
IF LEN(a$) > LEN(b$) THEN
   IF LEN(a$) > LEN(c$) THEN
      PRINT b$,c$
   ELSE
      PRINT a$, b$
   END IF
ELSE
   IF LEN(b$) > LEN(c$) THEN
      PRINT a$,c$
   ELSE
      PRINT a$,b$
   END IF
END IF

@Vzik · 15.05.2009, 18:18 **[ТС]**

Все, теперь все решено, всем спасибо за задачки

Новые блоги и статьи Все статьи Все блоги /
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .

@BasicMan 19318 / 2626 / 84 Регистрация: 17.02.2009 Сообщений: 30,364
	14.05.2009, 20:41
	1. в предложении могут быть знаки пунктуации, или только пробелы? Добавлено через 20 минут 9 секунд 2. Это Визуал или Кубасик? 0

@Vzik 32 / 28 / 7 Регистрация: 05.05.2009 Сообщений: 58
	14.05.2009, 20:53 [ТС]
	Это визиол бейсик А в первой тока пробелы без знаков препинания! 0

@Toxa33rus 3924 / 925 / 125 Регистрация: 16.04.2009 Сообщений: 1,977
	15.05.2009, 15:10
	По второму не совсем понятно: "Создать файл, содержащий произвольные текстовые строки". Может подразумевается что его надо руками создать, а потом уже вывести в бэйсике то что нужно? 0

@Vzik 32 / 28 / 7 Регистрация: 05.05.2009 Сообщений: 58
	15.05.2009, 17:29 [ТС]
	Ну про 2 задачу как было задание так и написала! Как я поняла строки 3 ввести с клавиатуры...я смогла! Теперь только вывести строки с наименьшей длинной не получается... 0

@BasicMan 19318 / 2626 / 84 Регистрация: 17.02.2009 Сообщений: 30,364
	15.05.2009, 17:33
	Не по теме: Vzik, здравствуйте ) во второй задаче 3 строки или больше? и еще, даже для 3х строк Ваш алгоритм проверки довольно интересен ;о) 0

@Vzik 32 / 28 / 7 Регистрация: 05.05.2009 Сообщений: 58
	15.05.2009, 17:54 [ТС]
	Там нужно именно три строки...мне преподаватель объяснял что так нужно сравнивать строки...а ничего не получается!!! 0

@Vzik 32 / 28 / 7 Регистрация: 05.05.2009 Сообщений: 58
	15.05.2009, 18:18 [ТС]
	Все, теперь все решено, всем спасибо за задачки 0