4 года назад

Как программисты написали программы для программирования без программ для программирования?

1 ответ:

0 0

Так и писали в двоичном коде системы команд конкретной машины, т.е. с помощью машинных кодов. У каждой операции в компьютере (сложение, умножение, какие-то более сложные операции) есть код. Люди (прогаммисты) сами по табличке выбирали этот код, всякие адреса в памяти, всё это набивали руками на перфокартах, засовывали в считыватель, запускали программу и она выполняла вычисления. Чтобы облегчить себе жизнь, умные головы придумали языки символического кодирования и написали программы перевода (трансляции) сначала только вычислительных программ в машинные коды (мнемокоды, ассемблеры, макроассемблеры). А затем с их помощью придумали и написали более сложные трансляторы с языков высокого уровня (Фортран, Бейсик, С и т.д.)

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

Даны 3 числа(а,в,с). Составьте программу, которая меняет местами max и min элементы.Не массив.

Саулешенька [93]

Var a,b,c,d:integer;
begin
writeln('a, b, c:');
readln(a,b,c);
if (a>b)and(a<c)or(a>c)and(a<b)
then begin d:=b; b:=c; c:=d; end
else if (b>a)and(b<c)or(b>c)and(b<a)
then begin d:=a; a:=c; c:=d; end
else begin d:=a; a:=b; b:=d; end;
writeln('a = ',a,' b = ',b,' c = ',c);
end.

Пример:
a, b, c:
8 5 2
a = 2 b = 5 c = 8

0 0

3 года назад

Прочитать ещё 2 ответа

Помогите,пожалуйста. написать решение уравнения с помощью программы ПАСКАЛЬ

dimakes [353]

Программа на Паскале

Программа не проверяет x на ОДЗ

0 0

4 года назад

Шифр Виженера. Используя ключевое слово ЗИМА закодируйте слово ИНТЕРНЕТ.

ibn loki [45]

Почему вы не хотите воспользоваться онлайн шифровщиком ?
Вот и ответ : рцяешцст

0 0

4 года назад

КОМПЬЮТЕР ВЫДАЕТ ОШИБКУ: НЕЛЬЗЯ ПРЕОБРАЗОВАТЬ ТИП REAL К INTEGER В СТРОКЕ c := Xfact(n)/ Xfact(n - k)* Xfact(k); ПОМОГИТЕ ИСПРАВ

Alexander1996 [35]

Измените тип переменных n и k на integer:

function Xfact(o: integer): integer;
var
factorial: longint;
i: integer;
begin
write('o = ');
readln(o);
factorial := 1;
for i := 2 to o do
factorial := factorial * i;
end;

var
c: real;
n,k:integer;
begin
writeln('Введите число n: ');
readln(n);
writeln('Введите число k: ');
readln(k);
c := Xfact(n) / Xfact(n - k) * Xfact(k);
writeln('C = ', c);
end.

0 0

1 год назад

Прочитать массив из 10 элементов и написать каких элементов больше четных или нечетных. ( На Паскале)

Сергей803

// PascalABC.NET 
// Версия 3.3.5 сборка 1662 (29.04.2018)

begin
var m := ReadArrInteger(10);
var (o, e) := (m.Where(t -> t.IsOdd).Count, m.Where(t -> t.IsEven).Count);
Println(o > e ? 'Нечетных больше' : o = e ? 'Поровну' : 'Четных больше');
end.

Пример:
1 2 3 4 5 6 7 8 10 10
Четных больше

0 0

3 года назад