Перевод в Дельфи из паскаля

@nikeltawit · Регистрация: 20.06.2013

Author24 — интернет-сервис помощи студентам

Pascal

Type Gibd=Record
     pr:integer;
     sht:longint;
     End;
Var f:file of Gibd;
    st:Gibd;
    n:integer;
Procedure Vvod;
Var i,n:integer;
Begin
    Rewrite(f);
    write('Введите кол-во протоколов для заполения: ');readln(n);
    For i:=1 to n do
     Begin
      writeln('Введите информацию о ',i,'-ом протоколе: ');
      write('Номер протокола: ');readln(st.pr);
      write('Сумма штрафа: ');readln(st.sht);
      write(f,st);
     End;
    write('Файл создан!Для продолжения нажмите "Enter"');
    readln;
End;
Procedure Dopol;
Begin
    Reset(f);
    While not Eof(f) do
     read(f,st);
    write('Номер протокола: ');readln(st.pr);
    write('Сумма штрафа: ');readln(st.sht);
    write(f,st);
    write('Файл дополнен!Для продолжения нажмите "Enter"');
    readln;
End;
Procedure Poisk;
Var n:integer;
    b:boolean;
Begin
    write('Введите номер протокола: ');readln(n);
    Reset(f);
    b:=false;
    While (not Eof(f))and(not b) do
     Begin
      read(f,st);
      if st.pr=n then  b:=true;
     End;
    if b then writeln('Сумма штрафа: ',st.sht)
     else writeln('Нету такого протокола!');
    write('Поиск завершен!Для продолжения нажмите "Enter"');
    readln;
End;
Begin
    Assign(f,'a.dat');
    Repeat
     writeln('1-Создание файла');
     writeln('2-Дополнение файла');;
     writeln('3-Поиск по номеру протокола');
     writeln('4-Выход');
     write('Введите желаемое действие: ');readln(n);
     Case n of
      1:Vvod;
      2:Dopol;
      3: Poisk;
     End;
    Until n=4;
    Close(f);
End.

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

24.06.2013, 15:54

Что именно не получается? Для консольного варианта ничего менять не нужно, кроме как заменить Assign/Close на AssignFile/CloseFile и "шапку" программы правильно прописать.

@nikeltawit · 24.06.2013, 16:21 **[ТС]**

что бы наоборот , консольного не было .

Добавлено через 24 минуты
Переделал как подсказали , все равно не работает

24.06.2013, 16:24

"Шапка" для консольной программы

Delphi

1
2
3

program Name; // где Name меняешь на своё
 
{$APPTYPE CONSOLE}

@nikeltawit · 24.06.2013, 16:32 **[ТС]**

Т.е. получается вот-так ?

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
end.
 
program ***;
 
{$APPTYPE CONSOLE}
Type Gibd=Record
     pr:integer;
     sht:longint;
     End;
Var f:file of Gibd;
    st:Gibd;
    n:integer;
Procedure Vvod;
Var i,n:integer;
Begin
    Rewrite(f);
    write('Ââåäèòå êîë-âî ïðîòîêîëîâ äëÿ çàïîëåíèÿ: ');readln(n);
    For i:=1 to n do
     Begin
      writeln('Ââåäèòå èíôîðìàöèþ î ',i,'-îì ïðîòîêîëå: ');
      write('Íîìåð ïðîòîêîëà: ');readln(st.pr);
      write('Ñóììà øòðàôà: ');readln(st.sht);
      write(f,st);
     End;
    write('Ôàéë ñîçäàí!Äëÿ ïðîäîëæåíèÿ íàæìèòå "Enter"');
    readln;
End;
Procedure Dopol;
Begin
    Reset(f);
    While not Eof(f) do
     read(f,st);
    write('Íîìåð ïðîòîêîëà: ');readln(st.pr);
    write('Ñóììà øòðàôà: ');readln(st.sht);
    write(f,st);
    write('Ôàéë äîïîëíåí!Äëÿ ïðîäîëæåíèÿ íàæìèòå "Enter"');
    readln;
