С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
asdff
0 / 0 / 0
Регистрация: 13.10.2015
1

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

03.06.2013, 11:01. Просмотров 337. Ответов 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
Ответы с готовыми решениями:

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

Надо оформить задачу
TForm1.Button1Click(Sender: TObject); var s:string; i,k:integer; begin s:='...

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

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

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

1
Arkaniy
106 / 106 / 21
Регистрация: 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

Написать простую программу 'hello мир', чтоб работала в консоли
можете написать код

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

Я первокурсник ВУЗА. Что нужно знать чтобы сдать экзамен по Делфи 7. Первый экзамен в жизни
Здравствуйте. Что нужно знать чтобы сдать первый экзамен по Делфи 7. Расскажите, что лучше выучить...


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

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

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