Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 14.05.2015
Сообщений: 6
1

Составить программу с помощью которой можно добавить запись, удалить запись и распечатать дешевое издание.

05.11.2015, 22:46. Показов 641. Ответов 3
Метки нет (Все метки)

Pascal
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
program _file_LB7_Zeleniuk;
type zurnal=record
 name:string[15];
 tiraz:integer;
 vartist:integer;
end;
var f:file of zurnal;
    comp:zurnal;
    n:integer;
    c:integer;
{======================}    
Procedure creatfile;
 var i:integer;
begin
 Rewrite(f);
 writeln('Скільки буде записів?');
 readln(n);
 for i:=1 to n do
begin
 write('Назва');readln(comp.name);
 write('Тираж');readln(comp.tiraz);
 write('Вартість');readln(comp.vartist);
 write(f,comp);
end;
 Close(f);
end;
 {======================}
Procedure AddFile;
 var i:integer;
begin
 Reset(f);
 Seek(f,filesize(f));
 writeln('Скільки додати записів');
 readln(n);
 for i:=1 to n do
begin
 write('Назва');readln(comp.name);
 write('Тираж');readln(comp.tiraz);
 write('Вартість');readln(comp.vartist);
 write(f,comp);
end;
 Close(f);
end;
 
 {=====================}
Procedure OutFile;
begin
 Reset(f);
 while(not Eof(f))do
begin
 Read(f,comp);
 write(comp.name,'',comp.tiraz,'',comp.vartist);
end;
 close(f);
end;
 
Procedure Search;
var f:boolean;
begin
 Reset(f);f:=false;
 while(not Eof(f))do
begin
 Read(f.comp);
 if(comp,vartist)then
end;
begin
 writeln(comp.name,'',comp.tiraz,'',comp.vartist);
end;
 
 Assign(f,'zurnal.txt');
 repeat
 writeln('1.Створити файл');
 writeln('2.Додати файл');
 writeln('3.Вивід інформації з файлу');
 writeln('4.Пошук');
 writeln('5.Вихід');
 writeln('Ваш вибір');readln(c);
 case c to
 1.CreatFile;
 2.AddFile;
 3.OutFile;
 4.Serach;
 end;
 until c='5'
 end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.11.2015, 22:46
Ответы с готовыми решениями:

Составить программу, с помощью которой можно сформировать текстовый файл из строк
Составить программу, с помощью которой можно сформировать текстовый файл из строк, которые должны...

Четыре кнопки на форме: добавить запись, удалить запись, закрыть, найти запись
Private Sub КнопкаДобавитьЗапись_Click() On Error GoTo Err_КнопкаДобавитьЗапись_Click ...

Составить программу, которая выводит полную запись десятичного числа 42 * ​​4 *, в которой пропущены две цифры
Составить программу, которая выводит полную запись десятичного числа 42 * ​​4 *, в...

Удалить запись, у которой нет зависимых записей
Есть триггер, который выполняет каскадное удаление записей. Но появляется запись, у которой больше...

__________________
3
Почетный модератор
Эксперт по компьютерным сетямЭксперт Windows
28023 / 15750 / 971
Регистрация: 15.09.2009
Сообщений: 67,775
Записей в блоге: 78
05.11.2015, 22:47 2
напишите условие и какие ошибки выдает.
0
0 / 0 / 0
Регистрация: 14.05.2015
Сообщений: 6
05.11.2015, 22:59  [ТС] 3
и нужно доделать процедуру удаления журналов с списка

Добавлено через 56 секунд
В файле хранится информация о печатных периодических изданиях (газеты , журналы) . Известны их имена , тираж и стоимость. Составить программу с помощью которой можно добавить запись , удалить запись и распечатать дешевле издание.

Добавлено через 8 минут
Встречено 'then', а ожидалось ':'
в процедуре поиска
0
Эксперт Pascal/Delphi
6627 / 4455 / 4744
Регистрация: 05.06.2014
Сообщений: 21,897
06.11.2015, 13:26 4
Pascal
1
if (comp,vartist) then
Это вы чего такое написали?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.11.2015, 13:26

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Как удалить запись с помощью DataGrid
Есть DataGrid с элементом управления Adodc. Как удалить запись ? когда делаю добавить пишу...

Составить программу, проверяющую, можно ли получить запись числа А путем стирания цифр из числа В
Помогите с сравнением цифр в двух числах Дано два натуральних числа А и В. Составитьпрограмму...

Можно ли выбрать запись из БД, в которой содержалось бы несколько тегов?
Здравствуйте! Скажите пожалуйста, можно ли как-то выбрать запись из БД в которой содержалось бы...

Как удалить/добавить запись, используя Nhibernate?
Как удалить/добавить запись, используя Nhibernate? Не могу понять. Покажите на примере, если не...


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

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

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