1)“Все караси - рыбы”, “Интеллектуальная собственность охраняется законом”, “Все квадраты – равносторонние прямоугольники”.
2)<span>“Ни один лев не есть травоядное животное”. Видим полную несовместимость субъекта и предиката. Объемы их полностью исключают друг друга.
3)</span>“Некоторые студенты - спортсмены”. Здесь S и P – перекрещивающиеся понятия, их объемы совпадают частично.“Некоторые преступления являются должностными”: предикат подчинен субъекту. Объем предиката полностью входит в объем субъекта, объем субъекта лишь частично совпадает с объемом предиката.<span>
4)</span>“Некоторые студенты не являются спортсменами” – часть объема субъекта входит в объем предиката, это перекрещивающиеся понятия.<span>“Некоторые геометрические фигуры не являются треугольниками”: субъект и предикат – в отношении подчинения.</span>
33Мбайт/сек=264мбит/сек, что больше скорости сетевого интерфейса, значит считаем относительно скорости сетевого интерфеса (самой маленькой).
100Мбит/сек=100/8 Мбайт/сек = 12,4 Мбайт/сек
делим 120 /12,4 = 9,6 сек
Формальное решение на случай, если Ваш QBasic не распознаёт кириллицу(формальное, потому что отображаться будет правильно, но текст с кириллицей ввести не получится):
DIM S$, C$
CLS
INPUT "BBEDITE TEXT: ", S$
k = 0
S$ = LCASE$(S$)
FOR i = 1 TO LEN(S$)
C$ = MID$(S$, i, 1)
IF (C$ = " ") OR (C$ = "Ґ") OR (C$ = "Ё") OR (C$ = "®") OR (C$ = "г") OR (C$ = "л") OR (C$ = "н") OR (C$ = "о") OR (C$ = "п") THEN
k = k + 1
END IF
NEXT i
PRINT "k = "; k
END
Если поддерживает кириллицу:
DIM S$, C$
CLS
INPUT "BBEDITE TEXT: ", S$
k = 0
S$ = LCASE$(S$)
FOR i = 1 TO LEN(S$)
C$ = MID$(S$, i, 1)
IF (C$ = "а") OR (C$ = "е") OR (C$ = "и") OR (C$ = "о") OR (C$ = "у") OR (C$ = "ы") OR (C$ = "э") OR (C$ = "ю") OR (C$ = "я") THEN
k = k + 1
END IF
NEXT i
PRINT "k = "; k
END
<span>Здесь oписан массив a из 88 целочисленных значени. При выполнении этого оператора в памяти компьютера будет выделено 88 ячеек целого типа.</span>
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
procedure CreateFile(p:string);
begin
var f:=OpenWrite(p);
Writeln(f,'В чащах юга жил бы цитрус? Да, но фальшивый экземпляръ!');
Writeln(f,'СЪЕШЬ ЖЕ ЕЩЁ ЭТИХ МЯГКИХ ФРАНЦУЗСКИХ БУЛОК, ДА ВЫПЕЙ ЧАЮ');
Writeln(f,'ФлегмаТичНая этА веРБлЮдиЦа жует у пОДЪезда засыХающий горький шиповник');
Writeln(f,'The quick brown fox jumps over the lazy dog');
Writeln(f,'THE FIVE BOXING WIZARDS JUMP QUICKLY');
f.Close
end;
procedure UpFile(p:string);
begin
var a:=ReadAllLines(p);
WriteAllLines(p,a.Select(s->UpperCase(s)).ToArray);
end;
begin
var p:=ReadlnString('Введите имя файла (можно, с путём):');
CreateFile(p);
UpFile(p);
// контроль работы
ReadAllLines(p).Println(NewLine)
end.
<u>Пример работы</u>
Введите имя файла (можно, с путём): MyTest.txt
В ЧАЩАХ ЮГА ЖИЛ БЫ ЦИТРУС? ДА, НО ФАЛЬШИВЫЙ ЭКЗЕМПЛЯРЪ!
СЪЕШЬ ЖЕ ЕЩЁ ЭТИХ МЯГКИХ ФРАНЦУЗСКИХ БУЛОК, ДА ВЫПЕЙ ЧАЮ
ФЛЕГМАТИЧНАЯ ЭТА ВЕРБЛЮДИЦА ЖУЕТ У ПОДЪЕЗДА ЗАСЫХАЮЩИЙ ГОРЬКИЙ ШИПОВНИК
THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG
THE FIVE BOXING WIZARDS JUMP QUICKLY