СОЧ ПО ИНФОРМАТИКЕ 8 КЛАСС 1. Дополните предложение.
Системы программирования - ……
Языки программирования - ……
2. Даны переменные.
A=’ A’ B=456 C=123.4 D=True
Определите типы данных для каждой переменной и соедините линиями тип
данных и
переменную.
3. Задача «Максимум из трех чисел»
Условие
Введите с клавиатуры три целых числа. Выведите значение наибольшего из
них.
4. Задача «Hello, User!»
Loop
Напишите программу бесконечного цикла, которая просит имя пользователя
и приветствует его, выводя слово Hello, введенное имя и знаки препинания
по образцу:
Введите имя: Джон
Привет, Джон!
Введите имя: Гарри
Привет, Гарри!
Цикл должен остановиться, когда пользователь введет «Хватит»
var
a: string;
b: array[1..9]of integer;
sort: boolean;
max, k: integer;
begin
Readln(a);
for var i := 1 to Length(a) do
b[i] := strtoint(a[i]);
sort := false;
while sort = false do
begin
sort := true;
k += 1;
for var i := 1 to Length(a)-1 do
begin
if a[i] < a[i+1] then
begin
sort := false;
var value2 := a[i];
a[i] := a[i+1];
a[i+1] := value2;
end;
end;
end;
write(a[1]);
end.
Программа написана на PascalABC.net
на free pascal или turbo pascal она может не работать
d = '0123456789';
var
i, m, k: longint;
c: char;
n: string;
begin
Write('Введите шестнадцатиричное число: '); Readln(n);
m := 0;
while n[1] = '0' do delete(n, 1, 1);
for i := 1 to length(n) do
begin
c := n[i];
case c of
'F', 'f': k := 15;
'E', 'e': k := 14;
'D', 'd': k := 13;
'C', 'c': k := 12;
'B', 'b': k := 11;
'A', 'a': k := 10;
else k := Pos(c, d) - 1
end;
m := 16 * m + k
end;
Writeln(n, '(16)=', m, '(10)')
end.
Тестовое решение:
Введите шестнадцатиричное число: 1A2B3C
1A2B3C(16)=1715004(10)