Вопросы от Ромарио! Опции

[AlaRic]

А как насчет того, чтобы зайти не из-за задач, а просто пообщаться?

[Romario]

Хорошая идея, но как не зайду в ваш чат, так там никого нет ???

[Clane]

Хорошая идея, но как не зайду в ваш чат, так там никого нет ???

Ты лучше сюда задачки кинь (или сделай топик в разделе "Задачи"),  а то я что-то не совсем уверен, как их делать... :-(

[Romario]

Clane
Только об этом подумал =))

Задачи:
На тип Record

1. Сформировать файл, имеющий следующую структуру
type имя=(Аня,Валя,Женя,Петя,Саша,Таня,Шура,Юра);
данные=record пол:(м,ж);рост:140..200 end;
и определить:
o средний рост женщин;
o имя самого высокого мужчины;
o есть ли в группе хотя бы два человека одного роста.

2. Сформировать файл, имеющий следующую структуру
type дата=record число:1..31;
месяц:1..12;
год:1900..1996;
end;
анкета=record фамилия:string;
пол:(м,ж);
день рождения:дата;
end;
и определить:
o фамилию самого старшего мужчины;
o все фамилии, начинающиеся с заданной буквы;
o список людей, родившихся в заданном месяце.

3. Сформировать файл, имеющий следующую структуру
type знакомый=record фамилия:string;
номертел:10000..99999;
адрес:string;
end;
и определить:
o есть ли в книжке телефон данного человека;
o кому принадлежит данный телефон;
o список людей, живущих на данной улице.

4. Сформировать файл, имеющий следующую структуру
type студент= record фамилия: string;
номергр: string;
оценка1: integer;
оценка2: integer;
оценка3: integer;
end;
и определить:
o фамилию того, кто лучше всех сдал экзамены;
o средний балл по данному предмету;
o список задолжников.

5. Сформировать файл, имеющий следующую структуру
type студент= record фамилия:string;
имя:string;
пол:(м,ж);
возраст:16..35;
курс:1..5;
end;
и определить:
o курс, на котором наибольший процент мужчин;
o самые распространенные женские и мужские имена;
o список студентов данного пола, данного курса.

6. Сформировать файл, имеющий следующую структуру
type пассажир=record фамилия:string;
имя:string;
номер рейса:string;
количество вещей:integer;
общий вес:integer;
end;
и определить:
o рейс с максимальным весом багажа;
o пассажира с наибольшим количеством вещей;
o вывести список пассажиров и информацию об их багаже, улетающих данным рейсом.

7. Сформировать файл, имеющий следующую структуру
type владелец=record фамилия:string;
адрес:string;
марка автомобиля:string;
рег. номер:string;
год выпуска:1900..2000;
end;
и определить:
o количество автомобилей каждой марки;
o владельца самого старого автомобиля;
o фамилии владельцев и номера автомобилей данной марки.

8. Сформировать файл, имеющий следующую структуру
type ребенок=record фамилия:string;
адрес:string;
пол:(муж,жен);
количество дней посещения:integer;
end;
и определить:
o самого болеющего ребенка;
o кто больше болеет мальчики или девочки;
o список детей проживающих на данной улице.

9. Сформировать файл, имеющий следующую структуру
type книга=record автор:string;
название:string;
год издание:integer;
издательство:string;
количество страниц:integer;
end;
и определить:
o есть ли в библиотеке книги данного автора;
o найти книгу с наибольшим количеством страниц;
o найти названия книг данного автора, изданных с указанного года, в данном издательстве.

10. Сформировать файл, имеющий следующую структуру
type товар=record наименование:string;
страна:string;
объем партии:integer;
цена:integer;
end;
и определить:
o страну, в которую экспортируется товар на максимальную сумму;
o список стран, в которые экспортируется данный товар;
o найти товары, который имеет минимальный объем партии.

...

[Romario]

...

продолжение:


