Форум программистов, компьютерный форум CyberForum.ru

QBasic

Войти
Регистрация
Восстановить пароль
 
Элизабет
0 / 0 / 0
Регистрация: 06.05.2011
Сообщений: 7
#1

Алфавитный порядок - QBasic

07.05.2011, 00:03. Просмотров 607. Ответов 1
Метки нет (Все метки)

Приветик друзья.
Нужна ваша помощь.
Столкнулась с задачкой впринципи не очень сложно, но имею трудности в написании её на QBasic((
Никогда не изучала этот язык, поэтому даж не имею представления как на нём работать....
Нуждаюсь в вас.

вот условие:

Написать и протестировать функцию, которая определяет, располагаются ли буквы в заданной символьной строке в алфавитном порядке.

вот код на Паскале:
Pascal
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
31
32
33
34
35
36
uses crt;
const bk=['A'..'Z','a'..'z'];
function Alf(s:string;var k:byte):boolean;
var s1:string;
    f:boolean;
    i:byte;
begin
s1:=s;{сделаем копию строки}
for i:=length(s1) downto 1 do
if not(s1[i] in bk) then delete(s1,i,1);{удалим не буквы}
k:=length(s1);
if k>0 then{если есть буквы}
 begin
  for i:=1 to length(s1) do
  s1[i]:=UpCase(s1[i]);{приведем к верхнему регистру}
  f:=true;
  i:=2;
  while(i<=length(s1))and f do
  if s1[i]<s1[i-1] then f:=false{если не по алфавиту}
  else i:=i+1;
  Alf:=f;
 end;
end;
var s:string;
    b:boolean;
    n:byte;
begin
clrscr;
writeln('vvedite stroku soderzhasyu latinskie bukvi:');
readln(s);
b:=Alf(s,n);
if n=0 then write('v stroke net latinskih bukv')
else if b then write('bukvi po alfavitu')
     else write('bukvi ne po alfavitu');
readln
end.
надеюсь вы поможите мне
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.05.2011, 00:03
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Алфавитный порядок (QBasic):

Turbo Basic. Обратный порядок букв каждого k слова - Basic
Напечатать текст,в котором поменять на обратный порядок букв каждого k-го слова, сохранив все остальные слова неизменными.

Дано натуральное число N. Поменять порядок цифр числа N на обратный - Basic
Дано натуральное число N. Поменять порядок цифр числа N на обратный. Freebasic

Изменить порядок элементов массива X на обратный и заполнить ими массив Y - QBasic
Изменить порядок элементов массива X на обратный и заполнить ими массив Y например: X:1 2 3 4 5 6 Y:6 5 4 3 2 1

Изменить порядок элементов массива Х на обратный и заполнить ими массив Y - QBasic
Задача 5 Выполнить действия над массивами. В таблице при формулировании задания для разъяснения его сути справа отображены примеры...

Поставить последний столбец массива первое место, не меняя порядок остальных - QBasic
Дан массив 4x4 4,1,2,3,3,4,1,2,2,3,4,1,1,2,3,4 полученный массив напечатать. Поставить последний столбец на первое место, не меняя порядок...

Дан массив 4 на 4. Поставить последнюю строку на первое место, не меняя порядок остальных - QBasic
Добрый день. Помогите, пожалуйста. Дан массив 1,2,3,4,1,2,3,0,1,2,0,0,1,0,0,0. Нужно поставить последнюю строку на первое место, не меняя...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
кот Бегемот
Платежеспособный зверь
8033 / 3752 / 675
Регистрация: 28.10.2009
Сообщений: 9,517
07.05.2011, 01:11 #2
Не знаю, есть ли смысл городить огород с функцией, в принципе, и без неё всё легко проверяется, но если нужна именно функция - уточните. Программа вот:
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
INPUT "vvedite stroku ",a$
FOR i = 1 TO LEN(a$)
IF MID$(a$, i, 1) >= "A" AND MID$(a$, i, 1) <= "Z" OR MID$(a$, i, 1) >= "a" AND MID$(a$, i, 1) <= "z" THEN b$ = b$ + MID$(a$, i, 1)
NEXT
IF b$ = "" THEN
PRINT "bukv net"
ELSE
b$ = UCASE$(b$)
FOR i = 2 TO LEN(b$)
IF MID$(b$, i, 1) < MID$(b$, i - 1, 1) THEN f = 1
NEXT
IF f = 0 THEN PRINT "po alfavitu" ELSE PRINT " ne po alfavitu"
END IF
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.05.2011, 01:11
Привет! Вот еще темы с ответами:

Алфавитный порядок - Turbo Pascal
СП, располагающую гласные буквы, встречающиеся одновременно в словах X и Y, в алфавитном порядке

Алфавитный порядок - C#
Салют форумчани!!!! У меня проблемка... Очень надо решить эту задачю на C#, а у меня с этим проблемы((( Зато я решил её на Паскале) ...

Алфавитный порядок - Turbo Pascal
Салют народ!!! Меня очень заинтересовала одна задачка, друг сказал, что она элементарная. Но мне почему-то так не кажется(( Учитывая...

Алфавитный порядок - MS Access
Подскажите пожалуйста ,как сделать в форме имеется элемент список -как сделать чтобы выбор из него происходил в алфавитном порядке(что надо...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru