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

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

14.04.2014, 13:52. Просмотров 1585. Ответов 1
Метки нет (Все метки)

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
procedure TForm1.Button1Click(Sender: TObject);
const n=8;
var x:array[1..n] of real;
    y,z:array[1..n,1..n] of real;
    i,j:byte;
begin
randomize;
for i:=1 to n do
 begin
  x[i]:=1+3*random;
  stringgrid1.Cells[i-1,0]:=floattostrF(x[i],ffFixed,6,3);
  y[1,i]:=x[i];
  stringgrid2.Cells[i-1,0]:=floattostrF(y[1,i],ffFixed,6,3);
  z[1,i]:=1;
  stringgrid3.Cells[i-1,0]:=floattostrF(z[1,i],ffFixed,6,3);
 end;
for i:=2 to n do
for j:=1 to n do
 begin
  y[i,j]:=y[i-1,j]*x[j];
  stringgrid2.Cells[j-1,i-1]:=floattostrF(y[i,j],ffFixed,6,3);
  z[i,j]:=z[i-1,j]*x[j];
  stringgrid3.Cells[j-1,i-1]:=floattostrF(z[i,j],ffFixed,6,3);
 end;
end;
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.04.2014, 13:52
Ответы с готовыми решениями:

Перевести в код Pascal ABC из кода Pascal Delphi
Помогите перевести в код ABC а то с Delphi вообще не знаком. Задание было такое: Записать в файл...

Перевести код 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
Модератор
61106 / 45818 / 31630
Регистрация: 18.05.2008
Сообщений: 110,337
14.04.2014, 15:03 2
Лучший ответ Сообщение было отмечено S_two как решение

Решение

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
uses crt;
const n=8;
var x:array[1..n] of real;
    y,z:array[1..n,1..n] of real;
    i,j:byte;
begin
randomize;
writeln('Массив X:');
for i:=1 to n do
 begin
  x[i]:=1+3*random;
  write(x[i]:5:2);
  y[1,i]:=x[i];
  z[1,i]:=1
 end;
writeln;
for i:=2 to n do
for j:=1 to n do
 begin
  y[i,j]:=y[i-1,j]*x[j];
  z[i,j]:=z[i-1,j]*x[j];
 end;
writeln('Массив Y:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(y[i,j]:9:2);
  writeln
 end;
writeln('Массив Z:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(z[i,j]:9:2);
  writeln
 end;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.04.2014, 15:03

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

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

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

Переписать код из Turbo Pascal в pascal ABC
очень плохо знаю Turbo Pascal, а времени на изучение нет, а его надо переписать в Pascal ABC, буду...

Переписать код из 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
Программа 1: program zadacha; uses crt, graph; const m=150; var gd,gm,i,j,s1,s2,c: integer;...

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


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

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

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