Dianapro111

04.09.2022 01:18 •  Информатика

Информатика

1) Запиши выражение +/k в виде пригодном для использования в программе:

(+)/
+/
все ответы верные
(+)÷

2) Какой тип имеет переменная h, если после выполнения оператора write (h) на экран было выведено следующее: Q?

char
нет верного ответа
boolean
shortint

3) Дана программа.

begin
write ('umbrella ');
write ('Переведи!')
end.

На экране данные выведены следующим образом:

Переведи!
umbrella
umbrella
Переведи!
umbrella Переведи!

4) Запусти Pascal. Введи программу.

program pr_1;
var
x,y,sum, umn: integer;
begin
write ('x=');
readln (x);
write ('y=');
readln (y);
sum:=x+y;
umn:=x*y;
writeln ('sum=',sum);
writeln ('umn=',umn);
readln;
end.

Результаты работы внеси в таблицу для заданных и .
x - 23
y - 36

5) Дана программа. Введи данную программу в Паскаль.

program perimetr_1;
var
a,b,p:real;
begin
a: = 7;
b: = 7;
p:=2*(a+b);
writeln('p=',p:4:0)
end.

Полученный результат:

6) Вычисли =38+48/5+5 .
Запиши программу для вычисления в Паскале и выведи на экран.

var
x:real;
begin
x:=(38+48)*(5+5);
writeln('x=',x:4:2);
readln;
end.

var
x:real;
begin
x:=(38+48)/(5+5);
end.

var
x:real;
begin
x:=(38+48)/(5+5);
writeln('x=',x:4:2);
readln;
end.

var
x:char;
begin
x:=(38+48)/(5+5);
writeln('x=',x:4:2);
readln;
end.

7) Выбери программу, которая вычисляет длину гипотенузы.

var
m,x,p:real;
begin
writeln('Введи длины катетов m и x ');
readln(m,x);
p:=m*m+x*x;
writeln('p=',c:8:2);
readln;
end.

var
m,x,p:real;
begin
writeln('Введи длины катетов m и x ');
readln(m,x);
p:=sqrt(sqr(m)+sqr(x));
writeln('p=',p:8:2);
readln;
end.

var
m,x,p:real;
begin
writeln('Введи длины катетов m и x ');
readln(m,x);
p:=sqr(sqrt(m)+sqrt(x));
writeln('p=',c:8:2);
readln;
end.

8) Составить алгоритм сложения двух целых чисел и , вводимых с клавиатуры. Результат сложения записать в виде переменной . По данному алгоритму написать программу в Паскале.

Алгоритм

алг сложение
цел F,N,W
нач
ввод F
ввод N
W=F+N
вывод W
кон
алг сложение
цел F,N,W
нач
ввод F
ввод W
N:=F+W
вывод W
кон
алг сложение
цел F,N,W
нач
ввод F
ввод N
W:=F+N
вывод W
кон

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

program summa;
var
F,N,W:integer;
begin
readln(F);
readln(N);
W:=F+N;
writeln(W);

program summa;
var
F,N,W:integer;
begin
readln(F);
readln(N);
W:=F+N;
writeln(F);
end.

program summa;
var
F,N,W:integer;
begin
readln(F);
readln(N);
W:=F+N;
writeln(W);
end.

9) Определи расстояние на плоскости между двумя точками с заданными координатами 1(1,1)и 2(2,2). ответ введи целым числом.

Если координаты точек: 1=3;1=22=9;2=13.
ответ округли до целых.

ответ: =

10) Дано целое число. Если оно является положительным, то прибавить к нему 47; в противном случае не изменять его. Вывести полученное число.

program cislo;
var
a: integer;
begin
writeln('Введи число a');
readln(a);
if a > 0 then a:=a+47;
writeln(a);
end.

program cislo;
var
a: integer;
begin
writeln('Введи число a');
readln(a);
if a > 0 then a:=a;
writeln(a);
end.

program cislo;
var
a: integer;
begin
writeln('Введи число a');
readln(a);
if a < 0 then a:=a+47;
writeln(a);
end.

11) Заполни пропуски в программе на языке Паскаль.

Определить, принадлежит ли точка z отрезку