kopilkaurokov.ru - сайт для учителей

Создайте Ваш сайт учителя Курсы ПК и ППК Видеоуроки Олимпиады Вебинары для учителей

Строковый тип данных в Паскале

Нажмите, чтобы узнать подробности

Материал для проверки и закрепления по теме "Строковый тип данных в Паскале". Задания составлены в 4 вариантах и предусматривают умение работать с типом string и знание операций о строковыми данными.

Вы уже знаете о суперспособностях современного учителя?
Тратить минимум сил на подготовку и проведение уроков.
Быстро и объективно проверять знания учащихся.
Сделать изучение нового материала максимально понятным.
Избавить себя от подбора заданий и их проверки после уроков.
Наладить дисциплину на своих уроках.
Получить возможность работать творчески.

Просмотр содержимого документа
«Строковый тип данных в Паскале»

Проверочная работа

Вариант 1

1. Что получится в результате выполнения программы?

a. program s1;

var A : string;

i : integer;

begin

A:='Космос';

For i:=1 to 6 do

writeln(A);

end.


б. program v2;

var A, B: string;

begin

A:='Космос';

В=' Вселенная';

writeln(A+B);

end.


в. program k3;

var A: string;

begin

A:='Победа';

А:=copy(A, 1, 2) + +copy(A, 5,1) +'виг'

writeln(A);

end.


с. program sl3;

var A, B: string;

begin

A:='Экзамен'; B:=соpy(A, 3,5) +'a'; writeln(B );

end.


д. program rt5;

var A: string;

i, N : integer;

begin

A:='Оценка';

N:=5;

For i:=1 to N do

writeln(A, i);

end.

2. Найдите ошибку в программе, если программа должна определить ….

длину слова

а) program fhgh1;

var A : string; n : integer;

begin

writeln('Введите слово');

n:=length(A);

writeln('Слово состоит из n букв.');

end.


количество букв «о» в слове

б) program ghjgj;

var A : string; n, i : integer;

begin

writeln('Введите слово');

readln(A);

for i:= 1 downto length(A) do

if copy(A, i, 1)= 'o' then n:=n+1;

write(n);

end.


количество букв «л» в слове

в) program ssss;

var A , i : integer;

begin

writeln('Введите слово');

readln(A);

for i:= 1 to n do;

if copy(A, 1, 1)= 'к' else

k:=k+1;

end.


Проверочная работа

Вариант 2

1. Что получится в результате выполнения программы?

a. program s1;

var B : string;

i : integer;

begin

B:='Улан-Батор';

delete (B, 1, 5);

writeln(B);

end.


б. program v2;

var A, B: string;

begin

A:='Вселенная';

В:=copy(A, 2,5);

writeln(B);

end.


в. program k3;

var A: string;

begin

A:='Каравай';

Delete(A, 7,1);

writeln(A+'н');

end.


с. program sl3;

var A:string; B:integer;

begin

A:='Караоке';

Insert('-клуб',A, 8);

B:=length(A); writeln(A, ' ',B );

end.


д. program rt5;

var A: string;

d : integer;

begin

A:='Монголия';

For d:=1 to length(A) do

writeln( d);

end.

2. Найдите ошибку в программе, если программа должна определить ….

длину слова

а) program wrt;

var A : string; n : integer;

begin

writeln('Введите слово');

real(A);

n:=length(A);

readln ( ' в слове n букв ');

end.


количество букв «m» в слове

б) program asd;

var A : string; n, i : real;

begin

writeln('Введите слово')

readln(A);

for i:= 1 do 7 do

if copy(1, i, A)= 'o' then n:=n+1;

write(n);

end.


количество букв «с» в слове

в) program klik;

var A , k, i : string;

begin

writeln('Введите слово');

readln(k);

for i:= 1 to n do;

if copy(A, i, 1)= 'с' then k:=k+i;

write (‘k’);

end.




Проверочная работа

Вариант 3

1. Что получится в результате выполнения программы?

a. program s1;

var A : string;

i : integer;

begin

A:='еееее';

For i:=1 to 4 do

delete (A, 1,1);

write(A);

end.


б. program v2;

var A: string;

begin

A:='Пустырь ';

Delete(A,1,1);

Delete(A,4,2);

writeln(A);

end.


в. program k3;

var A: string;

begin

A:='Журнал';

А:=copy(A, 2, 4);

writeln(A);

end.


с. program sl3;

var A, B: string;

begin

A:='Виноград';

Delete(A, 1,4);

B:=соpy(A, 3,1)+'a'+A+'a'; writeln(B );

end.


д. program rt5;

var A: string;

i, N : integer;

begin

N:=15;

For i:=1 to 5 do

writeln(N);

end.

2. Найдите ошибку в программе, если программа должна определить ….

длину слова

а) program ggg;

var A : string; n : integer;

begin

writeln('Введите слово');

writeln(A)

n:=length(A);

writeln('Длина слова ', A);

end.


количество букв «я» в слове

б) program nnn;

var A : string; n, i : integer;

begin

writeln('Введите слово');

readln(78);

for i:= 1 do length(A)

if copy(A, i, 1)= 'я' then n:=n*1;

write(n);

end.


