Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
asdff
0 / 0 / 0
Регистрация: 13.10.2015
#1

Ребята, надо написать простую задачу, экзамен - Delphi

03.06.2013, 11:01. Просмотров 329. Ответов 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
program Project11;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
type tabl=record
  fam:string[10];
  nam:string[10];
  otch:string[10];
  voz:integer;
  namebol:string[15];
  zabolev:string[20];
  day:integer;
  month:integer;
  year:integer;
end;
var ved:tabl;
zabolevanie:string[20];
f,f1:text;
begin
assign(f,'D:\maltseva\patients.txt');
assign(f1,'D:\maltseva\info.txt');
reset(f);
rewrite(f1);
while not eof(f) do
begin
  read(f,ved.fam);   write(ved.fam);
  read(f,ved.nam);    write(ved.nam);
  read(f,ved.otch);  write(ved.otch);
  readln(f,ved.voz); writeln(ved.voz:3);
  read(f,ved.namebol);    write(ved.namebol);
  read(f,ved.zabolev);   write(ved.zabolev);
  read(f,ved.day);      write(ved.day:2);
  read(f,ved.month);    write(ved.month:2);
  readln(f,ved.year);      writeln(ved.year:5);
  end;
  reset(f);
 
  writeln ('vvedite zabolevanie');
  read(zabolevanie);
  while not eof(f) do
  begin
    readln(f,ved.fam,ved.nam,ved.otch,ved.voz,ved.namebol,ved.zabolev,ved.day,ved.month,ved.year);
    if ved.zabolev=zabolevanie then
    writeln(ved.fam,ved.nam,ved.otch,ved.voz,ved.namebol,ved.zabolev,ved.day,ved.month,ved.year);
writeln(f1,ved.fam,ved.nam,ved.otch,ved.voz,ved.namebol,ved.zabolev,ved.day,ved.month,ved.year)
   end;
   readln;
   close(f);     readln;readln;
   close(f1);
  end.
  begin
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.06.2013, 11:01
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Ребята, надо написать простую задачу, экзамен (Delphi):

НАрод, пожалуста, с этого сайта задачу, очень надо сделать задачу - Delphi
http://www.delphiplus.org/praktikum-po-delphi/prakticheskaya-rabota-34-igra.html

Надо оформить задачу - Delphi
TForm1.Button1Click(Sender: TObject); var s:string; i,k:integer; begin s:=' '+Edit1.Text;//добавим пробел в начало k:=0; for...

Нужно написать программку (очень простую) - Delphi
Всем привет! Конечно извиняюсь, но я не столь успешен в программировании, как многие из Вас. Можно сказать, что я полноценный...

Написать простую программу учета медикаментов! - Delphi
Написать простую программу учета медикаментов! Программа должна быть написана на Delphi 7. Программа должна содержать следующую...

Написать простую программу загрузить текст из файла - Delphi
Помогите написать программу алгоритм которой должен работать следующим образом: 1. Загрузить текст из файла 2. Разбить его по словам ...

Надо исправить задачу (ошибка пишет в while) или перепишите вместо while, в for - Delphi
var a:array of integer; st:array of integer; rez:array of integer; sum,i,j,k,x,s,n:integer; otvet:string; begin ...

1
Arkaniy
106 / 106 / 6
Регистрация: 29.08.2012
Сообщений: 453
03.06.2013, 12:08 #2
Эммм...что надо сделать, что не работает, чем помочь мы сами должны угадать? Тут нет телепатов.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.06.2013, 12:08
Привет! Вот еще темы с ответами:

Что надо написать в игру? - Delphi
Решил что-то сделать,но кроме "Pong" мало чего получилось =) Прошу помочь вот с чем: Чтоб котик управлялся по стрелкам (Анимацию...

Ребят надо написать программу - Delphi
Тема программы Автоматизация учёта кадров.

Надо написать 3 программы на Delphi7 - Delphi
5.7 10.1 13.3 Буду очень благодарен!

надо написать программу, работа со строками - Delphi
Оно легкое, но я ничего не понимаю в Делфи. Задание такое: Можно ли из фразы “Экстремум функции на интервале” составить слово “ЭВМ” ? Если...


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

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

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