пятница, 17 ноября 2017 г.

Домашняя работа на 24 ноября

Подготовится к самостоятельной работе
№1.  Переменная n:=length(s) имеет тип:

№2.  Дана строка s1: ‘Компьютер’. Слово «рот» получиться при составлении из букв
slovo:=s1[  ]+
 №3 Описание строковых и символьных величин
 №4 Длина величины
№5 Сложить 1и 2 символы
 №6 Сравнить длины строки а и  строки b и выдать сообщение какая больше
 №7. Дана программа:
Var s1, s2, s3:string;
Begin
        s1:=’МИРУ’;
        s2:=’МИР’;
        s3:= s1+s2;
        writeln (s3, ‘,‘,length(s3));
EndРезультат выполнения программы:

№8. Дана программа. Что будет результатом выполнения
Program stroka;
Var s1, s2, s3:string;
Begin
        s1:=’Солнце’;
        s2:=’все’;
        s3:= s1+s2+‘!‘;
        writeln (s3, ‘,‘,length(s3)) , ‘!‘;
End.
№9Допишите недостающие команды, которые заменяет все буквы «а» на «о»
for i:=1 to _______________ do
if str[i]='а ________________;

№10Заменить все нечетные буквы буквой ’ я ’ 
for i:=1 to _______________ do  if      mod


четверг, 9 ноября 2017 г.

Урок 10 ноября

 1С клавиатуры вводится строка и буква,подсчитать, сколько раз эта буква встречается в строке.
write(' введите строку: '); read(str); { ввод строки }
write(' введите букву: '); read(b); { ввод буквы }
k:=0; { обнуление счетчика }
for i:=1 to length(str) do

if str[i]=b then k:=k+1; { подсчет совпадений }write(' Ответ: ',k);



2Составить программу, которая подсчитывает количество слов во введенной с клавиатуры строке.
 writeln('Введите строку: '); read(str); { ввод строки }
str:= str + ' '; { добавл пробела }
n:=0; { обнуление счетч слов }
for i:=1 to length(str) do

if str[i]=' ' then n:=n+1; {подсч пробелы}writeln('В строке ',n+1, ' слов');

Самостоятельная работа
1.        Описание строковых и символьных величин

2.        Длина величины

3.        Сложить 1 и предпоследний символы одной строки

4.        Сложить 2 и последний символы разных строк

5.        Сравнить длины 2ух строк

6.        проверить совпадает ли введенный символ с символом ‘O ‘ и вывести символ

7.        проверить совпадает ли сим. с символ ‘Л ‘и вывести его порядковый номер

8.        написать цикл, заменяющий все буквы «л» на  « м»

9.        Подсчитать сколько пробелов символе

пятница, 27 октября 2017 г.

Урок 27 октября


№1 Задача. Дана строка составить слово из первой и предпоследней буквы строки
program upr4_3_2v;
var    s, rez : string;  k: integer;
begin     write ('Введите слово:  '); readln (s);
     k:= length(s);  {определение длины строки}
     rez := s [1]+ s [k-1] ;   writeln (' новое слово: ' ,rez );  end.

Урок №5 (        )Задачи со строковыми величинами
2Задача. С клавиатуры вводят слово. Составить программу, которая проверяет, не совпадают ли первая и последняя буквы слова;
 program upr4_3_2b;
var    a: string;  k: integer;
begin     write ('Введите слово:  '); readln (a);
     k:= length(a);  {определение длины строки}
     if a[1]=a[k]   {сравнение первой и последней букв}
        then writeln ('первая и последняя буквы слова совпадают')
        else writeln ('первая и последняя буквы слова не совпадают'); end.

3Задача. С клавиатуры вводят слово. Составить программу, которая:выводит на экран первый, второй и предпоследний символы;
program upr4_3_2v;
var    a: string;  k: integer;
begin  write ('Введите слово:  '); readln (a);
     k:= length(a);  {определение длины строки}
     writeln ('первая буква слова: ', ________); 
     writeln ('вторая буква слова: ', __________); 
     writeln ('предпоследняя буква слова: ', ____________);  end.

4 Задача. С клавиатуры вводят слово. Составить программу, которая определяет, четно или нечетно количество символов в слове.
program upr4_3_2g;
var    a: string;  k: integer;
begin
     write ('Введите слово:  '); readln (a);
_____________  {определение длины строки}
     if k mod 2=0   {определение чётности количества букв в строке}
        then writeln ('количество символов строки чётно')

        else writeln ('количество символов строки нечётно');end

пятница, 20 октября 2017 г.

Домашняя работа в тетради !!! на 27 октября

1.        Для работы со Строками в языке Pascal предусмотрен специальный тип данных, который называется       _________   и обозначается _________ 
2.        Максимальное число, которое может находиться в квадратных скобках, равно __
3.        Основные действия, которые можно выполнять над строковыми переменными:   ________
4.        Для определения длины строки используют функцию    ________
5.        Сравнение строк выполняется сравнением ________
6.        Из двух строк считается «большей» та, в которой код первого не совпадающего символа больше,  ________
7.        Утверждение ‘ДОМ’ > ‘ДОРОГА’ не верно (код ‘М’   ________
8.        Утверждение ‘человек’ > ‘ЧЕЛОВЕК’ верно    ________
9.        (Утверждение ‘123’ < ‘40’ верно (код ‘1’     ________
10.    Найдите слово русского языка, которое больше, чем слово “пар”, и меньше, чем слово “парус”.      ________

1)        Паровоз. 2) Вирус. 3) Парк.

воскресенье, 15 октября 2017 г.

д/3 на 20 октября. Разобрать решение задач и тем, кто делает синтаксические ошибки ВЫУЧИТЬ

Упражнения
1.  С клавиатуры вводят символ. Составьте программу, которая выводит два следующих символа.

program upr4_2_1;
var    s: char;
begin
     write ('Введите символ  '); 
     readln (s);{ввод символа}
     writeln ('Следующий за ',s, ' символ ',succ(s)); 
{вывод следующего символа}
writeln ('Следующий за ',succ(s), ' символ ',succ(succ(s)));  {вывод следующего символа}
end.

2.  С клавиатуры вводят код символа. Составьте программу, которая выводит предыдущий символ.
program upr4_2_2;
var    m: integer;
begin
     write ('Введите код символа  '); readln (m);{ввод кода символа}
     writeln ('Предыдущий символ ',pred(chr(m)));
{вывод предыдущего символа}
end.
3.  Составьте программу, которая выводит символы с кодами от 60 до 70.
Технология составления программы:
program upr4_2_3;
var    k: integer;
begin
     for k:=60 to 70 do
     write (k,'  ', chr(k),'  '); {вывод символов по их кодам}
end.


воскресенье, 8 октября 2017 г.

Домашняя работа на (13окт). Подготовка к тесту


1.        Какая функция позволяет определить код по символу?
2.        Какая функция позволяют определить символ по коду?
3.        Для каждого ли символа имеется код?
4.        Какая функция переводит символ в число?
5.        Какая функция переводит число в символ?
6.        Верно ли что символы “А” и “а” имеют одинаковые коды?

8.Что выполняет фрагмент следующей программы?
n:=255        for  i: = 0 to  N  do writeln(i,’    ‘, chr(i));end.