количество букв «у» в слове

в) begin ddd;

var A , i : integer;

writeln('Введите слово');

readln(A);

for i:= n to 6 do begin

if copy(A, 1, 1)= 'у' do

k:=k+1; write(k , букв);

end;

end;


Проверочная работа

Вариант 4

1. Что получится в результате выполнения программы?

a. program s1;

var A : string;

i : integer;

begin

A:='Каникулы';

For i:=1 to 5 do

delete (A, 1,1);

write(A);

end.


б. program v2;

var A, B: string;

begin

A:='Лето';

В=' Поезд';

B:=copy(B,1,2)+copy(A,1,3)

writeln(B);

end.


в. program k3;

var A,B: string;

begin

A:='Журнал';

B:='ТБ';

insert(В, А,1);

writeln(A);

end.


с. program sl3;

var A, B: string;

begin

A:='Виноград';

Delete(A, 1,3);

B:= A + соpy(A, 3,1); writeln(B );

end.


д. program rt5;

var A: string;

i, N : integer;

begin

N:=15;

For i:=1 to 5 do

writeln(N);

end.

2. Найдите ошибку в программе, если программа должна определить ….

длину слова

а) program ggg;

var A : string; n : integer;

begin

writeln('Введите слово');

writeln(A)

n:=len(A);

writeln('Длина слова ', A);

end.


количество букв «и» в слове

б) program nnn;

var A n, i: string; S:integer;

begin

writeln(Введите слово);

for i:= 1 do length(A)

if copy(A, i, 1)= 'и' then S:=S+i;

write(n);

end.


количество «ку» в слове

в) ddd;

var A , k, i : integer;

begin

writeln('Введите слово');

insert (A);

if copy(A, i , 1)= 'ку' else

k:=k+1;

write(‘ Кол-во «ку» в слове ', к);

end;





Получите в подарок сайт учителя

Предмет: Информатика

Категория: Уроки

Целевая аудитория: 10 класс.
Урок соответствует ФГОС

Скачать
Строковый тип данных в Паскале

Автор: Дареева Соелма Норбоевна

Дата: 15.05.2018

Номер свидетельства: 469715

Похожие файлы

object(ArrayObject)#851 (1) {
  ["storage":"ArrayObject":private] => array(6) {
    ["title"] => string(56) "Использование строк в Паскаль "
    ["seo_title"] => string(29) "ispol-zovaniie-strok-v-paskal"
    ["file_id"] => string(6) "106085"
    ["category_seo"] => string(11) "informatika"
    ["subcategory_seo"] => string(11) "presentacii"
    ["date"] => string(10) "1402940001"
  }
}
object(ArrayObject)#873 (1) {
  ["storage":"ArrayObject":private] => array(6) {
    ["title"] => string(103) "Строковый тип данный - практикум решения задач в Паскале"
    ["seo_title"] => string(60) "strokovyi_tip_dannyi_praktikum_rieshieniia_zadach_v_paskalie"
    ["file_id"] => string(6) "354240"
    ["category_seo"] => string(11) "informatika"
    ["subcategory_seo"] => string(5) "uroki"
    ["date"] => string(10) "1478012916"
  }
}
object(ArrayObject)#851 (1) {
  ["storage":"ArrayObject":private] => array(6) {
    ["title"] => string(103) "Строковый тип данный - практикум решения задач в Паскале"
    ["seo_title"] => string(62) "strokovyi_tip_dannyi_praktikum_rieshieniia_zadach_v_paskalie_1"
    ["file_id"] => string(6) "354241"
    ["category_seo"] => string(11) "informatika"
    ["subcategory_seo"] => string(5) "uroki"
    ["date"] => string(10) "1478012918"
  }
}
object(ArrayObject)#873 (1) {
  ["storage":"ArrayObject":private] => array(6) {
    ["title"] => string(103) "Строковый тип данный - практикум решения задач в Паскале"
    ["seo_title"] => string(62) "strokovyi_tip_dannyi_praktikum_rieshieniia_zadach_v_paskalie_2"
    ["file_id"] => string(6) "354242"
    ["category_seo"] => string(11) "informatika"
    ["subcategory_seo"] => string(5) "uroki"
    ["date"] => string(10) "1478012921"
  }
}
object(ArrayObject)#851 (1) {
  ["storage":"ArrayObject":private] => array(6) {
    ["title"] => string(96) "Урок "Программирование разветвляющихся алгоритмов" "
    ["seo_title"] => string(59) "urok-proghrammirovaniie-razvietvliaiushchikhsia-alghoritmov"
    ["file_id"] => string(6) "163397"
    ["category_seo"] => string(11) "informatika"
    ["subcategory_seo"] => string(5) "uroki"
    ["date"] => string(10) "1422468699"
  }
}


Получите в подарок сайт учителя

Видеоуроки для учителей

Курсы для учителей

ПОЛУЧИТЕ СВИДЕТЕЛЬСТВО МГНОВЕННО

Добавить свою работу

* Свидетельство о публикации выдается БЕСПЛАТНО, СРАЗУ же после добавления Вами Вашей работы на сайт

Удобный поиск материалов для учителей

Ваш личный кабинет
Проверка свидетельства