Кахут по технике безопасности

Добавлены учебники для 5 и 6 классов в Библиотечку.

Очень краткая теория на боковой ссылке.

С клавиатуры вводится два числа. Если первое больше второго, то вычислить разность, в противном случае вычислить сумму.

Вывести на печать таблицу умножения на 3. 

Program z1;

 Uses  crt;

 Var  a,b,c: integer;

 Begin

   ClrScr;

   WriteLn (' Программа таблица умножения ');

   b:=3;

   For a:=1 to 10 do

   Writeln ( b,' x ',a,' = ',b*a);

 end.

Демонстрация работы цикла с параметром.

Program z1;
 Uses Crt;
 Var i: integer;
 Begin
   ClrScr;
   For i:=1 to 100 do
    begin
    Write (' ', i);
    delay(50);
    end;
 end.

Напишите еще два варианта программы.

// Простой домик

Program z1;
 Uses graphabc, crt;
 Begin
   rectangle (100,100,200,200);
   rectangle (120,120,180,180);
   line (100,100,150,50);
   line (150,50,200,100);
 end.

program d1;

uses graphabc, crt;

var x,y: integer;

begin

x:=100;

y:=100;

rectangle (x,y,x+150,y+150);

end.

// Забор

Program z1;

Uses graphabc, Crt;

Var a,b,c,d: integer;

Begin

a:=1;

b:=100;

for c:=1 to 60 do

begin

rectangle (a,b,a+10,b+100);

delay (10);

FloodFill(a+2,b+2, clNavy);

a:=a+10;

delay (100);

end;

end.

Program z1;
 Uses Crt,graphABC;
 Var  c,x,dx,y,dy: integer;
 Begin
 x:=10; dx:=10;
 y:=10; dy:=10;
 repeat
   rectangle (x,y,x+10,y+10);
   x:=x+dx;
   y:=y+dy;
   if (x>580) or (x<10) then dx:=-dx;
   if (y>380) or (y<10) then dy:=-dy;
   delay(20);
 until keypressed;
 end.

Попробуйте сотворить 2 и более квадратика.

Program z1;
uses crt;
var i,n,c:integer;
    m,s:string;
begin
  s:='Пишущая машинка в действии ';
 n:=length(s);
 for i:=1 to n do begin
   m:=copy(s,i,1);
   write (m);
   delay (100);
  end;
end.

Попробуйте сделать еще один вариант с подобным эффектом.

Создать одномерный массив из 100 случайных элементов. Значения элементов в интервале от 1 до 9 включительно.

Program z1;

 Uses Crt;

 Var i,m,j: integer;

       a: array[1..100] of integer;

Begin

   ClrScr;

   randomize;

      for i:= 1 to 100 do

     begin

      textcolor (4);

      a[i]:=random(9)+1;

      write (' ', a[i]);

      delay(100);

     end;    

end.

Найти сумму элементов одномерного массива

Program z1;
 Uses Crt;
 Var i,m,j: integer;
       a: array[1..100] of integer;
Begin
   ClrScr;
   m:=0;
   randomize;
      for i:= 1 to 100 do
     begin
      textcolor (4);
      a[i]:=random(9)+1;
      write (' ', a[i]);
      m:=m+a[i];
      delay(100);
     end;
     WriteLn;
     WriteLN ('Сумма элементов = ',m);
end.

Создать двумерный массив 20х20, состоящий из случайных чисел

Program z1;

 Uses Crt;

 Var i,m,j: integer;

       a: array[1..20,1..20] of integer;

Begin

   ClrScr;

    for j:= 1 to 20 do

     begin

    for i:= 1 to 20 do

     begin

      textcolor (6);

      a[j,i]:=1;

      write (' ', a[j,i]);

      delay(5);

     end;

     WriteLn;

     end;

end.

Создать одномерный массив из 100 случайных чисел и отсортировать его по возрастанию.

Program z1;

 Uses Crt;

 Var i,m,j: integer;

       a: array[1..100] of integer;

Begin

   ClrScr;

   randomize;

      for i:= 1 to 100 do

     begin

      textcolor (4);

      a[i]:=random(100)+1;

      write (' ', a[i]);

      delay(100);

     end;

  writeln;

   writeln;

  for j:=1 to 100 do

  for i:= 1 to 99 do

     begin

      textcolor (4);

      if a[i]>a[i+1] then

         begin   m:=a[i]; a[i]:=a[i+1];a[i+1]:=m; end;

     end;

     for i:= 1 to 100 do

     begin

      textcolor (4);

      write (' ', a[i]);

      delay(100);

     end;

end.

Ркабота с файлами

Program File_text;

uses crt;

var

f1 : text;

st : string;

n: byte;

begin

assign   (f1, 'file1.txt'); {связать с файлом file1.txt  файловую переменную f1  }

rewrite  (f1); { создать новый файл  с именем file1.txt }

writeln ( f1, 'Очень полезно изучать pascal'); { записать предложения в файл}

close (f1);    { закрыть файл для записи }

reset (f1); { открыть файл для чтения }

while not eof (f1) do { пока не конец файла  f1}

begin

readln (f1, st);    {читаем строку из файла f1 }

writeln(st);         { выводим на экран }

end;

close (f1); { закрыть файл  для чтения}

end .

Ввести информацию по 3-м студентам ( порядковый номер, Ф.И.О. и три оценки) определить количество отличников и средний бал каждого студента.

Program zap_1;

Type student = record

n : integer ;

fio : string[40] ;

bal : array [1..3] of integer

end;

Var spisok : student ;

i, j, kol, s : integer; sr : real;

Begin

kol:=0;

With spisok do

For i:=1 to 3 do

Begin

n:=i;

Write (' введите фамилию ', i ,' ');

Readln (fio);

s:=0;

For j:= 1 to 3 do

 Begin

 write ( 'введите оценку: ' );

 readln ( bal [j] );

 s := s+ bal [j];

end;

if s=15 then kol:=kol+1;

sr := s/3; writeln ( fio, ', средний бал = ', sr:4:1);

end;

writeln ( ' количество отличников ', kol );

readln;

end.