Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
Crazyroma
3 / 3 / 5
Регистрация: 21.10.2010
Сообщений: 124
1

Из списка группы вывести фамилии студентов не старше 18 лет

17.11.2010, 00:53. Просмотров 506. Ответов 2
Метки нет (Все метки)

Чесно скажу что то я не сильно понемаю мне надо задать
Из списка группы вывести фамилии студентов не старше 18 лет

Я к примеру пишу ,то что я написал это так скажем набросок я хоть в правильном направлении иду?Можете если что подправить или посоветовать что не так?Или мне надо заать єтот список?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program student;
Var
x:real;y:string;
P1, p2,p3: Student;
Type student = record
Surname: String [15];
year: integer; end;
x:=year
y:=surname
begin
writeln ('имя студента')
readln ('x')
writeln ('сколько лет'); readln(y);
repeat p1=p3
with p1 do 
if year>18 then print('x') else writeln('он старий');
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.11.2010, 00:53
Ответы с готовыми решениями:

Из списка группы вывести фамилии студентов не старше 18 лет
Помогите пожалуйста: Из списка группы вывести фамилии студентов не старше 18...

Вывести фамилии тех студентов, кому исполнилось n лет
Организовать массив записей и поместить в него сведения о нескольких студентах...

Вывести фамилии, имена и отчества всех студентов мужского пола, старших 18 лет
вывести фамилии, имена и отчества всех студентов мужского пола, старших 18 лет....

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

Записи. Для заданной группы вывести фамилии студентов не получивших стипендии
для заданной группы вывести фамилии студентов не получивших стипендии....

2
TAVulator
Эксперт Pascal/Delphi
3966 / 1122 / 165
Регистрация: 27.07.2009
Сообщений: 3,492
17.11.2010, 01:16 2
это не код, а белиберда какая-то...
0
Crazyroma
3 / 3 / 5
Регистрация: 21.10.2010
Сообщений: 124
17.11.2010, 01:26  [ТС] 3
Цитата Сообщение от TAVulator Посмотреть сообщение
это не код, а белиберда какая-то...
Чесно скажу я чуть не могу понять как задавать пока единствиное что я понял так это что можно задать так


Pascal
1
2
3
Type student = record
Surname: String [15];
year: integer; end;
и то что

Pascal
1
2
3
4
5
p1.p2.p3:student;
p1 = record;
nema:string;
year:real
и так дале ...
Но как задать чтоб оно мне вывело имена людей которм меньше 18?
мне типа нада написать

Pascal
1
2
3
4
5
6
7
8
9
p1,p2:student;
Type student = record
Surname: String [15];
year: integer; end;
procedure p1(student:record)
Surname:=Givka;
year:=16 и так до конца а потом задать 
 
if year>n then writeln ('student' p1)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.11.2010, 01:26

Распечатать фамилии парней старше 20 лет и чей рост более 180 см
из структуры записи с полями пол, фамилия, возраст, рост распечатать фамилии...

Необходимо завести в файл фамилии, имя студентов вашей группы
Необходимо завести в файл фамилии, имя студентов вашей группы (23 каких-либо...

Сформировать файл, содержащий фамилии нескольких студентов вашей группы
Люди! Помогите написать след. Программу: сформировать файл, содержащий фамилии...


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

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

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