четверг, 11 октября 2018 г.

Задачи к практической работе

Подсчитать сколько букв а в слове?
Program aaa;
var s: string; k, i: integer;
begin
readln(s);
for i:=1 to length(s) do
if s[i]='а' then k:= k+1;
write (k);
end.

Подсчитать сколько букв  в слове и четное или нечетное количество?
Program aaa;
var s, c: string; i: integer;
begin
readln(s,c);
write(length(s)+length(c),' символов');
if (length(s)+length(c)) mod 2 = 0 then writeln(', чётное количество.')
else writeln(', нечётное количество.');
end.
Заменить буквы "а" на буквы" б" Подсчитать сколько букв заменили
Program aaa;
var s: string; k, i: integer;
begin
readln(s);
for i:=1 to length(s) do if s[i]='а' then
     begin
     s[i]:='б' ;  k:= k+1;
     end;
write ('заменили букв б ',k)
end.
На 9-10 будут похожие задачи


пятница, 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


пятница, 10 ноября 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