Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Сформировать массив по правилу Дано число n, n<=100 . Создайте массив n×n и заполните его по следующему правилу: - числа на диагонали, идущей из правого верхнего в левый нижний угол, равны 1; - числа, стоящие выше этой... https://www.cyberforum.ru/ turbo-pascal/ thread1309608.html Turbo Pascal Создайте текстовый файл, в котором содержится некоторое количество строк
Создайте текстовый файл, в котором содержится некоторое количество строк.Переформатировать текст таким образом , чтобы каждая строка содержала не более 30 литер и заканчивалась точкой. Обеспечить...
Turbo Pascal Найти разницу между количеством групп букв и количеством групп цифр https://www.cyberforum.ru/ turbo-pascal/ thread1309519.html
Заданный текст каждый символ которого может быть маленькой латинской буквой, цифрой или одним из знаков "+", "-", "*". Группа букв это последовательность расположенных подряд букв, которой не...
Turbo Pascal Синтаксический анализатор арифметического выражения Помогите пожалуйста ничего не понимающей студентке! Разработать синтаксический анализатор арифметического выражения, состоящего из операндов, представленных числами и идентификаторами, знаков... https://www.cyberforum.ru/ turbo-pascal/ thread1309518.html
Turbo Pascal Определите значение логического выражения
Задача№1 Определите значение логического выражения: (A>B) and (B<C) or not (C=B) Задача№2 для заданных переменных А=False B=true С=false. Вычеслить значение лог. выр. (A=B) (C>B) and (c(C=B)
Turbo Pascal Из двух файлов создать третий, чередуя числа https://www.cyberforum.ru/ turbo-pascal/ thread1309475.html
2)даны 2 файл равной длины, первый файл содержит четные значения, второй файл - нечетные, создать трейтий чередующий первые 2
Turbo Pascal Найти в файле строки с заданным словом 1)Дан текстовый файл содержащий строки, вводится слово, вывести те строки, которые содержат это слово, на экран. https://www.cyberforum.ru/ turbo-pascal/ thread1309474.html Turbo Pascal В каждом столбце матрицы найти количество элементов, кратных 5 и сформировать из них массив
Дана целочисленная прямоугольная матрица А(,).В каждом столбце найти количество элементов ,кратных 5 и сформировать одномерный массив из найденных количеств.полученный массив отсортировать по...
Turbo Pascal Вычислить значение выражения https://www.cyberforum.ru/ turbo-pascal/ thread1309425.html
разработать программу,которая позволяют вычеслить:
Turbo Pascal Получить сведения о названиях игрушек, стоимость которых не превосходит 4 грв, и которые подходят детям 5 лет https://www.cyberforum.ru/ turbo-pascal/ thread1309333.html
Записи Сведениями об игрушках являются: название (конструктор, кукла и т. д.), стоимость игрушки, возрастные границы (от 2 до 5 лет и т. д.). Получить сведения о названиях игрушек, стоимость...
Turbo Pascal Рандомно светятся точки внутри прямоугольника
в паскале создается прямоугольник с размером 640 на 480 внутри него рандомно цветятся точки
Turbo Pascal Сколько роботов будет существовать через N дней? Бригада из 3 роботов собирает за 1 день еще 1 нового робота.Время жизни нового робота-5 дней,после окончания которых он погибает.Составьте программу которая запрашивает с клавиатуры 2 натуральных... https://www.cyberforum.ru/ turbo-pascal/ thread1309228.html
Эксперт Pascal/Delphi
6803 / 4562 / 4817
Регистрация: 05.06.2014
Сообщений: 22,438
25.11.2014, 09:45 0

Перевести текстовый код на Дельфи - Turbo Pascal - Ответ 6897322

25.11.2014, 09:45. Показов 450. Ответов 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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  windows,
  crt;
 
const
  nmax=20;
  mar:array[1..6] of string=('audi','bmw','ford','nissan','toyota','volvo');
type
  vladelez=record
              familia:string[60];
              adress:string[60];
              avto:string[60];
              nomer:string[60];
              vypusk:1900..2000;
              end;
var
  f:file of vladelez;
  a:vladelez;
    cnt:array[1..6] of integer;
    n,i,k,imx:integer;
    mx:1900..2000;
    s:string;
    ch:char;
begin
SetConsoleCP(1251);
SetConsoleOutputCP(1251);
 
clrscr;
assign(f,'auto.dat');
rewrite(f);
repeat
write('Количество владельцев от 1 до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите данные о ',n,' владельцах:');
for i:=1 to n do
 begin
  writeln('Владелец ',i);
  with a do
   begin
    write(' Фамилия: ');readln(familia);
    write(' Адрес: ');readln(adress);
    writeln(' Марка автомобиля:');
    writeln('  1-audi 2-bmw 3-ford 4-nissan 5-toyota 6-volvo');
    repeat
    readln(k);
    until k in [1..6];
    avto:=mar[k];
    write(' Номер: ');readln(nomer);
    repeat
    write(' Год выпуска 1900..2000: ');
    readln(s);
    val(s,vypusk,k);
    until(k=0)and(vypusk>=1900)and(vypusk<=2000);
    write(f,a);
   end;
 end;
clrscr;
reset(f);
writeln('Список автовладельцев:':30);
writeln;
writeln('----------------------------------------------------------');
writeln('|    Фамилия    |     Адрес    |  Марка  |  Номер  | Год |');
writeln('----------------------------------------------------------');
while not eof(f) do
 begin
  read(f,a);
  with a do
   begin
    gotoXY(1,whereY);write('| ',familia);
    gotoXY(17,whereY);write('| ',adress);
    gotoXY(32,whereY);write('| ',avto);
    gotoXY(42,whereY);write('| ',nomer);
    gotoXY(52,whereY);write('|',vypusk:5);
    gotoXY(58,whereY);writeln('|');
   end;
 end;
