A. Сколько человек учится в классе

B. Каков средний балл

C. Сколько учеников получили оценку, превышающую средний балл?

 

Program nom5;

uses crt;

Var

P,CH,TR,DV,k,t,n:integer;

SR:real;

Begin

clrscr;

Writeln('vvedite kol-vo "5"');

Readln(P);

Writeln('vvedite kol-vo "4"');

Readln(CH);

Writeln('vvedite kol-vo "3"');

Readln(TR);

Writeln('vvedite kol-vo "2"');

Readln(DV);

k:=P+CH+TR+DV;

Writeln('v klasse: ',k, ' chelovek');

n:=k;

SR:=(P*n+CH*n+TR*n+DV*n)/k;

t:=0;

if (SR>4) and (SR<=5) then t:=P;

if (SR>3) and (SR<=4) then t:=P+CH;

if (SR>2) and (SR<=3) then t:=TR+CH+P;

if (SR<2) then t:=DV+TR+CH+P;

 

Writeln('srednii bal = ',SR:5:3);

Writeln('previchaet srednii bal: ',t);

Readln;

end.

4. Является ли заданное четырехзначное число N палиндромом (то есть «перевертышем» например таковыми являются числа 8998, 3333)?

 

Sub задание7()

Dim n As Integer

Dim l As Integer

Dim i As String

n = InputBox("введите четырехзначное число", "ввод переменной")

If Mid(n, 1, 1) = Mid(n, 4, 1) And Mid(n, 2, 1) = Mid(n, 3, 1) Then

MsgBox "число " & n & " является полиндромом", vbOKOnly, "ответ"

Else

MsgBox "число " & n & " не является полиндромом", vbOKOnly, "ответ"

End If

End Sub

Из-за непогоды были отменены рейсы самолетов. Нанадолго проглянуло солнце: на N часов и M минут. Сколько самолетов успеет вылететь за это время, если на взлетной полосе может быть только один самолет, а интервал между взлетом двух самолетов - X минут.

 

Sub задание1()

Dim m As Integer

Dim n As Integer

Dim z As String

Dim x As Integer

m = Val(InputBox("Введите количество минут m", "Ввод m"))

x = Val(InputBox("Введите интервал мд самолетами", "Ввод x"))

z = "n="

n = m / x

MsgBox z & n,, "Результат"

End Sub

6. Вычислить сумму ряда чисел:

a. 2+4+6+…+100

б.

а) Sub задание1а()

Dim i As Integer

Dim s As Integer

s = 0

For i = 2 To 100 Step 2

s = s + i

Next i

MsgBox "сумма ряда равна" & s, vbDefaultButton1, "ответ"

End Sub

б) Sub задание1b()

Dim i As Integer

Dim s As Single

Dim n As Single

s = 0

For i = 2 To 100

n = 1 / i

s = s + n

Next i

MsgBox "сумма ряда равна " & s, vbDefaultButton1, "ответ"

End Sub

7. Дано натуральное N. Определить:

A. Количество цифр числа

B. Сумму цифр

C. Младшую и старшую цифры

D. Есть ли в записи числа цифра «5»

 

Program zad13b_2;

uses crt;

var n:string;i,s,d,err:integer;

Begin

clrscr;

write('vvedite chislo '); readln(n);

writeln(length(n),' cifr');

s:=0;

for i:=1 to length(n) do begin

val(n[i],d,err);

s:=s+d;

end;

writeln ('summa=',s);

writeln('pervaya: ',n[1],' poslednyaia: ',n[length(n)]);

i:=1;

repeat

inc(i);

until (n[i]='5') or (i>length(n));

if (i>length(n)) then writeln('ne vstrechaetsta') else writeln('vstrechaetsya');

readln;

end.

8. Клиент открыл счет в банке 1 марта, вложив 1000 рублей. Каждый месяц размер вклада увеличивается на 2 %. Определить:

A. Сколько денег будет на счете через 6 месяцев.

B. В каком месяце размер вклада превысит 1200 руб.

C. За какой месяц величина ежемесячного увеличения вклада превысит 50 руб.

 

Program zad15a;

uses crt;

var i,m:integer;

x1,x:real;

Begin

clrscr;

x:=1000;

m:=0;

For i:=1 to 6 do

Begin