11. Сформировать файл, имеющий следующую структуру
type игрушка=record название:string;
цена:integer;
возраст1:1..16;
возраст2:1..16;
end;
и определить:
o название самой дорогой игрушки;
o список игрушек, которые подходят детям данного возраста;
o подобрать игрушки на данную сумму денег (все варианты).

12. Сформировать файл, имеющий следующую структуру
type игрушка=record название:string;
цена:integer;
цвет:string;
возраст1:1..16;
возраст2:1..16;
end;
и определить:
o название игрушек, цена которых не превышает данную и которые подходят детям данного возраста;
o найти самую дешевую игрушку данного названия;
o найти самый распространенный цвет игрушек.

13. Сформировать файл, имеющий следующую структуру
type пассажир=record фамилия:string;
имя:string;
номер рейса:string;
количество вещей:integer;
общий вес:integer;
end;
и определить:
o число пассажиров, количество вещей которых превосходит среднее число вещей;
o пассажира с данным количеством вещей и не более данного веса;
o вывести информацию о количестве вещей и общем весе каждого рейса.

14. Сформировать файл, имеющий следующую структуру
type спортсмен=record фамилия:string;
страна:string;
рост:150..220;
вес:30..100;
год рождения:ineger;
результат:integer;
end;
и определить:
o средний рост и вес спортсменов данной страны;
o найти лучшего спортсмена данной страны;
o список спортсменов данного возраста с результатом, не хуже данного.

15. Сформировать файл, имеющий следующую структуру
type спортсмен=record фамилия:string;
страна:string;
тренер:string;
год рождения:ineger;
результат:integer;
end;
и определить:
o найти самого молодого спортсмена, занимающегося у данного тренера;
o найти лучшего тренера данной страны;
o список тренеров с указанием страны.

16. Сформировать файл, имеющий следующую структуру
type предмет=record название:string;
количество часов:integer;
преподаватель:string;
кафедра:string;
форма отчетности:(зачет,экзамен);
end;
и определить:
o преподавателя, у которого самое большое количество часов;
o список предметов, по которым сдают экзамен;
o кафедру и преподавателя, который ведет данный предмет.

17. Сформировать файл, имеющий следующую структуру
type предмет=record название:string;
0количество часов:integer;
преподаватель:string;
кафедра:string;
форма отчетности:(зачет,экзамен);
end;
и определить:
o преподавателя, который принимает больше всего экзаменов;
o кафедру, на которой читается больше всего предметов;
o список преподавателей данной кафедры.

18. Сформировать файл, имеющий следующую структуру
type предмет=record название:string;
количество часов:integer;
преподаватель:string;
кафедра:string;
форма отчетности:(зачет,экзамен);
end;
и определить:
o найти среднюю нагрузку по данной кафедре;
o найти количество зачетов и экзаменов у данного преподавателя;
o список предметов, читаемых данной кафедрой.

19. Сформировать файл, имеющий следующую структуру
type преподаватель=record фамилия:string;
предмет:string;
факультет:string;
курс:1..5;
количество часов:integer;
end;
и определить:
o преподавателя имеющего самую большую нагрузку;
o список предметов, которые читает данный преподаватель;
o объем часов на данном факультете и данном курсе.

20. Сформировать файл, имеющий следующую структуру
type игрушка=record название:string;
цена:integer;
возраст1:1..16;
возраст2:1..16;
end;
и определить:
o название самой дорогой игрушки;
o список игрушек, которые подходят детям данного возраста;
o подобрать игрушки на данную сумму денег (все варианты).

21. Сформировать файл, имеющий следующую структуру
type книга=record автор:string;
название:string;
год издание:integer;
издательство:string;
количество страниц:integer;
end;
и определить:
o есть ли в библиотеке книги данного автора;
o найти книгу с наибольшим количеством страниц;
o найти названия книг данного автора, изданных с указанного года, в данном издательстве.

