// 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 s1<>'*' 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.godizd>=y) then begin Writeln(book); Inc(k) end; end; if k=0 then Writeln('Таких книг не найдено'); f.Close end.
Тестовое решение Автор книги: Жюль Верн Год издания, не ранее: 2005 (Жюль Верн,Властелин мира,104,2011)
В даний час рінок програмного забіспічення переповнений різними програмами і редакторами, дозволяють обробляти і редагувати цифрові фото. Людині, не дуже добре розуміє особливості тих чи інших програмних засобів, деколи дуже складно розібратися в цьому різноманітті софту. Однак, правильний вібір програмних засобів для вирішення конкретної задачі по обробці фотознімків є одним із запорук успіху отримання закінчених фотографій. Говорячи про графічних редакторах, перш за все, необхідно відзначити, що всі цифрові зображення поділяються наіекторні і точкові. У першому випадку зображення побудовані з різних геометричних елементів або примітивів (відрізків, трикутників, прямокутників або кіл). Тому векторна графіка дозволяє легко маніпулювати масштабом зображення без яких би то не було геометричних спотворень, а тому широко використовується для побудови шрифтів, мальованих зображень, в оформительской і видавничій роботі. Наприклад, дуже популярним редактором для обробки векторних зображень є програма Adobe Illustrator, яка часто застосовується у видавничій справі для підготовки до друку мальованих ілюстрацій для газет, журналів та книг. Але я не обмежуся оглядом всього однієї програми і опишу кілька їх типів. Графічний редактор - програма (або пакет програм), що дозволяє створювати і редагувати двовимірні зображення за до комп'ютера
#include <stdio.h>#include <stdlib.h>#include <locale>
void main(){ setlocale(LC_ALL, "RUSSIAN"); int N; printf("\n Введите N (размер массива) >> "); scanf_s("%d", &N); int *array1 = new int[N]; for (int i = 0; i < N; i++) { array1[i] = rand() % 100 + 1; printf("%d ", array1[i]); } system("pause");}