Форум программистов, компьютерный форум, киберфорум
Наши страницы
Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
mozzzilla2010
0 / 0 / 0
Регистрация: 25.12.2011
Сообщений: 4
1

Перевод из Pascal в Basic

03.05.2012, 20:14. Просмотров 1391. Ответов 3
Метки нет (Все метки)

Переведите пожалуйста из Pascal в Basic!

Задание 1: Заполнить файл f N целых чисел, полученных с помощью генератора случайных чисел. Заполнить файл g числами, которые являются произведениями соседних компонентов f

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
46
47
uses crt;
var f,g:file of integer;
    n,a,b,i,p:integer;
begin
clrscr;
randomize;
assign(f,'fileF');
rewrite(f);
assign(g,'fileG');
rewrite(g);
write('Сколько чисел ввести в файл n=');
readln(n);
for i:=1 to n do
 begin
  a:=random(10)+1;
  write(f,a);
 end;
writeln('Содержание исходного файла:');
reset(f);
for i:=0 to filesize(f)-1 do
 begin
  read(f,a);
  write(a,' ');
 end;
writeln;
close(f);
reset(f);
for i:=1 to filesize(f)-1 do
 begin
  seek(f,i-1);
  read(f,a);
  seek(f,i);
  read(f,b);
  p:=a*b;
  write(g,p);
 end;
close(f);
writeln('Содержание нового файла:');
reset(g);
for i:=0 to filesize(g)-1 do
 begin
  read(g,a);
  write(a,' ');
 end;
close(g);
readln
end.
Задание 2: Для каждого из слов заданного предложения указать, сколько раз оно встречается в предложении

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program slova;
var s,sl:string;
    k,i:integer;
begin write('Vvedite tekst:');
      readln(s);
      write('Vvedite slovo: ');
      readln(sl);
      k:=0;
      while pos(sl,s)>0 do
        begin k:=k+1;
              delete(s,pos(sl,s),length(sl));
        end;
      writeln('Slovo v danom tekste vstre4aetsia ->',k, 'raz');
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.05.2012, 20:14
Ответы с готовыми решениями:

BASIC и Pascal ?
Скажите языки BASIC и Pascal пахожи ? или написание чемто отличаеца ?

Перевести программу на Pascal в Basic
Само задание выглядит так Числа Фибоначчи F определяются по формулам F0=F1=1, Fi=Fi-1+Fi-2 при i=...

Перевод примеров на язык Basic
Вот ссылка на фото , помогите срочно , заранее спасибо. Создайте тему в соответствии с правилами...

Перевод текстового значения в числовое в Small Basic
К сожалению не нашел раздела для Small Basic. Пользователь вводит какие-либо цифры, переменная...

Перевод из Pascal в Visual Basic
Добрый день! Я пыталась перевести код программы из Pascal в Visual Basic. Дело в том, что курсовую...

3
Памирыч
Почетный модератор
20915 / 8799 / 1080
Регистрация: 11.04.2010
Сообщений: 11,013
03.05.2012, 20:54 2
Цитата Сообщение от mozzzilla2010 Посмотреть сообщение
в Basic
В какой именно?
0
mozzzilla2010
0 / 0 / 0
Регистрация: 25.12.2011
Сообщений: 4
03.05.2012, 22:21  [ТС] 3
turbo basic
0
mozzzilla2010
0 / 0 / 0
Регистрация: 25.12.2011
Сообщений: 4
07.05.2012, 21:33  [ТС] 4
так кто поможет?(
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.05.2012, 21:33

Перевод в Visual Basic
Решить нелинейное уравнение методом простых итераций Ln(x)-x+1.8 = 0 На отрезке По этому...

Перевод из C++ в Visual Basic
Здравствуйте. Прошу вашей помощи. #include "stdafx.h" #include <iostream> #include <cmath> using...

Перевод программы с С++ на Visual Basic
Ребят, помогите пожалуйста имеется прога, написанная на С++, необходимо перевести ее на бейсик....


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

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

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