Сканируется цветное изображение размером 48,26×48,26 см. разрешающая сканера — 600×1200 dpi, глубина цвета — 24 бита. какой информационный объём будет иметь полученный графический файл?
Var a: array[0..99] of integer; begin //заполняем массив случайными числами Randomize(); for var i:=0 to 99 do a[i]:=random(-100,100);
//а теперь заменяем все отрицательные элементы на ноль for var i:=0 to 99 do if (a[i]<0) then a[i]:=0; end.
Вот второй вариант программы, со вводом с клавиатуры и со сдвигом нулевых элементов в хвост массива program pr_1;constn = 6;varA: array [1..n] of integer; n1: integer; beginWrite('введите ');for i := 1 to n doread(A[i]); n1:=n; for var i:=n downto 1 do{в цикле просматриваем элементы массива} begin if A[i] < 0 then {проверяем, нужно ли удалять i-ый элемент} begin{если нужно – удаляем i-ый элемент} for var j := i to n1 - 1 do A[j] := A[j + 1]; {сдвигаем} A[n1]:=0; Dec(n1); {уменьшаем количество элементов} end; end; for var i:=1 to n1 do write(A[i], ' ');end.
class Program { public static void Main() { double x,y,s,p; Console.Write("x = "); x = double.Parse(Console.ReadLine()); Console.Write("y = "); y = double.Parse(Console.ReadLine()); s = (x+y)/2; p = 2*x*y; if (x>y){ x = p; y = s; } else { y = p; x = s; } Console.WriteLine("x = {0}, y = {1}", x, y); Console.ReadKey(); } }
Пример: x = 2.4 y = 8.3 x = 5.35, y = 39.84
2. using System;
public class Test { public static void Main() { int n; Console.Write("n = "); n = int.Parse(Console.ReadLine()); switch (n){ case 1: Console.WriteLine("Мы успешно сдали {0} экзамен", n); break; case 2: case 3: case 4: Console.WriteLine("Мы успешно сдали {0} экзамена", n); break; default: Console.WriteLine("Мы успешно сдали {0} экзаменов", n); break; } } }
a: array[0..99] of integer;
begin
//заполняем массив случайными числами
Randomize();
for var i:=0 to 99 do a[i]:=random(-100,100);
//а теперь заменяем все отрицательные элементы на ноль
for var i:=0 to 99 do
if (a[i]<0) then a[i]:=0;
end.
Вот второй вариант программы, со вводом с клавиатуры и со сдвигом нулевых элементов в хвост массива
program pr_1;constn = 6;varA: array [1..n] of integer; n1: integer;
beginWrite('введите ');for i := 1 to n doread(A[i]); n1:=n; for var i:=n downto 1 do{в цикле просматриваем элементы массива} begin if A[i] < 0 then {проверяем, нужно ли удалять i-ый элемент} begin{если нужно – удаляем i-ый элемент} for var j := i to n1 - 1 do A[j] := A[j + 1]; {сдвигаем} A[n1]:=0; Dec(n1); {уменьшаем количество элементов} end; end; for var i:=1 to n1 do write(A[i], ' ');end.
using System;
class Program
{
public static void Main()
{
double x,y,s,p;
Console.Write("x = ");
x = double.Parse(Console.ReadLine());
Console.Write("y = ");
y = double.Parse(Console.ReadLine());
s = (x+y)/2;
p = 2*x*y;
if (x>y){
x = p;
y = s;
}
else {
y = p;
x = s;
}
Console.WriteLine("x = {0}, y = {1}", x, y);
Console.ReadKey();
}
}
Пример:
x = 2.4
y = 8.3
x = 5.35, y = 39.84
2.
using System;
public class Test
{
public static void Main()
{
int n;
Console.Write("n = ");
n = int.Parse(Console.ReadLine());
switch (n){
case 1:
Console.WriteLine("Мы успешно сдали {0} экзамен", n);
break;
case 2:
case 3:
case 4:
Console.WriteLine("Мы успешно сдали {0} экзамена", n);
break;
default:
Console.WriteLine("Мы успешно сдали {0} экзаменов", n);
break;
}
}
}
Пример:
n = 6
Мы успешно сдали 6 экзаменов