Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
CyberForum.ru - форум программистов и сисадминов > > >
Восстановить пароль Регистрация

Ответ Создать новую тему
 
07.05.2011, 00:03   #1
Элизабет
Новичок
Регистрация: 06.05.2011
Сообщений: 7
Репутация: 0 (0)
Алфавитный порядок / QBasic

Приветик друзья.
Нужна ваша помощь.
Столкнулась с задачкой впринципи не очень сложно, но имею трудности в написании её на 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.
надеюсь вы поможите мне
07.05.2011, 00:03
AdAgent
Объявления
07.05.2011, 01:11   #2
кот Бегемот
Платежеспособный зверь
Регистрация: 28.10.2009
Сообщений: 8,286
Репутация: 7092 (3306)
Лучшие ответы: 74
Алфавитный порядок / QBasic

Не знаю, есть ли смысл городить огород с функцией, в принципе, и без неё всё легко проверяется, но если нужна именно функция - уточните. Программа вот:
Код 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
Другие темы раздела
Дана матрица A(N,M). Переставляя ее строки и столбцы, добейтесь того, чтобы наибольший элемент (один из них) оказался в верхнем левом углу. QBasic
Помогите пожалуйста решить. Дана матрица A(N,M). Переставляя ее строки и столбцы, добейтесь того, чтобы наибольший элемент (один из них) оказался в верхнем левом углу. Заранее спасибо=)
QBasic осуществите
одномерные массивы .начертить схему насси шнейдермана и напишите программу на языке qbasic. осуществите циклический сдвиг компонент заданного вектора a(n) вправо на две позиции , т.е получите вектор a=(An-1 ,An, A1, A2,A3, ...,An-2) помогите решить!!и если можно поскорее
07.05.2011, 01:11
Yandex
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
C (СИ) Алфавитный порядок
Напечатать в алфавитном порядке слова исходного текста, исключив повторяющиеся слова. Разделители между словами - один или несколько пробелов. подскажите пожалуйста, как это делается, совершенно не получается :(
C для начинающих pa1nkiller 07.01.2014 02:26
Turbo Pascal Алфавитный порядок
СП, располагающую гласные буквы, встречающиеся одновременно в словах X и Y, в алфавитном порядке
Turbo Pascal Svistunov 27.05.2012 14:18
C (СИ) Алфавитный порядок. Си.
Надо ввести набор слов и отсортировать их в алфавитном порядке. Помогите, пожалуйста!!!
C для начинающих Meta_net 08.06.2011 00:52
C# Алфавитный порядок
Салют форумчани!!!! У меня проблемка... Очень надо решить эту задачю на C#, а у меня с этим проблемы((( Зато я решил её на Паскале) Ребят, кто умеет переводить из Паскаля в С# помогите пожалуйста! вот задача: Написать и протестировать функцию, которая определяет, располагаются ли буквы в...
C# для начинающих Helton 05.05.2011 10:28
Turbo Pascal Алфавитный порядок
Салют народ!!! Меня очень заинтересовала одна задачка, друг сказал, что она элементарная. Но мне почему-то так не кажется(( Учитывая мои мизирные знания Паскале, это вообще конец.... Если кому не трудно, или есть свободная минутка, гляньте. Может вас не затруднит помочь мне, а только расмешит,...
Turbo Pascal Helton 01.05.2011 15:16
Опции темы


Текущее время: 06:25. Часовой пояс GMT +4.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.