22. Сформировать файл, имеющий следующую структуру
type знакомый=record фамилия:string;
номертел:10000..99999;
адрес:string;
end;
и определить:
o есть ли в книжке телефон данного человека;
o кому принадлежит данный телефон;
o список людей, живущих на данной улице

...

[Romario]

На матрицы:

1. Дана квадратная матрица порядка N. Вычислить среднее арифметическое положительных элементов матрицы, стоящих выше главной диагонали.

2. Дана матрица размерности N на M. Найти строку, в которой максимальный элемент минимален в соответствующем столбце.

3. Дана матрица размерности N на M. Найти столбец, в котором максимальный элемент минимален в соответствующей строке.

4. Дана матрица размерности N на M. Найти в матрице первую по порядку строку с наибольшей суммой элементов. Вывести ее номер.

5. Дана квадратная матрица порядка N. В матрице вычислить среднее арифметическое положительных элементов, стоящих на главной диагонали.

6. Дана квадратная матрица порядка N. Вывести строку матрицы, в которой элемент, стоящий на главной диагонали, максимален.

7. Дана матрица размерности N на M. Положительные элементы матрицы переписать подряд в одномерный массив В.

8. Дана матрица размерности N на M. Вычислить количество строк матрицы, в которых есть хоть один отрицательный элемент.

9. В квадратной матрице найти сумму элементов побочной диагонали и разделить на полученную сумму все элементы последнего столбца.

10. Дана матрица размерности N на M. Найти максимальный элемент и строку, содержащую этот элемент, поменять с первой строкой. Полученную матрицу вывести построчно.

11. Дана матрица размерности N на M. Вывести количество строк матрицы, в которых число положительных элементов больше числа отрицательных элементов.

12. Дана квадратная матрица порядка N. Найти произведение элементов побочной диагонали квадратной матрицы.

13. Дана матрица размерности N на M. Вывести номера всех столбцов матрицы, не содержащих отрицательных элементов.

14. Дана матрица размерности N на M. В матрице найти первый по порядку столбец с максимальной суммой элементов. Вывести его номер.

15. Дана матрица размерности N на M. Вычислить количество строк матрицы, в которых нет ни одного отрицательного элемента.

16. Дана квадратная матрица порядка N. Вывести столбец матрицы, в котором элемент, стоящий на главной диагонали, минимален, среди элементов главной диагонали.

17. Дана матрица размерности N на M. В матрице найти первый по порядку столбец с минимальной суммой модулей его элементов. Вывести его номер.

18. Найти сумму элементов квадратной матрицы, находящихся ниже главной диагонали.

19. Дана квадратная матрица порядка N. Найти максимальный и минимальный элементы матрицы и поменять местами соответствующие им строку и столбец (строка для максимального элемента, столбец для минимального элемента).

20. Дана квадратная матрица порядка N. Найти количество четных элементов квадратной матрицы, расположенных ниже побочной диагонали.

21. Дана матрица размерности N на M. Седловой точкой матрицы назовем элемент, который является одновременно минимальным в строке и максимальным в столбце. Найти все седловые точки матрицы.

22. Дана матрица размерности N на M. Найти произведение максимальных четных элементов столбцов матрицы.

[Romario]

Итак, последние 3 поста и есть задачи На тип Запись всё вводится с клавы, а матрицы можно заполнять рандомно... Удачи! ;)

[Clane]

Хм... Насчет матриц глянь в алгоритмы, там AlaRic полезного много накидал !

[Clane]

Итак, последние 3 поста и есть задачи На тип Запись всё вводится с клавы, а матрицы можно заполнять рандомно... Удачи! ;)

А ты сам уже что-нибудь написал или хотя-бы попробывал ? если да, то шли прям сюда, глянем !

[Romario]

Сделал 1 на запись и одну на матрицы... Но с матрицей глюки да и неправильная она наверно... Код сюда кидать не буду, писал в Турбо Паскале так что, что написано русским корявиться
1: http://www.rgweb.hut.ru/1.PAS
2: http://www.rgweb.hut.ru/2.PAS