x:=x+x*0.02;

end;

writeln(x:5:8);

x:=1000;

while x<1200 do

begin

m:=m+1;

x:=x+x*0.02;

end;

writeln('v ',m, ' mesaze');

x:=1000;

m:=0;

while x*0.02<=50 do

Begin

m:=m+1;

x:=x+x*0.02;

End;

writeln(m);

readln;

End.

Sub pr1()

Dim A(31) As Integer, s1 As Single, i As Integer, s2 As Single, s As Single, sr As Single, str As String, str2 As String, srm As Single

Randomize

s1 = 0

s1 = 0

s = 0

str = ""

str2 = ""

For i = 1 To 31

'A(i) = Val(InputBox("введите температуру" & i & "марта"))

A(i) = Int(15 * Rnd + 1 - 15 * Rnd)(Rnd-возвращает значение, которое меньше 1, но больше или равно нулю.)

str = str & A(i) & " "

If A(i) < 0 Then

s1 = s1 + 1

End If

If A(i) > 0 Then

s2 = s2 + 1

End If

s = s + A(i)

Next

sr = Int(s / 31)

 

For i = 1 To 31

If A(i) = sr Or A(i) + 1 = sr Or A(i) - 1 = sr Then

str2 = str2 & i & " "

End If

Next

MsgBox str & Chr(13) & "количество дней с отриц. температурой =" & s1 & Chr(13) & "количество дней с положительной температурой =" & s2 & Chr(13) & "Средняя температура месяца =" & sr & Chr(13) & "дни когда темп была близка к ср.мес." & str2

End Sub

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

Program gos19;

uses crt;

var

i,n,k,a,b,c: byte;

Tab,Tmp,Res: array [1..100] of integer;

 

function Check(num: integer): boolean;

var

s: string;

j,h,chk: byte;

begin

str(num,s);

chk:=0;

for j:=1 to length(s)-1 do

for h:=j+1 to length(s) do

if (s[j]=s[h]) and (j<>h) then Inc(chk);

if chk>0 then Check:=true else Check:=false;

end;

 

begin

clrscr;

writeln('Enter N');

readln(n);

randomize;

for i:=1 to n do

begin

Tab[i]:=random(16000);

{ k:=random(10);

Tab[i]:=k*10+k;}

write(Tab[i],' ');

end;

k:=0;

for i:=1 to n do

if Check(Tab[i])=true then

begin

Inc(k);

Tmp[k]:=Tab[i];

end;

 

if k>0 then

begin

 

b:=1;

Res[1]:=Tmp[1];

for i:=2 to k do

begin

c:=i;

for a:=1 to b do

if Tmp[i]=Res[a] then Inc(c);

if c=i then

begin

Inc(b);

Res[b]:=Tmp[i];

end;

end;

 

writeln;

writeln;

writeln('Result matrix:');

for i:=1 to b do

begin

write(Res[i],' ');

end;

end

else writeln('There are NO ELEMENTS in matrix!');

readln;

end.

В зрительном зале N рядов по М мест в каждом. Информация о проданных билетах хранится в двух матрицах: в первой матрице в соответствующей ячейке указана цена билета за данное место, а во второй – продан билет на это место или нет(билет продан – «1», не продан – «0»). Подсчитать общую выручку за проданные билеты.

 

Sub primer6()

Dim n As Single

Dim m As Single

Dim A() As Integer

Dim A1() As Integer

Dim i As Integer

Dim j As Integer

Dim s As Single

1: n = Val(InputBox("введите число рядов", "Ввод числа"))

If n < 1 Or Fix(n) <> n Then

MsgBox "некорректно введено число рядов, попробуйте еще",, " "

GoTo 1

End If

 

2: m = Val(InputBox("введите число мест", "Ввод числа"))

If m < 1 Or Fix(m) <> m Then

MsgBox "некорректно введено число мест, попробуйте еще",, " "

GoTo 2

End If

 

ReDim A(n, m), A1(n, m)

 

For i = 1 To n

For j = 1 To m

3: A(i, j) = Val(InputBox("Введите цену билета на " & i & " ряд" & j & " место"))

If A(i, j) < 1 Then

MsgBox "некорректно введенa цена, попробуйте еще раз",, " "

GoTo 3

End If

Next

Next

 

For i = 1 To n

