Результатом выполнения фрагмента алгоритма … a:=7; b:=8; k:=5+a; if a>b then k:=k*3 else k:=k-3; writeln (k); … будет следующее значение k: 7; 8; 9; 10; Верного ответа нет
Идея следующая: 1.вводим год, месяц, день 2. проверяем, что год >=1900 и меньше 9999 при месяце меньшем 12 и год >=1900 и меньше 9998 при месяце равном 12. Если введенный год не удовлетворяет условию, то предлагаем ввести год заново до тех пор, пока условие не будет выполнено. Если введенный год удовлетворяет условию, то продолжаем проверку. 3. проверяем, что месяц от 1 до 12. При этом в переменную srav запомним максимальное число дней в введенном месяце с учётом високосного года. Если введенный месяц не удовлетворяет заданному условию, то предлагаем ввести месяц заново до тех пор, пока условие не будет выполнено. Если условие выполнено идём дальше. 4. проверяем, что день не превышает максимального числа дней (srav) в введенном месяце.Если день не удовлетворяет заданному условию, то предлагаем ввести день заново до тех пор, пока введенное значение не будет удовлетворять условию. Если условие выполнено, то продолжаем. 5. Выведем на экран введенную дату. 6. Вычисляем и выводим на экран следующий день за введенным, не забывая, что: - если введен день равный последнему дню месяца, то следующий день - это 1 число следующего месяца. - если введен последний день последнего месяца, то следующий день -это 1 число 1 месяца следующего года.
{1 задача} var Form1: TForm1; s1,s2:string; implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject); begin s1:='stroka1'; s2:='stroka2'; Label1.Caption:=s1; Label2.Caption:=s2;
end;
procedure TForm1.Button1Click(Sender: TObject); var s:string; begin s:=s2; s2:=s1; s1:=s; Label1.Caption:=s1; Label2.Caption:=s2 end;
end.
{2 задача} var Form1: TForm1; n:integer; a: array[1..10] of integer; implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject); var i:integer; begin randomize; Label1.Caption:=''; Label2.Caption:=''; n:=10; for i:=1 to N do a[i]:=random(100); end;
procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin for i:=1 to N do label1.Caption:= label1.Caption + ' '+inttostr(a[i]); end;
procedure TForm1.Button2Click(Sender: TObject); var i:integer; begin for i:=1 to N do if a[i]<strtoint(edit1.Text) then label2.Caption:= label2.Caption + ' '+inttostr(a[i]);
1.вводим год, месяц, день
2. проверяем, что год >=1900 и меньше 9999 при месяце меньшем 12 и год >=1900 и меньше 9998 при месяце равном 12. Если введенный год не удовлетворяет условию, то предлагаем ввести год заново до тех пор, пока условие не будет выполнено. Если введенный год удовлетворяет условию, то продолжаем проверку.
3. проверяем, что месяц от 1 до 12. При этом в переменную srav запомним максимальное число дней в введенном месяце с учётом високосного года. Если введенный месяц не удовлетворяет заданному условию, то предлагаем ввести месяц заново до тех пор, пока условие не будет выполнено. Если условие выполнено идём дальше.
4. проверяем, что день не превышает максимального числа дней (srav) в введенном месяце.Если день не удовлетворяет заданному условию, то предлагаем ввести день заново до тех пор, пока введенное значение не будет удовлетворять условию. Если условие выполнено, то продолжаем.
5. Выведем на экран введенную дату.
6. Вычисляем и выводим на экран следующий день за введенным, не забывая, что:
- если введен день равный последнему дню месяца, то следующий день - это 1 число следующего месяца.
- если введен последний день последнего месяца, то следующий день -это 1 число 1 месяца следующего года.
var
Form1: TForm1;
s1,s2:string;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
s1:='stroka1';
s2:='stroka2';
Label1.Caption:=s1;
Label2.Caption:=s2;
end;
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
s:=s2;
s2:=s1;
s1:=s;
Label1.Caption:=s1;
Label2.Caption:=s2
end;
end.
{2 задача}
var
Form1: TForm1;
n:integer;
a: array[1..10] of integer;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
randomize;
Label1.Caption:='';
Label2.Caption:='';
n:=10;
for i:=1 to N do
a[i]:=random(100);
end;
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=1 to N do
label1.Caption:= label1.Caption + ' '+inttostr(a[i]);
end;
procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
for i:=1 to N do
if a[i]<strtoint(edit1.Text) then
label2.Caption:= label2.Caption + ' '+inttostr(a[i]);
end;
end.