[Dark]

:o
нУ ВОТ ТЕБЕ ЗАМЕЧАНИЯ НА ТЕМУ 1.PAS, ИЗВИНИ ЕСЛИ БУДУТ СЛИШКОМ СУРОВЫМИ...

1.

Код

readln(a[i].surname);
a[i].surname[j]:=UpCase(a[i].surname[j]);

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

Код

readln(a[i].surname);
 for j:=1 to ord(a[i].surname[0]) do
   a[i].surname[j]:=UpCase(a[i].surname[j]);

И все тип топ. И еще, если введено русское имя, то процедура Upcase с ним работать не будет...

2. проверку

Код

if not (a[i].sex='Ж') then
 if not (a[i].sex='M') then
   if not (a[i].sex='м') then
     if not (a[i].sex='ж') then
       begin
         {...}
       end;

можно было заменить на:

Код

if not (a[i].sex in ['Ж', 'ж','М','м']) then
 begin
   {...}
 end;

И в идеале: a[i].sex тоже можно обработать Upcase.
С наилучшими пожеланиями! ;D

[Romario]

1. Ну например напишу я это так: if not (a[i].sex in ['Ж', 'ж','М','м']) then
  begin
  {...}
  end;  
Ну а в VAR'e мне как и что описывать?
2. readln(a[i].surname);
   for j:=1 to ord(a[i].surname[0]) do
     a[i].surname[j]:=UpCase(a[i].surname[j]);
И все тип топ. И еще, если введено русское имя, то процедура Upcase с ним работать не будет...
Почему с русскими буквами не будет это всё дело работать?

[AlaRic]

Вот тебе №1 в разделе матриц:

Код

program n1;
const n=5;
var
a:array[1..n,1..n] of integer;
i,j,k:integer;
arif,s:real;
begin
s:=0;k:=0;
writeln('ввести матрицу');
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
for i:=1 to n do
for j:=i to n do
if a[i,j]>0 then
begin
k:=k+1;
s:=s+a[i,j];
end;
arif:=s/k;
write('ответ ',arif:7:2);
end.

 

Остальное лень  ;D ;D

[Dark]

:
А что ты хочешь написать в Var'е?
Когда ты сравниваешь так, как я написал, тем самым ты определяешь преднадлежность элемента множеству.

В моем случае элементом была переменная a[i].sex, а множеством ['М','м','Ж','ж'].

Можно сделать так:

writeln('Введите пол');
repeat
readln(a[i].sex);
if not a[i].sex in [..] writeln('Нехорошо!!!');
until a[i].sex in [..];

// я не люблю GOTO, правда это личное дело каждого...

А то, что Upcase не переводит в верхний регистр связано с расстановкой номеров кодов в ASCII таблице... но в общемто не сложно написать ее прототип самому...

Счастливого погружения!!!
;D

[Ромарио]

Dark
Ну вот пишу я так:

Код

1:
 write(' Введите пол -> ');
 readln(a[i].sex);
 if not (a[i].sex in ['М','м','Ж','ж']) then begin
   write(a[i].sex,' неверно...');
   writeln;
   goto 1;
 end;

И в этой строке:
if not (a[i].sex in ['М','м','Ж','ж']) then
он мне ошибку выводит:
Operand types do not match operator
В чём ошибка?

[Romario]

Ну типа отзовитесь :-/

[Dark]

Извини, отвечу позжее... когда буду на работе - в ночь с 23 на 24(может позже...) ;D

[Romario]

Жду... ;)

[Dark]

Ну, в общем я выяснил - in co string не работает а работает с char, так что в типе anketa измени sex на char - и все заработает...  ;D

[Romario]

Dark
Изменил со string на char и всё равно в строке:

if not (a[i].sex in ['М','м','Ж','ж']) then

таже ошибка...