Перевод кода с С на delphi

@KFJFFFF · Регистрация: 25.05.2017

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

Добрый день, помогите пожалуйста перевести код с С на delphi.

C#
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
using System;
 
 
class Program
{
    static void Main(string[] args)
    {
      Patient p1=new Patient("Ivanov",24);
        Console.WriteLine("Name: {0},age {1} ",p1.FName(),p1.Age());
 
        Console.WriteLine(new string('-',8));
 
        Deadman dn=new Deadman("Sinicin",22,DateTime.Now.Year);
 
        Console.WriteLine("Name: {0},age {1},next visit will be in  {2}",dn.FName(),dn.Age(),dn.NextVisit());
 
 
        Console.WriteLine(new string('-', 8));
        Console.ReadKey();
 
 
    }
 
}
 
class Patient
{
    private readonly string fam;
    private readonly int _vozr;
 
    public Patient(string fam, int vozr)
    {
        this.fam = fam;
        this._vozr = vozr;
    }
 
    public string FName()
    {
        return fam; 
    }
 
    public int Age()
    {
        return _vozr; 
    }
}
class Deadman:Patient
{
    private readonly int year;
    public Deadman(string fam, int vozr, int year) : base(fam, vozr)
    {
        this.year = year;
    }
 
    public int NextVisit()
    {
        return year + 3; 
    }
}

@Delphiist · 06.03.2018, 16:01

Добрый день,

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
program Test1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, DateUtils;
 
type
  TPatient = class
  private
    fFam: String;
    fVozr: Integer;
  public
    constructor Create(Fam: String; Vozr: Integer);
    property FName: String read fFam;
    property Age: Integer read fVozr;
  end;
 
  TDeadman = class(TPatient)
  private
    fYear: Integer;
  public
    constructor Create(Fam: String; Vozr, Year: Integer) overload;
    function NextVisit: Integer;
    property Year: Integer read fYear;
    end;
 
{ TPatient }
 
constructor TPatient.Create(Fam: String; Vozr: Integer);
begin
  fFam := Fam;
  fVozr := Vozr;
end;
 
{ TDeadman }
 
constructor TDeadman.Create(Fam: String; Vozr, Year: Integer);
begin
  fFam := Fam;
  inherited Create(Fam, Vozr);
end;
 
function TDeadman.NextVisit: Integer;
begin
  Result := fYear + 3;
end;
 
var
  p1: TPatient;
  dn: TDeadman;
 
begin
  p1 := TPatient.Create('Ivanov', 24);
  Writeln(Format('Name: %s,age %d', [p1.FName, p1.Age]));
  Writeln(StringOfChar('-', 8));
  dn := TDeadman.Create('Sinicin', 22, YearOf(Now));
  Writeln(Format('Name: %s,age %d,next visit will be in  %d', [dn.FName, dn.Age, dn.NextVisit]));
  Writeln(StringOfChar('-', 8));
  Readln;
end.

@KFJFFFF · 06.03.2018, 17:11 **[ТС]**

Спасибо большое! а подскажите как сделать, чтобы можно было вводить фамилию в окне и программа сама считала?

@Алекcей · 06.03.2018, 17:21

это консольная программа (как и исходная), в ней нет окон.

@D1973 · 06.03.2018, 17:23

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

вводить фамилию в окне

В каком окне? Вы привели пример не пойми чего на С ( причем на С# скорее, а не на С), в ответ получили не пойми какой аналог на Дельфи (Delphiist - без обиды, просто лично я не знаком с С# и не могу судить, насколько там все верно переведено) ... Какие Вам там "окна" нужны?
Может, проще задачу озвучить, чем всякий бред собирать?

@Delphiist · 07.03.2018, 06:55

Предоставил только перевод, все остальное это уже разработка. Как было сказано лучше описать непосредственно задание.
Для получения данных в консольном приложении можно использовать функцию

Delphi
1
Reanln

.
Ниже пример с ожиданием ввода фамилий от пользователя

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
var
  p1: TPatient;
  dn: TDeadman;
  s: String;
 
begin
  Write('Fam1=');
  Readln(s); // 'Ivanov'
  p1 := TPatient.Create(s, 24);
  //Writeln(Format('Name: %s,age %d', [p1.FName, p1.Age]));
  Writeln('Name: ', p1.FName, ',age ', p1.Age);
  Writeln(StringOfChar('-', 8));
  p1.Free;
 
  Write('Fam2=');
  Readln(s); // 'Sinicin'
  dn := TDeadman.Create(s, 22, YearOf(Now));
  //Writeln(Format('Name: %s,age %d,next visit will be in %d', [dn.FName, dn.Age, dn.NextVisit]));
  Writeln('Name: ', dn.FName, ',age ', dn.Age, ',next visit will be in ', dn.NextVisit);
  Writeln(StringOfChar('-', 8));
  dn.Free;
  
  Readln;
end.

Вчера немного поторопился и забыл про удаление созданных объектов.
А так же вывод сообщений можно реализовать без функции

Delphi
1
Format

.

@KFJFFFF · 11.03.2018, 02:11 **[ТС]**

Необходимо разработать и реализовать иерархию классов для описанных объектов предметной области, используя механизмы наследования. Проверить ее на тестовом примере, с демонстрацией всех возможностей разработанных классов на конкретных данных.
Объект – больной. Параметры: фамилия, возраст. Методы: инициализирующий, вывода на экран фамилии и возраста. Объект – больной. Параметры: фамилия, возраст, год последней диспансеризации. Методы: инициализирующий поля, выводящий на экран информацию о полях объекта и определения года следующей диспансеризации (диспансеризация должна проходиться каждые 3 года).

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

@KFJFFFF 0 / 0 / 0 Регистрация: 25.05.2017 Сообщений: 10
	06.03.2018, 17:11 [ТС]
	Спасибо большое! а подскажите как сделать, чтобы можно было вводить фамилию в окне и программа сама считала? 0

@Алекcей 554 / 484 / 191 Регистрация: 11.12.2013 Сообщений: 2,507
	06.03.2018, 17:21
	это консольная программа (как и исходная), в ней нет окон. 0

@KFJFFFF 0 / 0 / 0 Регистрация: 25.05.2017 Сообщений: 10
	11.03.2018, 02:11 [ТС]
	Необходимо разработать и реализовать иерархию классов для описанных объектов предметной области, используя механизмы наследования. Проверить ее на тестовом примере, с демонстрацией всех возможностей разработанных классов на конкретных данных. Объект – больной. Параметры: фамилия, возраст. Методы: инициализирующий, вывода на экран фамилии и возраста. Объект – больной. Параметры: фамилия, возраст, год последней диспансеризации. Методы: инициализирующий поля, выводящий на экран информацию о полях объекта и определения года следующей диспансеризации (диспансеризация должна проходиться каждые 3 года). 0