Const eps=1e-8; var a,b,c:real; s1,s2,s3:integer; begin read(a); read(b); read(c); if a>0 then s1:=s1+1; if b>0 then s1:=s1+1; if c>0 then s1:=s1+1; if a<0 then s2:=s2+1; if b<0 then s2:=s2+1; if c<0 then s2:=s2+1; if frac(a)<eps then s3:=s3+1; if frac(b)<eps then s3:=s3+1; if frac(c)<eps then s3:=s3+1; writeln('Число положительных чисел = ',s1); writeln('Число отрицательных чисел = ',s2); writeln('Число целых чисел = ',s3); end.
/* Для подсчета целых чисел использовалась функция frac - она возвращает дробную часть числа. При сравнении дробных чисел полезно отсекать разряды после скажем 8 знака после запятой, что и было сделано путем введения константы eps . */
2) Все записи в базе данных имеют: Если здесь вопрос понимать "Все записи в таблице реляционной БД имеют", то ответ, скорее всего, d) Одинаковое количество полей
3) Укажите правильную последовательность действий при работе с базами данных (составить последовательность из букв): c) Продумать структуру базы данных d) Дать имя каждому полю в базе данных a) Занести данные в таблицу b) Осуществить сортировку записей в базе данных
4) Поиск информации– это: a) выбор информации по определённым правилам
5) Примером базы данных может служить: Скорее всего b) Телефонный справочник, хотя и c) Энциклопедия тоже может быть
6) В каком из перечисленных типов полей, данные могут выглядеть таким образом: Да или Нет ? b) В логическом поле
7) В какой из перечисленных пар данные относятся к одному типу? a) 12.04.98 и 01/02/99; - тип дата b) ДА и TRUE (ИСТИНА); - логический тип
8) База Данных содержит информацию о каждой собаке из клуба собаководства: кличка, порода, дата рождения, пол, количестве медалей. Какого типа должны быть поля? d) текстовое, текстовое, дата, текстовое, числовое;
Возможно, такие ответы. Хотя многие вопросы некорректны.
var a,b,c:real;
s1,s2,s3:integer;
begin
read(a);
read(b);
read(c);
if a>0 then s1:=s1+1;
if b>0 then s1:=s1+1;
if c>0 then s1:=s1+1;
if a<0 then s2:=s2+1;
if b<0 then s2:=s2+1;
if c<0 then s2:=s2+1;
if frac(a)<eps then s3:=s3+1;
if frac(b)<eps then s3:=s3+1;
if frac(c)<eps then s3:=s3+1;
writeln('Число положительных чисел = ',s1);
writeln('Число отрицательных чисел = ',s2);
writeln('Число целых чисел = ',s3);
end.
/* Для подсчета целых чисел использовалась функция frac - она возвращает дробную часть числа. При сравнении дробных чисел полезно отсекать разряды после скажем 8 знака после запятой, что и было сделано путем введения константы eps . */