IPB
ЛогинПароль:

> Внимание!

1. Пользуйтесь тегами кода. - [code] ... [/code]
2. Точно указывайте язык, название и версию компилятора (интерпретатора).
3. Название темы должно быть информативным.
В описании темы указываем язык!!!

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Перевод с Pascal на Basic, Переделать программу с языка Pascal на язык Basic
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 6
Пол: Женский

Репутация: -  0  +


Программа написана на Pacal, работает правильно. Необходимо перевести ее на язык Basic. Знаю, что двоеточия там не ставятся, (;) - тоже не ставится,

переменные объявляются так
Dim x, s, z, t As Double
Dim k, i, n As Integer

Begin тоже не пишется и do не пишется.
Не могу найти как прописывается (inc), writelen как print что-то не получается.

Пытаюсь воспроизвести на Basicе - не получается. Подскажите, пожалуйста!

На Pascal-е:

program Algoritm;
uses crt;
var x,s,z,t: real;
k,i,n: integer;
begin
clrscr;
readln(x);
i:=1;
z:=1;
s:=0;
n:=0;
while x/z>0.0001 do
begin
inc(n);
t:=s;
s:=s+x/z;
i:=i+1;
z:=1;
for k:=1 to i do
z:=z*k;
end;
writeln(t:0:4);
writeln(n);
readln;
end.



На Basic-е проба пера:

Код
Sub Algoritm()
Dim x, s, z, t As Double
Dim k, i, n As Integer
  i = 1
  z = 1
  s = 0
  n = 0
  While x / z > 0.0001
     t = s
     s = s + x / z
    
           :blink: inc(n)
    
     i = i + 1
     z = 1
      For k = 1 To i
      z = z * k  
   Next
  Print
End Sub


М
Тэги, уважаемая Kenzo, тэги! Правила раздела, п.1 (возденьте очи) и Правила Форума, п.5
Lapp

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гуру
*****

Группа: Пользователи
Сообщений: 1 168
Пол: Мужской
Реальное имя: Сергей Андрианов

Репутация: -  28  +


inc(n);
переводится как
n = n+1

В остальном же - стандарта на язык Бейсик в природе не существует, поэтому точно сказать трудно.
По классике - каждая строка должна начинаться с метки (которые обычно ставят с шагом 10).
Цикл записывается, кажется, так:
10 do 20 k = 1,i
20 z = z + k

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 21:58
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name