using System;
namespace restless
{
class Visitor
{
private bool ticket;
private int age;
private int height;
public void InputInfo()
{
c:
Console.Write("Наличие билета: (Да/Нет): ");
string t = Console.ReadLine().ToLower();
if (t == "да")
ticket = true;
else if (t == "нет")
ticket = false;
else
{
Console.WriteLine("Вы ввели что-то не то...");
goto c;
}
Console.Write("Ваш возраст: ");
age = Convert.ToInt32(Console.ReadLine());
Console.Write("Ваш рост: ");
height = Convert.ToInt32(Console.ReadLine());
}
public bool CheckPeople()
{
if (ticket == true && age > 15 && height > 120)
return true;
return false;
}
}
class Program
{
static void Main(string[] args)
{
Visitor ch1 = new Visitor();
ch1.InputInfo();
if (ch1.CheckPeople())
Console.WriteLine("Вам можно пройти!");
else
Console.WriteLine("Увы, но пройти Вам нельзя!");
}
}
}
Запрос – средство отбора (поиска) данных в базе из одной или нескольких таблиц по определенному пользователем условию.
Все запросы делятся на две группы:
* запросы-выборки,
* запросы-действия.
Запросы-выборки осуществляют выборку данных из таблиц в соответствии с заданными условиями.
К этой группе запросов относятся следующие:
* Запрос к связанным таблицам - позволяет производить выборку данных из связанных таблиц.
* Перекрестный запрос - отображает итоговые данные с группировкой их по горизонтали и вертикали, выводя результаты их обработки в виде таблиц.
* Запрос с параметром - позволяет пользователю задать критерий отбора, введя нужный параметр при вызове запроса.
* Запрос с вычисляемым полем - позволяет рассчитать данные на основе других полей из той же строки запроса.
* Запрос с критерием поиска - позволяет производить отбор записей в соответствии с заданным критерием поиска.
* Запрос с итогами - производит математические вычисления и выдает результат.
Запросы-действия позволяют модифицировать данные в таблицах: удалять, обновлять, добавлять записи.
К этой группе запросов относятся следующие:
* Запросы на создание таблицы создают таблицы на основании данных, содержащихся в результирующем множестве запроса.
* Запросы на добавление записей позволяют добавлять в таблицу записи, создаваемые запросом.
* Запросы на обновление изменяют значения существующих полей в соответствии с заданным критерием.
* Запросы на удаление удаляют записи из одной или нескольких таблиц одновременно.
1. Массив из рандомных цифр
var a:array [1..10] of integer;
k,i: integer;
begin
randomize;
for i:=1 to 10 do
a[i]:=random(10);
for i:=1 to 10 do
if a[i]=1 then
k+=1;
write(k);
end.
2. Массив задаётся с клавиатуры
var a:array [1..10] of integer;
k,i: integer;
begin
for i:=1 to 10 do
Readln(a[i]);
for i:=1 to 10 do
if a[i]=1 then
k+=1;
write(k);
end.
Объяснение: