Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
schokker126
0 / 0 / 0
Регистрация: 17.12.2015
Сообщений: 15
1

Создать файл, содержащий данные: ФИО ученика; пол; рост. Просмотреть данные из файла

17.12.2015, 14:10. Просмотров 970. Ответов 1
Метки нет (Все метки)

34. Создать файл, содержащий данные: ФИО ученика; пол; рост. Просмотреть данные из файла. Определить средний рост девочек.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.12.2015, 14:10
Ответы с готовыми решениями:

В файл вводятся имена, пол и рост человека. Программа считывает данные из файла и выдает совпадения если в нем есть мужчины одного роста. Тема:работа
В файл вводятся имена, пол и рост человека. Программа считывает данные из файла...

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

Для 7 человек, среди которых есть мужчины и женщины, хранятся следующие данные: имя, пол (true - мужской, false - женский), рост.Опишите логическую ф
условие: Для 7 человек, среди которых есть мужчины и женщины, хранятся...

Создать файл, содержащий ФИО студентов
Здраствуйте уважаемые прогрмаммисты! прошу решить следующую задачу: Создать...

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

1
Azazel-San
Mental handicap
383 / 156 / 77
Регистрация: 24.11.2015
Сообщений: 1,005
Завершенные тесты: 1
17.12.2015, 22:06 2
Лучший ответ Сообщение было отмечено schokker126 как решение

Решение

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
program laba8;
uses crt;
type stud=record
name:string[15];
s2name:string[15]; 
s3name:string[15]; 
pol:string[15]; 
rost:integer;
ag:real;
end;
 
var a:array[1..15] of stud;
k,i,count:integer;
f:text;
 
begin
clrscr;
write('Vvedite 1 dlya vvoda ili 2 dlya schytanniya: ');
read(k);
assign(f,'lb8.txt');
if k = 1 then begin
rewrite(f);
for i:=1 to 3 do with a[i] do begin
write('[',i,'] Фамилия: ');
readln;
read(s2name); writeln(f,s2name);
readln;
write('[',i,'] Имя: ');
readln(name); writeln(f,name);
write('[',i,'] Отчество: ');
readln(s3name); writeln(f,s3name);
write('[',i,'] Пол: ');
readln(pol); writeln(f,pol);
write('[',i,'] Рост:');
readln(rost); writeln(f,rost);
end;
close(f);
end
 
else begin
reset(f);
writeln(' ____________________________________________________________  ');
writeln('|       Фамилия      |    Имя    | Отчество |   Пол   | Рост |');
writeln('|____________________|___________|__________|_________|______|');
for i:=1 to 3 do with a[i] do begin
readln(f,s2name);
readln(f,name);
readln(f,s3name);
readln(f,pol);
readln(f,rost);
writeln('|    ',s2name:16,'| ',name:10,'|',s3name:10,'|',pol:9,'|',rost:5,' |');
writeln('|____________________|___________|__________|_________|______|');
end;
writeln;
for i:=1 to 3 do with a[i] do begin
a[i].ag:=0;
 if a[i].pol ='female' then begin
 inc(count);
 a[i].ag:= a[i].ag+a[1].rost+a[2].rost+a[3].rost;
end;
end;
 //a[i].ag := a[i].ag/3;
writeln('Средний рост девочек: ',a[i].ag/count:4:3); 
    close(f);
  end;
readln;
readkey;
end.
Добавлено через 17 минут
Вообщем она не совсем верная, надеюсь хоть чем-то помог
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.12.2015, 22:06

Дан файл f, содержащий сведения о веществах. Выбрать данные о проводниках с заданным удельным весом
Дан файл f, содержащий сведения о веществах: 1) название 2) удельный вес 3)...

Создать файл и записать в него данные
как написать программу?

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


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

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

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