Решение задач. Задания для самостоятельного решения. Информационные источники (основные учебники по предмету)

Решение задач

Задача 1. В паскаль составить программу. Дан текст состоящий из слов , разделенных одним или несколькими пробелами, определить сколько слов в тексте.

Program enot;
Var s: string;
i,n,k:integer;
begin
read(s);
n:= length (s);
k:=0;
for i:= 1 to n do
if s[i]=' ' then k:=k+1;
writeln('vsego slov = ',k+1);
end.

Задача 2. Определить сколько цифр содержится в записи произвольного натурального числа.

- переменная s, которая вводится с клавиатуры, имеет строковый тип и переменная x, имеет целый тип данных;

- переменная k, определяется как целая и обозначает количество цифр;

- текст программы:

Program pr3;

Var s: string;

x, k: integer;

Begin

Writeln(‘введите число’);

Readln(x);

Str( x, s);

k:=length(s);

Writeln(‘в числе ‘,k,’ цифр’);

Readln;

End.

Задача 3. Дан текст, состоящий из русских слов. Текст не содержит знаков препинания. Упорядочить последовательность этих слов в алфавитном порядке.

Ввод	Вывод
монитор сканер мышь клавиатура принтер	клавиатура монитор мышь принтер сканер

Program z3;
var a : Array[1..10] of String;
s,t : String;
i, j, N : Integer;
begin
readln(s); s:=s+' '; n:=0; i:=1;
while i <= length(s) do
begin
t:=''; while s[i]<>' ' do begin t:=t+s[i]; i:=i+1 end;
i:=i+1; n:=n+1; a[n]:=t;
end;
for i := 1 to n-1 do
for j := i+1 to n do
If a[i]>a[j] then
begin
t := a[i]; a[i]:=a[j]; a[j]:=t
end;
for i := 1 to n do Write(a[i], ' ');
end.

Задания для самостоятельного решения

1. Дан текст. Вывести слова, встречающиеся в тексте по одному разу.

2. Дан текст. Вывести различные слова.

Домашнее задание:Повторить§ 27, 28. Решить задачу:

В три символьные переменные F, I, O ввести свои фамилию, имя, отчество. Сформировать из этих данных строку S, содержащую ваши фамилию и инициалы.

Информационные источники (основные учебники по предмету)

Информатика. Базовый уровень: учебник для 10 класса / Семакин И. Г., Хеннер Е. К., Т.Ю. Шеина.- 5-е изд. — М.: БИНОМ. Лаборатория знаний, 2015. —264 с.

Ресурсы сети Интернет

1. http://infoplaneta.ucoz.net/index/urok_55_pravila_opisanija_simvolnykh_velichin_i_simvolnykh_strok_osnovnye_funkcii_i_procedury_paskal/0-314

⇐ Предыдущая 12