Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.73/11: Рейтинг темы: голосов - 11, средняя оценка - 4.73
0 / 0 / 1
Регистрация: 05.02.2013
Сообщений: 6
1

Перевести в код Pascal ABC из кода Pascal Delphi

23.05.2013, 11:16. Просмотров 2077. Ответов 1
Метки нет (Все метки)

Помогите перевести в код ABC а то с Delphi вообще не знаком.
Задание было такое: Записать в файл последовательного доступа N действительных чисел. Переписать в другой файл последовательного доступа те элементы, которые кратны K. Вывести на печать.

Delphi
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,ftext:file of word;
 n,k:word;
 i:integer;
 u:word;
begin
 clrscr;
 write('Введите количество действительных чисел N=');
 readln(n);
 write('Введите делитель К=');
 readln(k);
 randomize;
 assign(f,'c:\f.dat');
 rewrite(f);
 writeln('Записываемые элементы:');
 for i:=1 to n do
   begin
     u:=random(100);
     write(f,u);
     write(u,' ');
  end;
 close(f);
 
  assign(ftext,'c:\ftext.txt');
  rewrite(ftext);
  reset(f);
  for i:=1 to n do
    begin
      read(f,u);
      if u mod k = 0 then
        write(ftext,u);
    end;
  close(f);
  close(ftext);
 
  writeln;
  writeln('Числа кратные К:');
  reset(ftext);
  While Not EOF(Ftext) Do
    Begin
      Read(Ftext, u);
      Write(u,' ');
    End;
  close(ftext);
  readkey;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.05.2013, 11:16
Ответы с готовыми решениями:

Перевести в код Pascal ABC из кода Pascal Delphi
procedure TForm1.Button1Click(Sender: TObject); const n=8; var x:array of real; y,z:array of...

Перевести код Pascal ABC NET в Pascal ABC
Помогите, плиз Сделал на Pascal ABC NET, но нужно его открыть в обычном Pascal ABC. Не компилит...

Нужно перевести код из Turbo Pascal в Pascal ABC
Program n5; { Задача. Описать функцию less(f) от непустого файла f ...

Перевести код с C++ на Pascal ABC
using namespace std; int main() { string str; cout << "Enter a string:" << endl; ...

1
Модератор
61079 / 45804 / 31618
Регистрация: 18.05.2008
Сообщений: 110,303
23.05.2013, 11:56 2
Интересно в каком месте тут Делфи? Все работает а АВС.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.05.2013, 11:56

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Перевод кода C++ в код Pascal ABC
здравствуйте помогите пожалуйста перевести код, поиск в глубину , вывод пути, “N” (движение...

Перевести из Turbo Pascal в Pascal ABC
Добрый вечер. Необходимо перевести этот код из Turbo Pascal в Pascal ABC. Заранее спасибо. uses...

Переписать код из Turbo Pascal в Pascal ABC
program zadacha; uses crt, graph; const m=50; var gd,gm,i,j,s1,s2,c1,c2: integer;...

Переписать код из Turbo Pascal в Pascal ABC
Переписать код из Turbo Pascal в pascal ABCprogram zadacha; uses crt, graph; const m=50; var...


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

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

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