End;
Procedure Poisk;
Var n:integer;
    b:boolean;
Begin
    write('Ââåäèòå íîìåð ïðîòîêîëà: ');readln(n);
    Reset(f);
    b:=false;
    While (not Eof(f))and(not b) do
     Begin
      read(f,st);
      if st.pr=n then  b:=true;
     End;
    if b then writeln('Ñóììà øòðàôà: ',st.sht)
     else writeln('Íåòó òàêîãî ïðîòîêîëà!');
    write('Ïîèñê çàâåðøåí!Äëÿ ïðîäîëæåíèÿ íàæìèòå "Enter"');
    readln;
End;
Begin
    AssignFile(f,'a.dat');
    Repeat
     writeln('1-Ñîçäàíèå ôàéëà');
     writeln('2-Äîïîëíåíèå ôàéëà');;
     writeln('3-Ïîèñê ïî íîìåðó ïðîòîêîëà');
     writeln('4-Âûõîä');
     write('Ââåäèòå æåëàåìîå äåéñòâèå: ');readln(n);
     Case n of
      1:Vvod;
      2:Dopol;
      3: Poisk;
     End;
    Until n=4;
    CloseFile(f);
End.

24.06.2013, 16:35

Создай новый проект File->New->Other...->Console Application и перенеси туда свой код.

@nikeltawit · 24.06.2013, 16:40 **[ТС]**

Он его запускает , вылетает консоль и сразу закрывает ее .

24.06.2013, 16:48

Чтобы не закрывалось, последней командой напиши ReadLn.

@nikeltawit · 24.06.2013, 16:51 **[ТС]**

В коде есть , + я сейчас попробовал подставить , все равно почему-то скрывает .

@Ev1l · 24.06.2013, 16:53

вот это уберите из вашей программы:

Delphi

interface
 
 uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs;
 
 type
 TForm1 = class(TForm)
 private
 { Private declarations }
 public
 { Public declarations }
 end;
 
 var
 Form1: TForm1;
 
 implementation
 
 {$R *.dfm}
 
 end.

24.06.2013, 16:54

Delphi

...
End;
Until n=4;
CloseFile(f);
End.

Заменить на

Delphi

...
End;
Until n=4;
CloseFile(f);
ReadLn;
End.

@nikeltawit · 24.06.2013, 16:58 **[ТС]**

а там нету этого ,Сейчас скину что получилось .

Добавлено через 1 минуту

Delphi

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
begin
  { TODO -oUser -cConsole Main : Insert code here }
end.
 
Type Gibd=Record
pr:integer;
sht:longint;
End;
Var f:file of Gibd;
st:Gibd;
n:integer;
 
Procedure Vvod;
Var i,n:integer;
Begin
Rewrite(f);
write('Aaaaeoa eie-ai i?ioieieia aey caiieaiey: ');readln(n);
For i:=1 to n do
 
 
Begin
writeln('Aaaaeoa eioi?iaoe? i ',i,'-ii i?ioieiea: ');
write('Iiia? i?ioieiea: ');readln(st.pr);
write('Noiia oo?aoa: ');readln(st.sht);
write(f,st);
End;
write('Oaee nicaai!Aey i?iaie?aiey ia?ieoa "Enter"');
readln;
End;
 
Procedure Dopol;
Begin
Reset(f);
While not Eof(f) do
read(f,st);
write('Iiia? i?ioieiea: ');readln(st.pr);
write('Noiia oo?aoa: ');readln(st.sht);
write(f,st);
write('Oaee aiiieiai!Aey i?iaie?aiey ia?ieoa "Enter"');
readln;
End;
Procedure Poisk;
Var n:integer;
b:boolean;
 Begin
write('Aaaaeoa iiia? i?ioieiea: ');readln(n);
Reset(f);
b:=false;
While (not Eof(f))and(not b) do
 Begin
read(f,st);
if st.pr=n then b:=true;
 End;
 