For j = 1 To m

4: A1(i, j) = Val(InputBox("Введите наличие в кассе билета на " & i & " ряд" & j & " место(1 - билет продан,0 - не продан)"))

If A1(i, j) <> 1 And A1(i, j) <> 0 Then

MsgBox "некорректно введено число(1 - билет продан,0 - не продан), попробуйте еще раз",, " "

GoTo 4

End If

Next

Next

s = 0

For i = 1 To n

For j = 1 To m

s = s + A(i, j) * A1(i, j)

Next

Next

MsgBox "Выручка за проданные билеты = " & s & "рубль(ей)",, "ответ"

End Sub

 

12. Даны две прямоугольные числовые матрицы А и В размера М Х N. Построить третью матрицу С по правилу: c[I,j]=a[I,j]*b[I,j].

 

 

program z23;

uses crt;

const

n=3;m=3;

a: array[1..n,1..m] of integer = ((3,1,2),

(2,5,1),

(2,2,2));

b: array[1..n,1..m] of integer = ((5,1,1),

(4,1,2),

(1,1,0));

var

i,j: integer;

c: array[1..n,1..m] of integer;

BEGIN

clrscr;

for i:=1 to n do

for j:=1 to m do c[i,j]:=a[i,j]*b[i,j];

 

for i:=1 to n do

begin

for j:=1 to m do write(c[i,j],' ');

writeln;

end;

readln;

END.

Дана строка русского текста до 80 символов. Слова разделены пробелами. Заменить встречающиеся в строке слова «то» на «это». Напечатать исходную и полученную строки.

 

program z25;

uses crt;

const

s: string[80]='gde to chto to kuda to zachem to';

var

p: byte;

BEGIN

clrscr;

writeln(s);

repeat(Цикл повторяется до тех пор, пока условие записанное после ключевого слова until, будет ложным (не выполняется))

p:=pos(' to',s);(pos-ищет подстроку в строке)

if (p<>0) then

begin

delete(s,p,3);

insert(' eto',s,p);

end;

until p=0;

writeln(s);

readln;

END.

В строке слова разделены пробелами. Удалить каждое нечетное слово. Напечатать полученную строку.

 

program z27;

uses crt;

var

s,st,word: string;

n,k,w,p: integer;

BEGIN

clrscr;

s:='pam1 param2 param3 pam4 pam5 pum6 purum7 purum8 pum9 pum10';

n:=1; k:=2;

w:=1;

st:='';

repeat

while ((k<=length(s)) and (s[k]<>' ')) do inc(k);

word:=copy(s,n,(k-n+1));

if (w mod 2=0) then begin st:=st+word; end;

n:=k+1; inc(k); inc(w);

until (k>length(s));

s:=st;

writeln(s);

readln;

END.

15. Даны действительные числа a и b. Получить:

a) u=min(a,b)

b) v=min(a+b,a*b)

c) z=min(u+v,3.14)

 

Sub kontrolnaya5()

Dim a As Single, b As Single, s As Single, p As Single, D As Single, u As Variant, v As Variant, z As Variant

a = Val(InputBox("vvedite pervoe chislo"))

b = Val(InputBox("vvedite vtoroe chislo"))

If a > =b Then u = b Else If a < b Then u = a

MsgBox (u)

s = a + b

p = a * b

If s > =p Then v = p Else If s < p Then v = s

MsgBox (v)

D = u + v

If D > 3.14 Then z = 3.14 Else If D < 3.14 Then z = D

MsgBox (z)

End Sub

В заданной последовательности натуральных чисел, оканчивающихся нулем, найти количество и вывести на экран все простые числа. Определение, является ли число простым, можно сделать с помощью функции.

 

program z31;

uses crt;

const

n=7;

a: array[1..n] of integer=(5,4,6,3,1,0,0);

var

i,s: integer;

function prostoe(n: integer): boolean;

var i:integer;

begin

prostoe:=true;

for i:=2 to n-1 do

if (n mod i=0) then prostoe:=false;

end;

 

BEGIN

clrscr;

i:=1;

s:=0;

while (a[i]<>0) do

begin

if (prostoe(a[i])=true) then

begin

writeln(a[i]);

s:=s+1;

end;

inc(i);

end;

writeln('kol-vo: ',s);

readln;

END.