Помогите пожалуйста ! Безотлагательно 44 Балла ПАСКАЛЬ Abs.NET . Тема :Трудные
Помогите пожалуйста ! Безотлагательно 44 Балла ПАСКАЛЬ АБС.NET . Тема :Трудные типы данных. Записи:
Организовать файл, содержащий информацию о книжках. Сведения о каждой из книжек - это фамилия автора, заглавие книги, количество страниц и год издания. Отыскать заглавие книжек данного автора, изданных не позже определённого года. Фамилия творца и год вводятся с клавиатуры.
Milena Karahovskaja
а что именно надо сделать
Ярослава Гиндоян
Надобно составить программку в паскале abs , с подмогою трудных типов данных
Ульяна Буткеева
Этот Pascal ABC с 2007 года разработчики не поддерживают, предлагая перебегать на PascalABC.NET
1 ответ
Nikita
1. Программка для творения файла
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
type
tBook=record
author:string[30];
naim:string[50];
pages:integer;
godizd:integer
end;
begin
var f:file of tBook;
Rewrite(f,'books.dat');
Writeln('Ввод данных по книжкам');
var s1,s2:string;
var i1,i2:integer;
var book:tBook;
repeat
s1:=ReadlnString('Создатель либо * для окончания ввода:');
if s1lt;gt;'*' then begin
s2:=ReadlnString('Заглавие книжки:');
i1:=ReadlnInteger('Количество страниц:');
i2:=ReadlnInteger('Год издания:');
(book.author,book.naim,book.pages,book.godizd):=(s1,s2,i1,i2);
Write(f,book)
end
until s1='*';
Writeln('*** Ввод завершен ***');
f.Close
end.
Тестовое решение
Ввод данных по книжкам
Автор либо * для окончания ввода: Жюль Верн
Заглавие книжки: 80 тыщ км под водой
Количество страничек: 573
Год издания: 1951
Создатель или * для окончания ввода: Сергей Лукьяненко
Заглавие книжки: Дозор
Количество страниц: 934
Год издания: 2004
Автор или * для окончания ввода: Жюль Верн
Заглавие книжки: Властелин мира
Количество страничек: 104
Год издания: 2011
Автор или * для окончания ввода: *
*** Ввод завершен ***
2. Программа для подборки
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
type
tBook=record
author:string[30];
naim:string[50];
pages:integer;
godizd:integer
end;
begin
var f:file of tBook;
Reset(f,'books.dat');
var s:=ReadlnString('Создатель книжки:');
var y:=Readinteger('Год издания, не ранее:');
var k:=0;
var book:tBook;
while not f.Eof do begin
Read(f,book);
if (book.author=s) and (book.godizdgt;=y) then begin
Writeln(book);
Inc(k)
end;
end;
if k=0 then Writeln('Таких книжек не найдено');
f.Close
end.
Тестовое решение
Автор книги: Жюль Верн
Год издания, не ранее: 2005
(Жюль Верн,Владык мира,104,2011)
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
type
tBook=record
author:string[30];
naim:string[50];
pages:integer;
godizd:integer
end;
begin
var f:file of tBook;
Rewrite(f,'books.dat');
Writeln('Ввод данных по книжкам');
var s1,s2:string;
var i1,i2:integer;
var book:tBook;
repeat
s1:=ReadlnString('Создатель либо * для окончания ввода:');
if s1lt;gt;'*' then begin
s2:=ReadlnString('Заглавие книжки:');
i1:=ReadlnInteger('Количество страниц:');
i2:=ReadlnInteger('Год издания:');
(book.author,book.naim,book.pages,book.godizd):=(s1,s2,i1,i2);
Write(f,book)
end
until s1='*';
Writeln('*** Ввод завершен ***');
f.Close
end.
Тестовое решение
Ввод данных по книжкам
Автор либо * для окончания ввода: Жюль Верн
Заглавие книжки: 80 тыщ км под водой
Количество страничек: 573
Год издания: 1951
Создатель или * для окончания ввода: Сергей Лукьяненко
Заглавие книжки: Дозор
Количество страниц: 934
Год издания: 2004
Автор или * для окончания ввода: Жюль Верн
Заглавие книжки: Властелин мира
Количество страничек: 104
Год издания: 2011
Автор или * для окончания ввода: *
*** Ввод завершен ***
2. Программа для подборки
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
type
tBook=record
author:string[30];
naim:string[50];
pages:integer;
godizd:integer
end;
begin
var f:file of tBook;
Reset(f,'books.dat');
var s:=ReadlnString('Создатель книжки:');
var y:=Readinteger('Год издания, не ранее:');
var k:=0;
var book:tBook;
while not f.Eof do begin
Read(f,book);
if (book.author=s) and (book.godizdgt;=y) then begin
Writeln(book);
Inc(k)
end;
end;
if k=0 then Writeln('Таких книжек не найдено');
f.Close
end.
Тестовое решение
Автор книги: Жюль Верн
Год издания, не ранее: 2005
(Жюль Верн,Владык мира,104,2011)
Gena Lashnin
Можете пожалуйста все по порядку расставить , и чтоб все было в 1 программе паскале abs , паскаль абс.net не принимают , спасибо
Kinjajkina Natasha
У Вас в задании написано "Безотлагательно 44 Балла ПАСКАЛЬ Abs.NET..."
Павел Коптяев
Все так и изготовлено, никаких правок.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Сочинение на тему "Русский язык не сможет умереть!"
Математика.
Облако тегов