Форум программистов, компьютерный форум, киберфорум
Наши страницы
QBasic
Войти
Регистрация
Восстановить пароль
 
3Doleg
40 / 40 / 32
Регистрация: 22.10.2012
Сообщений: 217
#1

переделать(доделать) с паскаля на Qbasic

22.05.2013, 01:41. Просмотров 359. Ответов 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
37
38
39
40
41
42
43
44
45
uses crt;
 
procedure one;
var i,count,count2, count3:integer;
 S1:String;
 
begin
writeln(S1);
 readln(s1);
 
 count:=0;
 count2:=0;
 S1:=S1+' ';
 
 for i:=0 to length(S1) do Begin
 if S1[i] in ['A'..'z'] then inc(count);
 if S1[i]=' ' then Begin
 if count>=5 then inc(count2);
 count:=0;
 end;
 end;
 writeln('kilkist sliv >= 5 bykv:');
 writeln(count2);
 end;
 
 procedure two;
var s,sl: string;
    i,k: byte;
begin
write('s='); readln(s);
s:=s+' '; sl:=''; k:=0;
for i:=1 to length(s) do
    if s[i]<>' ' then sl:=sl+s[i] else
       if length(sl)>0 then
          begin
          if pos('m',sl)<>0 then inc(k);
          sl:='';
          end;
writeln('kilkist sliv, v yakux ye bykva "m": ',k);
end;
 begin
 one;
 two;
 readkey;
end.
Вот то, что мне удалось переделать, но програма неработает..
QBasic/QuickBASIC
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
37
38
39
40
DECLARE SUB one ()
DECLARE SUB two ()
CLS
CALL one
CALL two
END
 
SUB one
n = 100
DIM s1(n) AS STRING
INPUT "vvedit stroky:"; s1$
count = 0
count2 = 0
s1$ = s1$ + " "
FOR i = 1 TO LEN(s1$)
IF (s1(i) >= "a" AND s1(i) <= "z") THEN count = count + 1
IF (s1(i) = " ") THEN
IF (count >= 5) THEN count2 = count2 + 1
count = 0
END IF
NEXT i
PRINT "kilkist sliv >= 5 bykv:"; count2
END SUB
 
SUB two
n = 100
DIM s(n) AS STRING
INPUT "vvedit stroky:"; s$
s$ = s$ + " "
sl$ = ""
k = 0
FOR i = 1 TO LEN(s$)
IF (s(i) <> " ") THEN sl$ = sl$ + s(i) ELSE
 IF LEN(sl$) > 0 THEN
IF (INSTR("m", sl$) <> 0) THEN k = k + 1
sl$ = ""
END IF
NEXT i
PRINT "kilkist sliv, v yakux ye bykva 'm': "; k
END SUB
Первая процедура ищет слова, у которых 5 и больше букв, вторая - слова, у которых есть буква 'm', процедуры просто считают их, такое условие, можно делать и без процедур)
Заранее спасибо)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.05.2013, 01:41
Ответы с готовыми решениями:

Переписать программу с Паскаля на QBasic.
var S : string = 'This text con tains thr ee let ter wo rds.'; I, P, NewP : Integer; ...

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

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

Переделать из паскаля в С#
Ребят помогите 2 неделю мучаюсь(обратная матрица). uses crt; const nmax = 20; type matr = array...

Переделать с паскаля на с++
Procedure tree (a, n); -------- begin a:=0; a:=0; a:=0; for i:=2 to n do begin k:=1...

1
кот Бегемот
Платежеспособный зверь
8453 / 3902 / 1517
Регистрация: 28.10.2009
Сообщений: 10,105
22.05.2013, 22:01 #2
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
INPUT "vvedite stroku ", s$
s$ = s$ + " "
FOR i = 1 TO LEN(s$)
IF MID$(s$, i, 1) <> " " THEN
n = n + 1
IF MID$(s$, i, 1) = "m" THEN f = 1
ELSE
IF n >= 5 THEN k = k + 1
r = r + f
n = 0
f = 0
END IF
NEXT
PRINT "slov dlinoy>=5="; k
PRINT "slov s bukvoy m="; r
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.05.2013, 22:01

Переделать с Паскаля на С++
Составить неразветвленную программу на языке Turbo Pascal. Текст программы: Program lab_1;...

Переделать (или доделать) счетчик кликов
народ, есть код счетчика: ПХП &lt;?PHP @error_reporting ( E_ALL ^ E_WARNING ^ E_NOTICE );...

как переделать на с++? с паскаля
function aaa(x: integer):boolean; var b: integer; begin b:=1; While...


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

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

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