СУММАТИВНОЕ ОЦЕНИВАНИВАНИЕ за 4 четверть Раздел «Решение задач в интегрированной среде разработки» фамилия и Класс 8 «В» Дата: .05.2021 Цель обучения: 8.3.1.1 Создавать модели задач в интегрированной среде разработки программ 8.3.3.2 Знать и использовать компоненты интегрированной среды разработки программ на Python Критерии оценивания: Обучающийся: • Создает и разрабатывает модель программы • Использует компоненты интегрированной среды разработки программ Уровень мыслительных навыков: применение Время выполнения: 20 мин ЗАДАНИЕ 1 1. Определите истинность или ложность данных понятий Да [2 Нет V Блок-схема-графический записи алгоритма Человек, компьютер, автомат не могут быть исполнителем алгоритма. Алгоритм, написанный на понятном компьютеру языке, называется псевдокодом. Последовательность действий, приводящих к результату, мы называем алгоритмом. v ✓ 2. Запишите определение Перекол по улеслалт соdай шатахиу одоносна правиш түшкармасинин для ванаедрадной зочида риоритиев 2.1 Составить псевдокод функции (х + 1 при х< 0 х 2 при х = (0) на отрезке [а; b), если а = -2, h = 0,2, b = a +h * (n+1), n = 5. 1) 3. Напишите псевдокод и программу алгоритма на данной блок-схеме
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016 // Внимание! Если программа не работает, обновите версию!
function MaxSubstr(s1,s2:string):string; begin var a:=new integer[s1.Length+1,s2.Length+1]; var u:=0; var v:=0; for var i:=0 to s1.Length-1 do for var j:=0 to s2.Length-1 do if s1[i+1]=s2[j+1] then begin a[i+1,j+1]:=a[i,j]+1; if a[i+1,j+1]>a[u,v] then begin u:=i+1; v:=j+1 end end; Result:=s1.Substring(u-a[u,v],a[u,v]) end;
begin var s:='trapperkaperkatrter'; var t:='appekaperspamer'; Writeln(MaxSubstr(s,t)) end.
function DifNum(a: integer): integer; var se: set of integer; i: integer; begin while a > 0 do begin if a mod 10 in se then begin DifNum := 0; exit; end else include(se, a mod 10); a := a div 10; end; DifNum := 1; end;
begin read(l, r); for i := l to r do counter += DifNum(i); writeln(counter); end.
//Альтернативное решение на Паскале
Var l,r:integer; begin read(l,r); writeln(range(l,r).where(x -> x.tostring.toarray.distinct.count=length(x.tostring)).Count); end.
// Внимание! Если программа не работает, обновите версию!
function MaxSubstr(s1,s2:string):string;
begin
var a:=new integer[s1.Length+1,s2.Length+1];
var u:=0; var v:=0;
for var i:=0 to s1.Length-1 do
for var j:=0 to s2.Length-1 do
if s1[i+1]=s2[j+1] then begin
a[i+1,j+1]:=a[i,j]+1;
if a[i+1,j+1]>a[u,v] then begin u:=i+1; v:=j+1 end
end;
Result:=s1.Substring(u-a[u,v],a[u,v])
end;
begin
var s:='trapperkaperkatrter';
var t:='appekaperspamer';
Writeln(MaxSubstr(s,t))
end.
var
l, r, counter, i: integer;
function DifNum(a: integer): integer;
var se: set of integer;
i: integer;
begin
while a > 0 do
begin
if a mod 10 in se then
begin
DifNum := 0;
exit;
end
else include(se, a mod 10);
a := a div 10;
end;
DifNum := 1;
end;
begin
read(l, r);
for i := l to r do
counter += DifNum(i);
writeln(counter);
end.
//Альтернативное решение на Паскале
Var
l,r:integer;
begin
read(l,r);
writeln(range(l,r).where(x -> x.tostring.toarray.distinct.count=length(x.tostring)).Count);
end.
//Dev-C++ 5.11 (C)
#include <stdio.h>
#include <malloc.h>
int DifNum(int);
int main(void)
{int l,r,counter=0;
scanf("%d %d",&l,&r);
for(int i=l;i<=r;i++)
counter+=DifNum(i);
printf("%d",counter);
return 0;}
int DifNum(int a)
{int k=1,*nums;
nums=(int*)malloc(k*sizeof(int));
nums[0]=-1;
while(a>0)
{for(int i=0;i<k;i++)
if(a%10==nums[i])
return 0;
k++;
nums=(int*)malloc(k*sizeof(int));
nums[k-1]=a%10;
a/=10;}
free(nums);
return 1;}
Пример ввода:
1 12
Пример вывода:
11