Форум программистов и сисадминов CyberForum.ru
Вернуться   Форум программистов и сисадминов CyberForum.ru > Форум Форум программистов > Форум Basic > Форум QBasic
Восстановить пароль Регистрация

Ответ Создать новую тему
 
Старый 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, 01:11   #2
кот Бегемот
Платежеспособный зверь
 
Аватар для кот Бегемот
 
Регистрация: 28.10.2009
Сообщений: 8,251
Репутация: 7064 (3278)
Лучшие ответы: 73
Алфавитный порядок / 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
Другие темы раздела Форум программистов QBasic. Язык программирования QBasic. Помощь в решении задач.
Дана матрица 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
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Автор
Turbo Pascal Алфавитный порядок
СП, располагающую гласные буквы, встречающиеся одновременно в словах X и Y, в алфавитном порядке
Svistunov
C для начинающих Алфавитный порядок. Си.
Надо ввести набор слов и отсортировать их в алфавитном порядке. Помогите, пожалуйста!!!
Meta_net
C# для начинающих Алфавитный порядок
Салют форумчани!!!! У меня проблемка... Очень надо решить эту задачю на C#, а у меня с этим проблемы((( Зато я решил её на Паскале) Ребят, кто умеет переводить из Паскаля в С# помогите пожалуйста! вот задача: Написать и протестировать функцию, которая определяет, располагаются ли буквы в...
Helton
Turbo Pascal Алфавитный порядок
Салют народ!!! Меня очень заинтересовала одна задачка, друг сказал, что она элементарная. Но мне почему-то так не кажется(( Учитывая мои мизирные знания Паскале, это вообще конец.... Если кому не трудно, или есть свободная минутка, гляньте. Может вас не затруднит помочь мне, а только расмешит,...
Helton
Turbo Pascal Алфавитный порядок.
Не могу понять: Вывести в порядке, обратном к алфавитному, слова текста удовлетворяющие таким то условиям. Н-р если у меня эти три слова: Молток Соль Арбуз :) то как программа должна их вывести?
aptemka39
Опции темы

Текущее время: 08:04. Часовой пояс GMT +4.

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.