Информатика Оффлайн
Наука о методах и процессах сбора, хранения, обработки, анализа и оценки информации, обеспечивающих возможность её использования для принятия решений
Информатика
Модем передает сообщение со скоростью 12,5 Кбит в сек. Изображение какого формата (без сжатия) может он передать 1 мин. при палитре из 256 цветов
одну минуту
Сколько секунд потребуется модему, передающему сообщения со скоростью 14400 бит/сек, чтобы передать цветное растровое изображение размером 800 х 600 пикселей, при условии, что в палитре 16 миллионов цветов?
1)2251024
2))22510248
3)Общее решение :(2251024*8)/14400=128
Ответ:128 секунд потребуется
Составить программу. Даны катеты прямоугольного треугольника. Найти гипотенузу
k1:=aa;
k2:=bb;
c:=k1+k2;
g:=sqrt(c);
Нахождение целого числа. Из трехзначного числа x вычли его последнюю цифру. Когда результат разделили на 10, а к частному слева приписали последнюю цифру числа x, то получилось 237. Найти число x
var ch,ci,x,y:integer;
begin
y:=237;
ci:=(y div 100);
ch:=(y mod 100);
x:=ch*10+ci;
writeln(x);
end.
Обработка элементов массива. Определить: сумму всех элементов массива
Program Pr1;
uses crt;
const n=20;
var mas:array[1..n,1..n] of integer;
i,j,v:integer;
Begin
clrscr;
v:=0;
randomize;
for j:=1 to n do
for i:=1 to n do mas[i,j]:=random(10);
for j:=1 to n do
for i:=1 to n do v:=v+mas[i,j];
writeln('Summa=',v); {a}
Функции и процедуры. Даны два натуральных числа. Выяснить, в каком из них сумма цифр больше. (определить функцию для расчета суммы цифр натурального числа)
uses crt;
var
str1,str2: string;
n,m: integer;
function nox(str: string; var sum: integer): integer;
var
i: byte;
begin
sum:=0;
for i:=1 to length(str) do
begin
sum:=sum+StrToInt(str[i]);
end;
end;
begin
write('Введите первое число: ');
readln(str1);
write('Введите второе число: ');
readln(str2);
nox(str1,n);
nox(str2,m);
if (n > m) then writeln('Сумма элементов первого числа больше второго и равна: ',n);
if (n < m) then writeln('Сумма элементов второго числа больше первого и равна: ',m);
end.
Найти натуральное число из интервала от a до b c максимальной суммой делителей
Program Natur;
Uses Crt;
Var a, Summa, n : integer;
Begin
Clrscr;
write('n=');
readln(a , n);
{Цикл с предусловием}
Summa:=0;
while a<=n do
begin Summa:= Summa + a; a := a + 1 end;
Writeln (' Результат первого суммирования:' , Summa) ;
{Цикл с постусловием}
а:=1;
Summa:=0;
repeat Summa:=Summa+ а; а:=а+1 until a>n;
Writeln
(' Результат второго суммирования:' , Summa) ;
{Цикл с параметром} Summa:=0;
for а := а to n do Summa : =Summa + a;
Writeln (' Результат третьего суммирования:', Summa); End
Даны целые числа b1,b2,.....,b10. Выяснить:
а) верно ли, что сумма тех из них, которые больше 20, превышает 100.
б) верно ли, что сумма тех из них, которые меньше 50, есть честное число.
uses crt;
var b:array [1..10] of integer; i,s1,s2:integer;
begin
clrscr;
for i:=1 to 10 do
begin
Randomize;
b[i]:=random(100);
end;
s1:=0; s2:=0;
if b[i]>20 then s1:=s1+b[i]; if s1>100 then writeln ('a)verno')else writeln ('a)ne verno');
if b[i]<50 then s2:=s2+b[i]; if s2 mod 2=0 then writeln ('á)verno')else writeln ('b)ne verno');
end.
Использовать условный оператор. Известны оценки по информатике 28 учеников класса. Выяснить, есть ли среди оценок двойки.
var
f:boolean;
//остальные переменные
begin
f:=false;
for i:=1 to 28 do
begin
write('Введите оценку ' , i, ' ученика: ');
readln(x);
if (x=2) then f:=true;
end;
if (f) then writeln('двойки есть')
else
writeln('двоек нет');
Дано натуральное число. Определить количество его цифр, кратных z (z=2,3,4)
var n,z,count:integer;
begin
readln(n,z);
count := 0;
while n <> 0 do
begin
if (n mod 10) mod z = 0 then
inc(count);
n := n div 10;
end;
writeln(count);
end.