С КОНТРОЛЬНОЙ РАБОТОЙ ПО ИНФОРМАТИКЕ!
1. Определите значения соответствующих процедур и функций для строк
str1 :=‘dorogoj drug’
str2:= ‘drug’
а) k:= Length(Str1); k=?
б) s:=Copy(Str1, 4, 3); s=?
в) Delete(str1, 3, 4); str1=?
г) Insert(str1, Str2, 3); str1=?, str2=?
д) n:=Pos(str1, str2); n=?
2. Даны фрагменты программ. Нужно написать какой результат выводится на экран.
1)var str1,str2,str3 str4:string[25];
str1:='Дима сдал';
str2:='на отлично';
str3:='экзамен';
str4:= str1+'_ ' + str2+'_ '+ str3;
2)сравните две строки:
'Belka ' 'Bylka '
'Belka ' 'Belka '
'bylka ' 'Bylka '
'bylka ' 'bylk '
3) str1:='AB CD EF GH';
str2:='Сегодня прекрасный день ';
k1:=length(str1);
k2:=length(str2);
4) str1:='АБВГДЕЖЗИЙКЛ';
str2:='ABCDEFGH';
str3:=copy(str1,5,3);
writeln(str3);
writeln(copy(str2,1,4));
5) str1:='абвгдежзийкл';
delete(str1,2,5);
writeln(str1);
3.В данном тексте замените слово «тигр» на слово «кошка» и наоборот.
2.Мама обрадовала Петю: он совсем не ожидал получить компьютер на день рождения.
3. Учительница сказала, что сегодня мы будем работать на компьютере.
4. Паскаль- самый сложный язык в программировании на компьютере.
5. Вова обожал играть в видеоигры на компьютере.
6. "Ребята, сегодня наш класс пойдёт смотреть в технический музей на первые компьютеры"- сказала учительница.
7. Бабушка удивилась, что Катенька так быстро печатает на компьютере.
8. Настя была опечалена: из-за сломанного usb-порта компьютер не воспринимал съемный носитель.
9. Первые компьютеры были очень большими.
10. Милана очень хотела новый компьютер, но папа посчитал нужным подарить ей книги.
Program Mazoff1;
uses crt;
var
a,b: array [1..5] of integer;//Массивы А и В
c:array [1..10] of integer;//Массив С
i,j:integer;//счетчики
begin
randomize;
j:=0;
for i:=1 to 5 do
begin
a[i]:=random(101)-50;//заполняем массивы
b[i]:=random(101)-50;//случайными числами от -50 до 50
end;
for i:=1 to 5 do
begin
write(a[i],' '):5;//выводим массивы А и В в столбик
writeln(b[i]):5;
end;
for i:=1 to 5 do
begin
if a[i]>0 then //проверяем текущий элелмент массива А
begin
j:=j+1; //если он положительный, увеличиваем счетчик на 1
c[j]:=a[i]; //и добавляем этот элемент в массив С
end;
if b[i] mod 2 <> 0 then //проверяем текущий элелмент массива В
begin
j:=j+1; //если он чётный, увеличиваем счетчик на 1
c[j]:=b[i]; //и добавляем этот элемент в массив С
end;
end;
writeln('Всего в массиве С ',j,' элементов: ');
for i:=1 to j do
writeln(c[i]);
end.
Program Mazoff2;
uses crt;
const n = 20;
var
mas:array [1..n] of real;//Массив данных
i,j:integer;//счетчики
ur,pl: real;//урожай и площадь
begin
randomize;
for i:=1 to n do
begin
mas[i]:=random(101);//заполняем массив
end;
j:=1;
ur:=0;
pl:=0;
while j<=n do
begin
ur:=ur+mas[j]*mas[j+1];
pl:=pl+mas[j+1];
j:=j+2;
end;
writeln('Всего собрано ',ur,' тонн с общей площади ',pl,' га.');
writeln('Средняя урожайность равна ',ur/pl:3:2);
end.
Кстати, программа Димана добавляет сначала все нужные элементы из массива А, а только потом - из массива В. А в условии задачи сказано: "попеременно"