Форум программистов, компьютерный форум, киберфорум
Наши страницы
QBasic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
anton1305
0 / 0 / 0
Регистрация: 14.01.2013
Сообщений: 2
1

Переведите код с Pascal на QBasic

17.01.2013, 17:48. Просмотров 1006. Ответов 1
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
Program z1;
Var
  S:String;
  k,p:integer;
BEGIN
  Write ('введите исходную строку:'); Readln(S);
  While Pos('i',S)>0 Do 
  Begin
    p:=pos('i',s);    Delete (S,Pos('i',S),1);
    Insert ('info',S,p); 
  End;
  Writeln('Получилась строка ',S);
End.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.01.2013, 17:48
Ответы с готовыми решениями:

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

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

Перевести код с Pascal на QBasic (Вычислить A8)
переведите на Qbasic пожалуйста из паскаля Begin27. Дано число A. Вычислить A8, используя...

Перевести код с Pascal на QBasic (Найти значение выражения)
For27. Дано вещественное число X (|X|<1) и целое число N (>0). Найти значение выражения...

Переведите на QBasic
Var n: Byte; BEGIN Repeat Write('Введите возраст человека до 100 лет: '); Readln(n);...

1
xod
156 / 46 / 70
Регистрация: 01.07.2014
Сообщений: 185
25.07.2014, 19:48 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

программа на Паскале написана неверно.
1) задан цикл, который вместо символа "i" должен
вставить "info". Иными словами опять появится i
2) и программа будет работать вечно, точнее пока
не наступит переполнение. Я исправил этот дефект
и написал верную программу.
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
DIM s AS STRING
DIM s1 AS STRING
DIM s2 AS STRING
DIM k AS INTEGER
DIM p AS INTEGER
CLS
INPUT "STROKA = "; s
 
s = " " + s + " "
k = 1
DO
   p = INSTR(k, s, "i")
   IF p > 0 THEN
      s1 = LEFT$(s, p - 1)
      s2 = RIGHT$(s, LEN(s) - p)
      s = s1 + "info" + s2
      k = p + 1
   ELSE
      EXIT DO
   END IF
LOOP
s = TRIM$(s)
PRINT s
END
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.07.2014, 19:48

Переведите пожалуйста на qbasic
Program Array134; Const max = 20; Type point = Record x,y:real; End; Var a:Array Of...

Пожалуйста, переведите на QBasic
uses crt; var n,i:integer; x,t,y:real; begin clrscr; write('n='); readln(n); repeat...

Переведите пожалуйста на QBASIC
Код C++ #include <stdio.h> #include <conio.h> #include <math.h> int a, i,k,j,n=8, b; void...


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

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

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