writeln('----------------------------------------------------------');
write('Press Enter...');
readln;
clrscr;
for i:=1 to 6 do
cnt[1]:=0;
seek(f,0);
while not eof(f) do
 begin
  read(f,a);
  for i:=1 to 6 do
  if mar[i]=a.avto then inc(cnt[i]);
 end;
writeln('Количество автомобилей каждой марки:');
for i:=1 to 6 do
writeln(mar[i],'=',cnt[i]);
mx:=2000;
s:='';
for i:=0 to filesize(f)-1 do
 begin
  seek(f,i);
  read(f,a);
  if a.vypusk<mx then
   begin
    mx:=a.vypusk;
    s:=a.familia;
   end;
 end;
writeln('Влоделец самого старого авто ',s);
writeln;
writeln('Поиск владельцев по марке авто');
repeat
write('Марка: ');
readln(s);
k:=0;
seek(f,0);
while not eof(f) do
 begin
  read(f,a);
  if a.avto=s then
   begin
    k:=1;
    writeln(a.familia,'  ',a.nomer);
   end;
 end;
if k=0 then writeln('Такой марки нет');
writeln('Продолжить поиск y/Y');
readln(ch);
until UpCase(ch)<>'Y';
close(f);
end.
Модуль

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
unit CRT;
 
// written by Michael Uskoff, Apr 2001, St.Petersburg, RUSSIA
 
 
 
interface
 
 
 
procedure ClrScr;
 
procedure SetAttr(attr: word);
 
function GetAttr: word;
 
procedure GotoXY(aX, aY: integer); // zero-based coords
 
function WhereX: integer;
 
function WhereY: integer;
 
 
 
implementation
 
 
 
uses
  Windows;
 
 
 
 
var
 
UpperLeft: TCoord = (X: 0; Y: 0);
 
hCon: integer;
 
 
 
procedure GotoXY(aX, aY: integer);
 
var aCoord: TCoord;
 
begin
 
aCoord.x := aX;
 
aCoord.y := aY;
 
SetConsoleCursorPosition(hCon, aCoord);
 
end;
 
 
 
procedure SetAttr(attr: word);
 
begin
 
SetConsoleTextAttribute(hCon, attr);
 
end;
 
 
 
function WhereX: integer;
 
var ScrBufInfo: TConsoleScreenBufferInfo;
 
begin
 
GetConsoleScreenBufferInfo(hCon, ScrBufInfo);
 
Result := ScrBufInfo.dwCursorPosition.x;
 
end;
 
 
 
function WhereY: integer;
 
var ScrBufInfo: TConsoleScreenBufferInfo;
 
begin
 
GetConsoleScreenBufferInfo(hCon, ScrBufInfo);
 
Result := ScrBufInfo.dwCursorPosition.y;
 
end;
 
 
 
function GetAttr: word;
 
var ScrBufInfo: TConsoleScreenBufferInfo;
 
begin
 
GetConsoleScreenBufferInfo(hCon, ScrBufInfo);
 
Result := ScrBufInfo.wAttributes;
 
end;
 
 
 
procedure ClrScr;
 
var
  fill: dword;
 
ScrBufInfo: TConsoleScreenBufferInfo;
 
begin
 
GetConsoleScreenBufferInfo(hCon, ScrBufInfo);
 
fill := ScrBufInfo.dwSize.x * ScrBufInfo.dwSize.y;
 
FillConsoleOutputCharacter(hCon, ' ', fill, UpperLeft, fill);
 
FillConsoleOutputAttribute(hCon, ScrBufInfo.wAttributes, fill, UpperLeft, fill);
 
GotoXY(0, 0);
 
end;
 
 
 
initialization
 
hCon := GetStdHandle(STD_OUTPUT_HANDLE);
 
end.


Вернуться к обсуждению:
Перевести текстовый код на Дельфи Turbo Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.11.2014, 09:45
Готовые ответы и решения:

Перевести код из С++ в Дельфи
помогите перевести код плиз!из с++ в код делфи! using namespace std; int main() { const...

Перевести код на Дельфи
Кто может перенести это в Delphi??? type // конфета TCandy = record Name: string; //...

Перевести код из Паскаля в Дельфи
помогите перекинуть код из паскаля в делфи uses crt; const nmax=20; mar:array of...

Перевести код с Паскаля на Дельфи
ПОМОГИТЕ ПОЖАЛУЙСТА ПЕРЕВЕСТИ НА ДЕЛФИ var A,B,n:word; begin write('A= '); readln (A); B:=A;...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.11.2014, 09:45
Помогаю со студенческими работами здесь

Перевести код с Паскаля на Дельфи
здравствуйте решил задачу на паскаль.потребовалось ее сделать в делфи. о делфи знаю не много.если у...

Перевести текстовый бинарный код в исполняемый
Как с помощью JS можно перевести текстовый бинарный код 3c 68 74 6d 6c 20 78 6d 6c 6e 73 3a 6f 3d...

Онлайн текстовый учебник дельфи
со мной случисась беда и положили в больницу... скукотень нереальная... мне бы учебник дельфи да...

Перевести с Дельфи на Паскаль
program Project1; //Возвращает заглавную версию буквы для кодовой страницы CP866. function...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru