Создать програму на Paskal. Відомості про книгу складаються з прізвища автора, назви та року видання. Ввести набір з 12 таких
10-11 класс
|
відомостей. Знайти назву книг даного автора, виданих з 1970 по 1990 рік. Впорядкувати відомості по першій літері прізвища автора. Замінити старий рік видання на 1992р., передбачаючи, що одна з книг перевидана.
Я плохо понимаю украинский, я сделал сортировку массивов по фамилиям автора от а до я. и заменил даты меньшие 1970.
uses crt;
var
a,b,i,j,y1,buk:integer;
g: array [1..12] of integer;
f: array [1..12] of string;
n: array [1..12] of string;
y:string;
begin
clrscr;
for i:=1 to 3 do begin
write('vvedite nazvanie= ');
readln(n[i]);
write('vvedite famoliu= ');
readln(f[i]);
write('vvedite god izdania= ');
readln(g[i]);
end;
for i:=2 to 3 do begin
buk:=i-1;
for j:=i to 3 do begin
if f[j][1]<f[buk][1] then
buk:=j;
end;
y:=f[i-1];
f[i-1]:=f[buk];
f[buk]:=y;
y:=n[i-1];
n[i-1]:=n[buk];
n[buk]:=y;
y1:=g[i-1];
g[i-1]:=g[buk];
g[buk]:=y1;
if g[i-1]<1970 then
g[i-1]:=1992;
end;
if g[12]<1970 then
g[12]:=1992;
for i:=1 to 3 do
writeln(n[i], ' ',f[i], ' ',g[i]);
end.
Другие вопросы из категории
размером a x b x c. Узник хочет узнать, сможет ли он выбрасывать кирпичи в море из этого отверстия, чтобы сделать подкоп. Снабдите его необходимым для решения задачи софтом. На вход программе подаются 5 чисел (a, b, c, d, e), программа должна давать ответ YES или NO.
1. Виды и свойства информации.
2. Моделирование.
Заранее спасибо)
Читайте также
координат. Побудувати два зафарбованих трикутники, симетричних відносно початку координат. Вершини трикутників з'єднати пунктирними лініями.
2. Зобразити сонце із променями, довжини яких вибираються випадковим чином з інтервалу (20, 80).
3. Побудувати графік функції крапками, вибравши розташування координатних осей на екрані й масштаб: y= (х2 -4х+3)2 ;
4. Побудувати криві по їхніх рівняннях, заданим у полярних координатах:
ρ= a/φ (а> 0);
5. Побудуйте стовпчасту діаграму, що відображає результати останньої сесії в кожній із груп. Дані про середню оцінку в кожній групі зберігаються в масиві О[ 1...10] .
руб., журнал h руб. У покупателя денег S руб. Хватит ли их на 3 журнала и 2
книги?.
массив. Найти сумму элементов первой и третьей строк матрицы.создать программу на этот алгоритм через abc paskal,
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
Разработать
программу в соответствии со своим вариантом: создать структуру типа «запись», выполнить
обработку данных.