if b then writeln('Noiia oo?aoa: ',st.sht)
else writeln('Iaoo oaeiai i?ioieiea!');
write('Iiene caaa?oai!Aey i?iaie?aiey ia?ieoa "Enter"');
readln;
End;
 
 
Begin
AssignFile(f,'a.dat');
Repeat
writeln('1-Nicaaiea oaeea');
writeln('2-Aiiieiaiea oaeea');;
writeln('3-Iiene ii iiia?o i?ioieiea');
writeln('4-Auoia');
write('Aaaaeoa ?aeaaiia aaenoaea: ');readln(n);
Case n of
1:Vvod;
2opol;
3: Poisk;
End;
Until n=4;
 
CloseFile(f);
Readln;
 
End.

Добавлено через 1 минуту
Все равно вылетает , почему то. Консоль пустая причем .

24.06.2013, 16:58

Написал ведь ясно

Delphi

...
End;
Until n=4;
CloseFile(f);
ReadLn; // добавать
End.

@nikeltawit · 24.06.2013, 16:59 **[ТС]**

Добавил , говорю же .

@Ev1l · 24.06.2013, 17:00

Delphi

1
2
3

begin
 { TODO -oUser -cConsole Main : Insert code here }
 end.

это что????

24.06.2013, 17:01

Где, не вижу

Delphi

...
End;
Until n=4;
Close File(f);
CloseFile(f);
 
End.

Найди различия

Delphi

...
End;
Until n=4;
CloseFile(f);
ReadLn; // добавить
End.

@nikeltawit · 24.06.2013, 17:03 **[ТС]**

Я просто не то вставил . в конце я дописал "ReadLn;"

@Ev1l · 24.06.2013, 17:04

Сообщение от Ev1l

Delphi

1
2
3

begin
*{ TODO -oUser -cConsole Main : Insert code here }
*end.

это что????

уберите это из программы, после первой точки программа дальше даже не пытается читать

@nikeltawit · 24.06.2013, 17:04 **[ТС]**

Сообщение от Ev1l

Delphi

1
2
3

begin
 { TODO -oUser -cConsole Main : Insert code here }
 end.

это что????

----

24.06.2013, 17:04

И убери строки на которые указал Ev1l.

@nikeltawit 0 / 0 / 0 Регистрация: 20.06.2013 Сообщений: 23
	24.06.2013, 16:59 [ТС]	14
	Добавил , говорю же . 0

angstrom
	24.06.2013, 15:54	2
	Что именно не получается? Для консольного варианта ничего менять не нужно, кроме как заменить Assign/Close на AssignFile/CloseFile и "шапку" программы правильно прописать.

@nikeltawit 0 / 0 / 0 Регистрация: 20.06.2013 Сообщений: 23
	24.06.2013, 16:21 [ТС]	3
	что бы наоборот , консольного не было . Добавлено через 24 минуты Переделал как подсказали , все равно не работает 0

angstrom
	24.06.2013, 16:35	6
	Создай новый проект File->New->Other...->Console Application и перенеси туда свой код.

@nikeltawit 0 / 0 / 0 Регистрация: 20.06.2013 Сообщений: 23
	24.06.2013, 16:40 [ТС]	7
	Он его запускает , вылетает консоль и сразу закрывает ее . 0

angstrom
	24.06.2013, 16:48	8
	Чтобы не закрывалось, последней командой напиши ReadLn.

@nikeltawit 0 / 0 / 0 Регистрация: 20.06.2013 Сообщений: 23
	24.06.2013, 16:51 [ТС]	9
	В коде есть , + я сейчас попробовал подставить , все равно почему-то скрывает . 0

@nikeltawit 0 / 0 / 0 Регистрация: 20.06.2013 Сообщений: 23
	24.06.2013, 17:03 [ТС]	17
	Я просто не то вставил . в конце я дописал "ReadLn;" 0

angstrom
	24.06.2013, 17:04	20
	И убери строки на которые указал Ev1l.