РАБОТА С БАЗАМИ ДАННЫХ. НУЖНО РАЗДЕЛИТЬ МИНИМУМ КАК НА 3 ТАБЛИЦЫ База данных должна содержать справочник персоналий участников конференции (фамилия, имя, отчество, ученая степень, ученое звание, научное направление, место работы, кафедра (отдел), должность, страна, город, почтовый индекс, адрес, рабочий телефон, домашний телефон, e-mail), и информацию, связанную с участием в конференции (докладчик или участник, дата рассылки 1-го приглашения, дата поступления заявки, тема доклада, отметка о поступлении тезисов, дата рассылки 2-го приглашения, дата поступления орг.взноса, размер поступившего орг.взноса, дата приезда, дата отъезда, потребность в гостинице
Ответы
Program Task;
Const N = 499; M = 1;
Var A: Array [1..N, 1..N] of Boolean;
i, j, x, y, t: Integer;
b: Boolean;
Begin
Randomize;
While i < M Do
Begin
x := Random(N) + 1;
y := Random(N) + 1;
If A[x, y] = False Then
Begin
A[x, y] := True;
i := i + 1;
End;
End;
While b = False Do
Begin
b := True;
For i := 1 To N Do
For j := 1 To N Do
Begin
If A[i, j] = True Then
Begin
If (i + 1) <= N Then
A[i + 1, j] := True;
If (i - 1) > 0 Then
A[i - 1, j] := True;
If(j + 1) <= N Then
A[i, j + 1] := True;
If (j -1) > 0 Then
A[i, j - 1] := True;
End;
End;
For i := 1 To N Do
For j := 1 To N Do
If A[i, j] = False Then
b := False;
t := t + 1;
End;
WriteLn(t);
ReadLn;
End.
Const N = 499; M = 1;
Var A: Array [1..N, 1..N] of Boolean;
i, j, x, y, t: Integer;
b: Boolean;
Begin
Randomize;
While i < M Do
Begin
x := Random(N) + 1;
y := Random(N) + 1;
If A[x, y] = False Then
Begin
A[x, y] := True;
i := i + 1;
End;
End;
While b = False Do
Begin
b := True;
For i := 1 To N Do
For j := 1 To N Do
Begin
If A[i, j] = True Then
Begin
If (i + 1) <= N Then
A[i + 1, j] := True;
If (i - 1) > 0 Then
A[i - 1, j] := True;
If(j + 1) <= N Then
A[i, j + 1] := True;
If (j -1) > 0 Then
A[i, j - 1] := True;
End;
End;
For i := 1 To N Do
For j := 1 To N Do
If A[i, j] = False Then
b := False;
t := t + 1;
End;
WriteLn(t);
ReadLn;
End.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Запишите оператор для вывода значений целых переменных a=5 и b=3 в следующем формате: a=5; b=3;
Автор: MikhailovnaAnastasiya
Составьте программу для решения неравенства: ax+b> 0
Автор: Шиморянов Мария1866
Найти количество чисел, кратных 3 из промежутка от 10 до 50
Автор: eutenkova805
Хотя бы одно из чисел x y z положительно написать на c++
Автор: zsa100
var
n,d1,d2,d3,d4:integer;
begin
Write('Введите четырехзначное натуральное число: ');
Readln(n);
d1:=n div 1000; d4:=n mod 10;
d3:=(n mod 100) div 10;
d2:=(n mod 1000) div 100;
n:=1000*d1+100*d3+10*d2+d4;
Writeln('Результат: ',n)
end.
Тестовое решение:
Введите четырехзначное натуральное число: 4567
Результат: 4657
Решение с использованием символьного представления числа:
var
s:string;
begin
Write('Введите четырехзначное натуральное число: ');
Readln(s);
Writeln('Результат: ',s[1]+s[3]+s[2]+s[4])
end.