ЗАДАЧА №26

⇐ ПредыдущаяСтр 2 из 6Следующая ⇒

ЗАДАЧА №26

Подсчитать количество слов во введённой пользователем строке.

Описание переменных:

Str-строка

i-счётчик

count-подсчёт количества слов

Uses Crt;

Var

Str:string;

i,count:Integer;

Begin

ClrScr;

Write (‘Your string:’);

ReadLn (str);

i:=length (str);

If i>0 then begin

Count:=1;

While i>0 do begin

If str [i]=’ ‘ then

Count:=count+1;

i:=i-1;

End;

End

Else

Count:=0;

WriteLn (‘Number of words:’,count);

ReadLn;

End.

ЗАДАЧА №27

Требуется в произвольной строке удалить последнее слово, т.е. все символы после последнего пробела в строке.

Описание переменных:

s-строка

len-её длина

Uses Crt;

Var

s:string;

len,i:byte;

Begin

ClrScr;

Write (‘String:’);

ReadLn (s);

len:=length (s);

For i:=len downto 1 do

If s [i]=’ ‘ then begin

Delete (s,i,len-i+1);

Break;

End;

WriteLn (s);

ReadLn

End.

Удаляет первое слово:

Uses Crt;

Var

s:string;

len,i:byte;

Begin

ClrScr;

Write (‘String:’);

ReadLn (s);

len:=length (s);

For i:=1 to len do

If s [i]=’ ‘ then begin

Delete (s,1,i);

Break;

End;

WriteLn (s);

ReadLn

End.

                                                              ЗАДАЧА №28

Ввод и вывод одномерного массива.

Uses Crt;

const

n=5;

type

mas=array [1..n] of integer;

var

a:mas;

i:byte;

Begin

WriteLn (‘Введите элементы массива’);

For i:1 to n do readln (a[i]);

WriteLn (‘Вывод элементов массива:’);

For i:=1 to n do write (a[i]:5);

ReadLn

End.

                                                          ЗАДАЧА №29



В однородном массиве, состоящем из N вещ-венных элементов, найти максимальный по модулю элемент массива.

Uses Crt;

Const n=50;

Var

Arr:array [1..n] of real;

Max:real;

i,j,k:byte;

Begin

ClrScr;

Randomize;

Max:=0;

For i:=1 to n do begin

Arr [i]:=random (10)-0.50;

Write (arr[i]:7:2);

if abs (arr [i])>abs (max) then

max:=arr[i]

End;

Writeln;

WriteLn (max:7:2);

ReadLn;

End.



                                                 ЗАДАЧА №30

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

Uses Crt;

Const n=10;

Var

Arr:array [1..n] of Integer;

Sum:Integer;

I:byte;

Begin

ClrScr;

i:=1;

sum:=0;

repeat

Write (‘Число:’);

ReadLn (arr[i]);

Sum:=sum+arr[i]);

I:=i+1

Until (arr [i-1]=0) or (i>n);

For i:=1 to n do

Write (arr[i],’’);

WriteLn;

WriteLn (‘sum=’,sum);

ReadLn

End.

                                                                ЗАДАЧА №31

Uses Crt;

Const n=10;

Var

arr:array [1..n] of integer;

sum:=Integer;

max,min:Integer;

i:integer;

Begin

ClrScr;

i:=1;

sum:=0;

max:=0;

min:=0;

repeat

Write (‘Число:’);

ReadLn (arr[i]);

Sum:=sum+arr[i];

i:=i+1

Until (arr[i-1]=0)or (i>n);

For i:=1 to n do

Write (arr[i],’’);

WriteLn;

WriteLn (‘sum=’,sum);

Max:=arr [1];

Min:=arr [1];

For i:=1 to n do Begin

If arr [i]<=min then

Min:=arr[i];

If arr [i]>max then

Max:=arr[i];

End;

WriteLn (‘max=’,max);

WriteLn (‘min=’,min);

ReadLn

End.

                                                      ЗАДАЧА №32

В двумерном массиве целых чисел определить, сколько раз в нем встречается элемент со значением Х.

Программа на языке Паскаль:

Uses Crt;

Const m=10;

n=5;

Var

arr:=array [1..n,1..m] of Integer;

x:Integer;

i,j,k:byte;

Begin

Randomize;

WriteLn (‘Random matrix:’);

For i:=1 to n do begin

For j:=1 to m do begin

Arr [i,j]:=-10+random (21);

Write (arr [I,j]:4)

End;

WriteLn

End;

Write (‘Investigated the number:’);

ReadLn (x);

k:=0;

For i:=1 to n do

For j:=1 to m do

If arr [i,j]=x then

k:=k+1;

Write (‘The number is found in the array’,k,’times’);

ReadLn;

End.

                                                    ЗАДАЧА №33

Изменить размер геометрической фигуры.

Uses graph, crt;

Var

g,h,i:Integer;

x1,y1,x2,y2:Integer;

a,b:real;

Begin

g:=detect;

initgraph (g,h,’’);

setcolor (10);

x1:=100;

y1:=100;

x2:=200;

y2:=150;

rectangle (x1,y1,x2,y2);

a:=1,1;

b:=0,9;

For i:=1 to 5 do begin

Delay (1000);

Setcolor (0);

Rectangle (x1,y1,x2,y2);

x2:=round (x2*a);

y2:=round (y2*a);

setcolor (10);

rectangle (x1,y1,x2,y2);

End;

For i:=1 to 5 do begin

Delay (1000);

Setcolor (0);

Rectangle (x1,y1,x2,y2);

x2:=round (x2*b);

y2:=round (y2*b);

setcolor (10);

rectangle (x1,y1,x2,y2);

End;

ReadLn

End.

                                                          ЗАДАЧА №34

Uses graph, Crt;

Var

g,h,i,x,y,c:Integer;

Begin

g:=detect;

initgraph (g,h,’’);

setcolor (10);

line (10,10,300,300);

x:=600;

y:=500;

Randomize;

For i:=1 to 50 do begin

c:=random (15);

putpixel (x.y.c);

x:=x-10;

y:=y-5

End;

ReadLn

End.

                                                           ЗАДАЧА №35

Написать программу, которая создаёт массив из 10-ти чисел рандомно и считает сумму первых 5-ти чисел.

Uses Crt;

Const n=10;

Var

Arr:array [1..n] of byte;

a:byte;

s:Integer;

Begin

Randomize;

s:=0;

For a:=1 to n do begin

Arr [a]:=random (10);

Write (arr [a]);

End;

S:=arr [1]+arr[2]+arr[3]+arr[4]+arr[5];

WriteLn (‘summa:’,s);

ReadLn;

End.

⇐ Предыдущая 123 4 5 6 Следующая ⇒