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

Напечатать в алфавитном порядке все гласные буквы, которые входят в каждое слово

07.04.2011, 16:51. Просмотров 1577. Ответов 3
Метки нет (Все метки)

1. Запись имеет вид: фамилия, пол, год рождения и рост. Вывести данные о самом высоком спортсмене.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.04.2011, 16:51
Ответы с готовыми решениями:

Напечатать в алфавитном порядке все гласные буквы, которые входят в каждое слово
Дан текст на русском языке. Напечатать в алфавитном порядке все гласные буквы, которые входят в...

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

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

Напечатать в алфавитном порядке все гласные буквы, которые входят в каждое четное слово
Тема: Строки. Множества. 3.2.Дан текст на русском языке. Напечатать в алфавитном порядке все...

__________________
3
0 / 0 / 4
Регистрация: 07.04.2011
Сообщений: 5
07.04.2011, 18:13 2
Лучший ответ Сообщение было отмечено ildwine как решение

Решение

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
type
  Tinf = record
    f: string[15];
    pol: char;
    gg, rost: word;
  end;
 
var
  f: file of Tinf;
  a, x: Tinf;
begin
 
  assign(f, 'IN.dat');
 
  write('Familiya: ');
  readln(a.f);
  rewrite(f);
  while a.f <> '0' do
  begin
    write('Pol: ');
    readln(a.pol);
    write('God: ');
    readln(a.gg);
    write('Rost: ');
    readln(a.rost);
    write(f, a);
    writeln;
    write('Familiya: ');
    readln(a.f);
  end;
  close(f);
 
  x.rost := 0;
  reset(f);
  while not eof(f) do
  begin
    read(f, a);
    if a.rost > x.rost then
      x := a;
  end;
  close(f);
  writeln;
  writeln('Familiya: ', x.f, '  Pol: ', x.pol, '  God: ', x.gg, '  Rost: ', x.rost);
 
  readln;
end.
)
0
10 / 10 / 7
Регистрация: 14.03.2011
Сообщений: 340
Записей в блоге: 1
07.04.2011, 18:37 3
объясните пожалуйста почему написан а?? и а х что обозначается ?
0
0 / 0 / 4
Регистрация: 07.04.2011
Сообщений: 5
07.04.2011, 22:48 4
Лучший ответ Сообщение было отмечено ildwine как решение

Решение

И так with не использовал.
a и x - это переменные типа записи Tinf . В каждой переменной есть ячейки:
Pascal
1
2
3
    f: string[15];
    pol: char;
    gg, rost: word;
f - это фамилия
pol - собсн-но пол
gg - год
rost - рост

Дальше в файл записывает переменную a (а значит и во все её ячейки) , потом считывает с файла в переменную a поочерёдно все данные и находится наибольший рост человека. Если такой есть, то записать значение переменной a в переменную x (того же типа). В конечном итоге вывести значение переменной x.

Обращение к ячейкам переменной происходит по такому правилу:
переменная.название ячейки записи
Например:
peremennaia.rost:=2;

)

Добавлено через 2 часа 21 минуту
(а значит и все её ячейки)* - очепятка
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.04.2011, 22:48

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Дан текст на русском языке. Напечатать в алфавитном порядке все гласные буквы, которые входят в каждое слово
Дан текст на русском языке. Напечатать в алфавитном порядке все гласные буквы, которые входят в...

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

Напечатать в алфавитном порядке все гласные буквы, которые не входят более чем в одно слово
Дан текст на русском языке. Напечатать в алфавитном порядке все гласные буквы, которые не входят...

Напечатать в алфавитном порядке все гласные буквы, которые не входят более чем в одно слово
Дан текст на русском языке. Напечатать в алфавитном порядке все гласные буквы, которые не входят...


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

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

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