Написать программу, которая по данному натурального числу от 1 до 12 (номеру месяца) выдает все приходящиеся на этот месяц праздничные дни (например, если введено число 1, то: 1 января - Новый Год, 7 января - Рождество Надо сделать на языке BASIC.
Uses crt; type oc=record per,bt,tr:integer; end; ab=record fam,im:string; ocen:oc; end; var b:array [1..50] of ab; l:ab; i,n,g,k,h:integer; begin clrscr; writeln ('введи количество абитуриентов'); readln (n); Writeln ('Вводи фамилии, имена и 3 оценки'); for i:=1 to n do with b[i] do begin readln (fam); readln (im); readln (ocen.per,ocen.bt,ocen.tr); end; clrscr; for j:=1 to n do for i:=1 to n-1 do if b[i].fam>b[i+1].fam then begin l:=b[i]; b[i]:=b[i+1]; b[i+1]:=l; end; writeln ('Список всех аббитуриентов:'); for i:=1 to n do writeln (b[i].fam,' ',b[i].im,' ',b[i].ocen.per,' ',b[i].ocen.bt,' ',b[i].ocen.tr); writeln ('Список допущенных аббитуриентов'); for i:=1 to n do with b[i] do begin with ocen do if (per>30) and (bt>30) and (tr>30) and (per+bt+tr>140) then writeln (fam,' ',im,' ',ocen.per,' ',ocen.bt,' ',ocen.tr); end; readln; end.
1) Переводим разрешающую сканера из дюймов в см. 1 дюйм=2,54 см 1200dpi/2,54см=472 точек на см Площадь листа формата А4==21*29,7=623,7 см^2 А всего точек в сканируемом изображение будет: 472*472*623,7=138950380,8 Каждая точка кодируется с бит, поэтому на кодирование всех точек на листе надо: 138950380,8*24=3334809139 бит информации или 416851142,4 байт или 407081 Кбайт или 397,5 Мбайт 2) Время звучания файла=объем файла/(число каналов*разрядность*частоту) Объем=2847*512*8=11661312 бит T=1161312/(1*8*8000)=182 c T=1161312/(2*16*48000)=7.6 с
type oc=record
per,bt,tr:integer;
end;
ab=record
fam,im:string;
ocen:oc;
end;
var b:array [1..50] of ab;
l:ab;
i,n,g,k,h:integer;
begin
clrscr;
writeln ('введи количество абитуриентов');
readln (n);
Writeln ('Вводи фамилии, имена и 3 оценки');
for i:=1 to n do
with b[i] do
begin
readln (fam);
readln (im);
readln (ocen.per,ocen.bt,ocen.tr);
end;
clrscr;
for j:=1 to n do
for i:=1 to n-1 do
if b[i].fam>b[i+1].fam then
begin
l:=b[i];
b[i]:=b[i+1];
b[i+1]:=l;
end;
writeln ('Список всех аббитуриентов:');
for i:=1 to n do
writeln (b[i].fam,' ',b[i].im,' ',b[i].ocen.per,' ',b[i].ocen.bt,' ',b[i].ocen.tr);
writeln ('Список допущенных аббитуриентов');
for i:=1 to n do
with b[i] do
begin
with ocen do
if (per>30) and (bt>30) and (tr>30) and (per+bt+tr>140) then writeln (fam,' ',im,' ',ocen.per,' ',ocen.bt,' ',ocen.tr);
end;
readln;
end.