Функции для строковых переменных

Сегодня мы продолжили работу со строками. Программа, иллюстрирующая работу некоторых функций со строковыми переменными.

program Line_2;
  var
  S: String;
  Rez, P: integer;
  S2: string;
begin
  writeln ('Введите строку ');
  readln (S);
  Rez:=length(S);
  writeln ('Длина строки: ',Rez);
  Delete (S,5,5);
  writeln (S);
  S2:='А';
  P:=Pos(S2, S);
  writeln (P);
  Insert (S2,S,3);
  writeln (S);
end.

Домашнее задание (принимается как всегда в любом удобном для вас виде).

№3. Дана строка. Подсчитать в ней количество вхождений букв r, t, k.

№6. Дана строка символов, среди которых есть двоеточие (:). Определить, сколько символов ему предшествует.

Строковые переменные

Дорогие друзья! Привожу пример нашей первой программы на работу со строками.

program Line;
 var
  Name1: string[20];
  Name2: string[20];
  Title: string[40];
  Rez: string [70];
begin
 Name1:='Глебова';
 Name2:=' Катя';
 Title:=Name1+Name2;
 writeln (Title);
 Name1:='Кондратьев';
 Name2:='Иванов';
 
???

end.

Домашнее задание. Дописать программу,чтобы на экране было сообщение о том, какая фамилия идёт раньше по алфавиту.

Электрический ток в различных средах

Задачи по двумерным массивам

Продолжаем работу с двумерными массивами. На уроке мы решили ряд полезных задач. Например.

Задача 6. Заполнить случайным образом двумерный массив размерности n x n. Подсчитать количество чётных элементов в каждой строке. Результат вывести на экран.

Решение:

program DvMas;
 var A: array[1..100,1..100] of integer;
   i, j, n, k: integer;
begin
 write ('n = '); readln (n);
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     A[i,j]:=random(100);
     write (A[i,j]:4);
    end;
    writeln;
  end;
  for i:=1 to n do
  begin
   k:=0;
   for j:=1 to n do
    if (A[i,j] mod 2=0) and (A[i,j]<>0) then k:=k+1;
   writeln ('Строка ', i ,', чётных эл-ов - ', k)
   end;
end.

Домашняя работа.
Задача 7. Заполнить случайным образом двумерный массив размерности n x n. Обнулить чётные элементы (делятся на два). Вывести на экран исходный и итоговый массив.

Посмотрите на предыдущую задачу - это поможет вам в решении задачи 7.

Двумерные массивы

Двумерный массив - это матрица из компонентов одного типа, расположение каждого элемента в которой определяется номером строки и номером столбца.

Сегодня на уроке мы составили программу, которая заполняет двумерный массив 5x10 случайными числами и выводит его на экран.

program DvMas;
 var A: array[1..5,1..10] of integer;
 {переменные для хранения индексов строк и столбцов}
  i, j: integer;
begin {заполнение массива}
 for i:=1 to 5 do {i пробегает по строчкам}
   {вложенный цикл}
   for j:=1 to 10 do  {j пробегает по столбцам}
     A[i,j]:=random(100); {запись случайного числа в i-ую строку, j-ый столбец}
for i:=1 to 5 do {цикл для вывода}
   begin
     for j:=1 to 10 do write (A[i,j]:4); {вывод строки}
      writeln; {переход на новую строку} 
   end;
end.

Задание на дом:

• Изменить программу так, чтобы задание и вывод элементов массива происходили с использованием одного вложенного цикла. Подсказка: объединяя циклы, не забудьте об операторных скобках begin end.
• Дописать программу так, чтобы в двумерном массиве производился поиск максимального элемента и осуществлялся его вывод на экран. Подсказка: нужно вспомнить, как мы искали максимальный элемент в одномерном массиве.

Результаты работы принимаю в любом виде, но лучше сделать скриншот экрана с рабочей программой или прислать сам файл. Успешной работы!

Д.з. по информатике для уезжающих-приезжающих

Решите задачу двумя способами: с использованием цикла с параметром и одного из двух других типов цикла. Дано натуральное число N. Вычислить произведение первых N сомножителей: P=2/3*4/5*6/7*...*(2N)/(2N+1)

Опирайтесь на пример, решённый на уроке.

Решение задачи на нахождение результата:
 S=1-1/2+1/4-1/8+...+(-1)^N*1/2^N

 Используется цикл с постусловием:

 program summ;
 var S: real; N, i: integer; a: real;
 begin write ('N - ? ');
 readln (N);
 a:=1; S:=0; i:=0;
 repeat i:=i+1; S:=S+a; a:=a/(-2);
 until i=N;
 write ('S = ', S)
 end.

 Используется цикл с параметром:

 program summ;
 var S: real; N, i: integer; a: real;
 begin write ('N - ? ');
 readln (N);
 a:=1; S:=0;
 for i:=1 to N do
 begin S:=S+a; a:=a/(-2) end;
 write ('S = ', S)
 end.

Вопросы по МКТ (для "отличников")

Основы молекулярно-кинетической теории. 10 класс

1. Зарядовое число. Обозначение, как найти. Примеры.

2. Массовое число. Обозначение, как найти. Примеры.

3. Как найти число нейтронов в ядре

4. Что такое ионы? Примеры.

5. Что такое изотопы? Примеры.

6. Дефект массы.

7. Атомная единица массы.

8. Относительная атомная масса.

9. Моль.

10. Молярная масса. Примеры нахождения.

11. Постоянная Авогадро.

12. Фазовый переход.

13. Связь между температурными шкалами Цельсия и Кельвина (абсолютной температурной шкалой).

14. Связь между кинетической энергией и температурой.

15. Постоянная Больцмана.

16. Универсальная газовая постоянная.

17. Основное уравнение МКТ.