2 / 0 / 0
Регистрация: 25.01.2011
Сообщений: 18
1

Переписать программу с Паскаля на QBasic.

26.01.2011, 21:16. Показов 707. Ответов 1
Метки нет (Все метки)

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
var
  S : string = 'This text con tains thr ee let ter wo rds.';
  I, P, NewP : Integer;
  CurrentWord : string;
begin
 
  P := 0;
 
  for I := 2 to Length(S) do
    begin
      if (S[I] = ' ') or (S[I] = '.')
        then
          begin
            NewP := I;
 
            CurrentWord := Copy(S, P + 1, NewP - P - 1);
            if Length(CurrentWord) = 3
              then
                Writeln(CurrentWord);
 
            P := NewP; 
          end
 
    end;
 
  Readln;
 
end.
 Комментарий модератора 
Пишите ваше задание, расшифровывать чужой код будут не все.

как это записать на языке бейзика???помогите пожалуйста
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.01.2011, 21:16
Ответы с готовыми решениями:

переделать(доделать) с паскаля на Qbasic
Всем доброй ночи, помогите переделать с паскаля на qbasic Вот код на паскале: uses crt; ...

Переведите, пожалуйста код с Паскаля на QBasic
uses crt; var s,sl,sc: string; i,k: integer; begin write('Введите текст '); readln(s);...

Переведите, пожалуйста код с Паскаля на QBasic и отредактируйте код под условие задачи
Ниже расположено условие задачи. Даны натуральное число m, целые числа {a}_{l},...,{a}_{lm} и...

Скачать программу QBasic
Ребят!!! Помогите, пожалуйста ((( Где можно скачать бейсик, киньте ссылку!!!

1
Платежеспособный зверь
8772 / 4203 / 1610
Регистрация: 28.10.2009
Сообщений: 11,334
27.01.2011, 20:13 2
а не проще написать задание?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.01.2011, 20:13
Помогаю со студенческими работами здесь

Составить программу (QBasic)
Дан массив из 18 чисел.Найти количество элементов=3,среди вторых элементов массива.

cоздать программу на QBasic
получить одномерный массив состоящий из 10 элементов в котором каждый следующий элемент получается...

Как откомпилировать программу на QBasic?
Возможно ли откопилировать программу написанную на Qbasic?

Перевести программу с Pasсal на Qbasic
var a:array of integer; i,n,k,s:integer; begin k:=0; s:=0; for i:=1 to 10 do readln(a); for...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru