1. Перевести восьмеричное число 24568 в десятичную СС. 2. Выполнить действия сложения и вычитания в различных СС:
а) 1000102+1000112;
б) 4368+3778;
в) 1110102 – 10012;
г) 13468 – 12148;
3. Перемножить в двоичной СС числа 210 и 510.
4. Составить таблицу истинности и логическую схему логической функции: .
5. Задание. Используя смешанные ссылки построить таблицу значений функции двух переменных f(x,y) в виде:
х1 … хm
y1 f(x1,y1) … f(xm,y1)
… … … …
yn f(x1,yn) … f(xm,yn)
Границы и шаг изменения по Х и по Y совпадают. На этом же листе рабочей книги поместить результаты расчетов по формулам:
- определить максимальное, минимальное и среднее значения функции в диапазоне построения;
- подсчитать количество значений функции, больших числа 2.
Оформить рабочий лист, выведенные результаты расчетов снабдить комментариями.
функция:f(x,y) = 2x – хy + x3
граница [1; 2]
шаг: 0,1
6.Спроектировать и создать структуру БД «Футбольный чемпионат», в которой можно будет хранить сведения о командах с игравших между собой, количестве набранных очков, забитых и пропущенных мячах и т.д. Создать форму для заполнения этой БД и внести в неё сведения о 10 командах. Придумать и сформировать к заданной базе данных:
- простой запрос по любым трём полям;
- запрос с параметром по любому полю;
- запрос с условием: команды, набравшие больше 24 очка;
- отчёт по всей таблице.
7.
вариантами разных циклов (например, с заранее заданным
количеством повторений, с предусловиями, с постусловиями, с
меткой и разветвлением).
В массиве из 15 элементов (ввод переменных – на ваше усмотрение)
подсчитать количество положительных (четных) и сумму
отрицательных элементов по информатике, Реализовать программу следующего задания не менее чем двумя
вариантами разных циклов (например, с заранее заданным
количеством повторений, с предусловиями, с постусловиями, с
меткой и разветвлением).
В массиве из 15 элементов (ввод переменных – на ваше усмотрение)
подсчитать количество положительных (четных) и сумму
отрицательных элементов.
Объяснение:
// 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)