Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
0 / 0 / 0
Регистрация: 01.12.2017
Сообщений: 3
1

Описать и ввести массив,содержащий 10 записей следующей структуры: фамилия автора,год его рождения,название картины.

13.12.2017, 16:47. Показов 1114. Ответов 1
Метки нет (Все метки)

Создать список картин выставки иностранных мастеров.
1.Описать и ввести массив,содержащий 10 записей следующей структуры:
фамилия автора,год его рождения,название картины.
2.Вывести массив в табличном виде.
3. Посчитать года жизни каждого художника,затем вывести список произведений художника Моне.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.12.2017, 16:47
Ответы с готовыми решениями:

Дан массив студентов из полей записи: фамилия, год рождения, оценки по 3 экзаменам
Дан массив студентов из полей записи: фамилия, год рождения, оценки по 3 экзаменам. Найти средний...

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

Ввести массив записей, который содержит Автора и название книги. Вывести на экран те записи, которые имеют одного автора.
1. Процедуры и функции: Найти значение переменной А по формуле: где С и В -одномерные...

Создать список жильцов дома. Описать и ввести массив, содержащий 10 записей заданной структуры
Создать список жильцов дома.1.Описать и ввести массив ,содержащий 10 записей следующей...

1
Эксперт Pascal/Delphi
6740 / 4524 / 4791
Регистрация: 05.06.2014
Сообщений: 22,321
14.12.2017, 11:17 2
Лучший ответ Сообщение было отмечено Ekaterina829 как решение

Решение

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
const
  n = 10;
 
type
  artist = record
    fio: string[128];
    god_rozh, god_smerti: integer;
    nazv: string[255];
  end;
 
var
  x: array [1..n] of artist;
  god, curr_year, i: integer;
 
begin
  curr_year := 2017;
  for i := 1 to n do
  begin
    write('Введите ФИО: ');
    readln(x[i].fio);
    write('Введите название картины: ');
    readln(x[i].nazv);
    write('Введите год рождения: ');
    readln(x[i].god_rozh);
    write('Введите год смерти (либо отрицательное число, если художник жив и творит): ');
    readln(x[i].god_smerti);
  end;
  writeln('Года жизни: ');
  for i := 1 to n do
  begin
    write(x[i].fio, ' ');
    if x[i].god_smerti > 0 then
      god := x[i].god_smerti - x[i].god_rozh
    else
      god := curr_year - x[i].god_rozh;
    writeln(god);
  end;
  writeln('Картины Моне: ');
  for i := 1 to n do
    if x[i].fio = 'Моне'  then
      writeln(x[i].nazv);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.12.2017, 11:17

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Описать структуру с именем NOTE, с полями: фамилия, номер телефона, год рождения. Ввести несколько структур.
Помогите пожайлуйста 1. Описать структуру с именем NOTE, с полями: фамилия, номер телефона, год...

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

Описать массив записей, содержащий анкетные данные (Ф.и. о., дату рождения, пол, место рождения) нескольких человек
Если можно, то с блок-схемой. Спасибо заранее) Описать массив записей, содержащий анкетные данные...

Ввести массив записей который содержит автора и название книги
Три программы: 1. Ввести массив записей который содержит автора и название книги. Вывести на...


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

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

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