Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
dimbosss
0 / 0 / 0
Регистрация: 28.11.2009
Сообщений: 10
1

Записи, файлы

28.11.2009, 11:00. Просмотров 481. Ответов 3
Метки нет (Все метки)

1.Даны сведения о владельцах автомобилей: фамилия, инициалы владельца, марка машины, номер, цвет. Выдать все сведения о машинах, сумма цифр номера которого равна заданному числу D .

2.В файле содержатся сведения о сдаче студентами сессии: фамилия, имя, группа, оценки по четырем предметам. Определить предмет, который был сдан в сессию хуже всего.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.11.2009, 11:00
Ответы с готовыми решениями:

Записи и файлы
Puporev вы бы не могли решить еще одну задачу !!!у меня атестация и мне задали кучу задач Сведения...

Записи и файлы
Задача №1.Известны данные о 25 учениках класса:фамилия,имя,отчество,адрес,и домашний телефон если...

• Записи и файлы
Создайте символьный файл f. Получите копию файла в текстовом файле g.

Файлы, записи.
дан файл f, который содержит номера телефонов сотрудников учреждения: указывается фамилия...

Файлы, записи.
Дан файл Bibl,содержащий сведения о книгах. Сведения о каждой из книг-это фамилия автора,название и...

3
maladoy
112 / 84 / 56
Регистрация: 09.01.2009
Сообщений: 209
28.11.2009, 11:12 2
1)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
function SD(n:integer):integer;
var s:integer;
begin
s:=0;
while n<>0 do begin
s:=s+n mod 10;
n:=n div 10;
end;
sd:=s;
end;
....
for i:=1 to n do 
if sd(a[i].numb)=nn then
begin
writeln(a[i].f);
writeln(a[i].inic);
writeln(a[i].mark);
writeln(a[i].col);
writeln(a[i].numb);
end;
.....
Добавлено через 6 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
.....
while not eof(f) do begin
readln(f,stud);
inc(a[1],stud.pp);
inc(a[2],stud.vp);
inc(a[3],stud.tp);
inc(a[4],stud.cp);
end;
min:=a[1];
im:=1;
for i:=2 to 4 do 
if a[i]<min then begin min:=a[i];im:=i;end;
writeln(im,'-й предмет сдан хуже всех');
.....
1
dimbosss
0 / 0 / 0
Регистрация: 28.11.2009
Сообщений: 10
28.11.2009, 11:22  [ТС] 3
Жаль что я не знаю даже то, что нужно поставить место многоточий.
0
seg
0 / 0 / 1
Регистрация: 28.11.2009
Сообщений: 33
28.11.2009, 20:58 4
какая неудача)))
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.11.2009, 20:58

Записи и файлы.
№1.Известны данные о 25 учениках класса:фамилия,имя,отчество,адрес,и домашний телефон если он...

Файлы и записи
Создать файл с 10 записями, содержащими информацию об автомобилях (название, марка, год выпуска,...

Записи и файлы!
№1.Известны данные о 25 учениках класса:фамилия,имя,отчество,адрес,и домашний телефон если он...


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

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

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