Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
0 / 0 / 0
Регистрация: 24.10.2013
Сообщений: 56
1

Написать программу, которая вводит информацию и печатает ФИО людей выше 170 см

17.02.2014, 14:27. Показов 1401. Ответов 1
Метки нет (Все метки)

Помогите пожалуйста, очень прошу.
Определить комбинированный тип для представления следующих данных: анке-
та (ФИО, возраст, номер группы, рост и вес). Написать программу, которая вводит эту
информацию и печатает ФИО людей выше 170 см.


Помогите дописать программу, осталась только часть :Написать программу, которая вводит эту
информацию и печатает ФИО людей выше 170 см.


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
Type
  anketa=Record
  fio: String;
  voz: Byte;
  nom: String;
  ros: Byte;
  ves: Byte;
end;
Var
  x: Array[1..30] of anketa;
  i,n: Byte;
  group: String;
BEGIN
Write('Введите кол-во записей: ');
Readln(n);
For i:=1 to n do
With x[i] do
begin
  Write('ФИО: '); Readln(fio);
  Write('Возраст: '); Readln(voz);
  Write('Номер группы: '); Readln(nom);
  Write('Рост: '); Readln(ros);
  Write('Вес: '); Readln(ves);
  
end;
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.02.2014, 14:27
Ответы с готовыми решениями:

Написать программу, которая вводит информацию и печатает самое распространенное женское имя
Прошу помощи, болит голова х) Задача: На основе таблицы, содержащей следующую информацию о группе...

Напишите программу, которая вводит и печатает эту информацию и печатает фамилии студентов, родившихся летом
запись имеет четыре поля, содержащие фамилию и дату рождения (число, месяц, год) студента. Напишите...

Напишите программу, которая вводит и печатает эту информацию и печатает фамилии студентов, родившихся после 1970 года
Задание: Запись имеет четыре поля, содержащие фамилию и дату рождения (число, месяц, год)...

Написать программу, которая вводит номер некоторого года и печатает его название по старояпонскому календарю
В старояпонском календаре был принят 12-летний цикл. Годы внутри цикла носили названия животных:...

1
Почетный модератор
64069 / 47481 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
17.02.2014, 14:38 2
Цитата Сообщение от eronoff Посмотреть сообщение
которая вводит эту
печатает ФИО людей выше 170 см.
Pascal
1
2
3
4
5
6
7
8
k:=0;
for i:=1 to n do
if x[i].ros>170 then
 begin
  k:=1;
  writeln(x[i].fio)
 end;
if k=0 then writeln('Нет людей выше 170 см');
Добавлено через 1 минуту
Цитата Сообщение от eronoff Посмотреть сообщение
которая вводит эту
информацию
Так это вроде написано...
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.02.2014, 14:38

Написать программу, которая вводит номер некоторого года и печатает его название по старояпонскому календарю
Задание )В старояпонском календаре был принят 12-летний цикл. Годы внутри цикла носили названия...

Написать программу, которая вводит номер некоторого года и печатает его название по старояпонскому календарю
16 В старояпонском календаре был принят 12-летний цикл. Годы внутри цикла носили названия животных:...

Написать программу-меню, которая вводит дату некоторого дня года и печатает название соответствующего знака
Задача такая: Известно что астрологи делят год на 12 периодов , каждому из которых соответствует...

Написать программу, которая вводит дату некоторого дня года и печатает название соответствующего знака Зодиака
Известно, что астрологи делят год на 12 периодов и каждому из них ставят в соответствие один из...


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

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

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