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

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
dimbosss
0 / 0 / 0
Регистрация: 28.11.2009
Сообщений: 10
#1

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

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

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

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

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

записи,файлы - Pascal
Создать файл, содержащий сведения о предметах, изучаемых в 10 классе. Запись должна содержать: название предмета, общее количество часов на...

Записи и файлы - Pascal
Помогите пожалуйста решить и разобраться с двумя задачами: 1)Даны сведения об автомобиле: ФИО владельца, стоимость, марка и номер...

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

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

Записи и файлы - Pascal
Помогите, пожалуйста, составить программу решения следующей задачи: uses crt; type zap=record fk:string; fam:string; ...

3
maladoy
112 / 84 / 12
Регистрация: 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 / 0
Регистрация: 28.11.2009
Сообщений: 33
28.11.2009, 20:58 #4
какая неудача)))
0
28.11.2009, 20:58
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.11.2009, 20:58
Привет! Вот еще темы с ответами:

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

Файлы, записи. - Pascal
Помогите плиззз 1.В каждой стороке файла записаны фамилия и должность сотрудника. Вывести на экран фамилии программистов. 2.Переписать...

Записи.Файлы - Pascal
Дано число k(&lt;10) и текстовый файл,содержащий более k строк.Удалить из файла последние k строк.

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


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

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

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