3 года назад

Влияет ли шрифт текста на программирование?

Знания

Информатика

1 ответ:

Svetusik [23]3 года назад

0 0

Ты де би л? естественно нет. Eсли ты имеешь регистр то да. И какие ты именно языки программирование изучаешь?

Читайте также

Сделать программу на Паскале

SandraG

Var sum:real;
i:integer;
begin
sum:=0;
for i:=1 to 50 do
sum:=sum+(i/2);
writeln(sum);
<span>end.</span>

0 0

4 года назад

Дан массив из 15 элементов. Необходимо заполнить его с помощью оператора присваивания (случайными числами), и вывести все элемен

Distrikt

import java.util.Random;

import java.lang.Math;

import java.util.function.Function;

public class ot_1_do_100 {

public static void main(String[] args) {

Random r = new Random();

int s =0; int k;

int[] Array;

Array = new int[15];

for (k = 1; k <= 15; k++) {

int n = r.nextInt(15); //Диапозон рандома (от 0 до 14) + присвоение

s += n;

System.out.print(n + " "); //Вывод рандомных чисел

}

System.out.print(s); // Сумма всех чисел

}

Объяснение: Это язык Java

0 0

4 года назад

Помогите, пожалуйста с задачей в Паскале. Нужно понять, принадлежит ли точка (x,y) треугольнику с координатами вершин a(-1,0) b(

Галина Косинцева [28]

===== PascalABC.NET =====

type

Point = (real, real);

Vector = Point;

function GetVector(A, B: Point) :=

(B[0] - A[0], B[1] - A[1]);

function PointInTriangle(A, B, C, P: Point): boolean;

begin

var bV := GetVector(A, B);

var cV := GetVector(A, C);

var pV := GetVector(A, P);

var k1 := (pV[0] * bV[1] - bV[0] * pV[1]) /

(cV[0] * bV[1] - bV[0] * cV[1]);

Result := False;

if (k1 >= 0) and (k1 <= 1) then

begin

var k2 := (pV[0] - k1 * cV[0]) / bV[0];

Result := (k2 >= 0) and (k1 + k2 <= 1)

end

end;

begin

var x, y: real;

var A, B, C, P: Point;

Write('Координаты точки A: '); Read(x, y);

A := (x, y);

Write('Координаты точки B: '); Read(x, y);

B := (x, y);

Write('Координаты точки C: '); Read(x, y);

C := (x, y);

Write('Координаты точки P: '); Read(x, y);

P := (x, y);

Writeln(PointInTriangle(A, B, C, P)); // True - принадлежит

end.

0 0

3 года назад

Помогите пожалуйста! Объем видеопамяти равен 512 Кб, разрешающая способность дисплея — 320 х 200. Сколько различных уровней ярко

Alexxxxxxxxx

Пикселей всего = 320*200*2 = 128000
Глубина цвета = 512 кб / 128000 пикселей = 512*8*1024 бит/128000 = 32.768 бит ~= 32 бит
32 бит / 3 = 10.(6) бит ~= 10 бит на канал
2^10 = 1024 степеней яркости на канал

320*200*2*3*10/8/1024 = 468.75 Кб видеопамяти занято, остальные не понятно чем занимаются

Ответ 1024

0 0

4 года назад

Написать программу считающую количество чисел оканчивающихся на 5 и 7 в ряду от 1 до 300

Shiki

var
i, k: integer;
begin
for i := 1 to 300 do
if (i mod 10 = 5) or (i mod 10 = 7) then
k := k + 1;
Writeln('Количество цифр, оканчивающихся на 5 или 7: ', k);
end.

<h2>Ответ</h2>

0 0

4 года назад