3 года назад

Блок схема калькулятор и программа на Паскале

Знания

Информатика

1 ответ:

brabus703 года назад

0 0

program kalkulator;

uses crt;

var a,b,c:real; x:integer;

Begin

clrscr;

Writeln('введите 2 числа');

Readln(a,b);

Writeln('выберете действие');

Writeln('1-"+" 2-"-" 3-"*" 4-"/"');

Readln(x);

case x of

1:begin c:=a+b; Writeln(c:2:2); end;

2:begin c:=a-b; Writeln(c:2:2); end;

3:begin c:=a*b; Writeln(c:2:2); end;

elsebegin c:=a/b; Writeln(c:2:2);

end;

Readln;

end.

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

Помогите Пж! Монитор позволяет получить на экране 2 в 24 степени оттенков цветов. Какой объём памяти в байтах занимает 1 пиксель

Дмитрий159

2^24
24-глубина цвета.
Т.е один цвет кодируется 24 битами=3 байтами.

0 0

4 года назад

Из скольких строк и столбцов состоит следующая таблицаномер 5

ksandr97 [2.1K]

4 строки (если считать верхнюю), 3 столбца

0 0

4 года назад

Помогите решить задачу, вообще не смыслю в информатике.) чему равны значения переменных r, a, d? var a, b, c: integer r, d: real

Шампунь [334]

По условию:
a=5, b=20, c=-7, d=25

Находим значение переменной r:
r = a + (4 * b * c ) * d = 5 + (4* 20 * -7) * 25 = -13995

Находим значение переменной a:
a = a + 4 = 5 + 4 = 9

Находим значение переменной d:
d = a * 7 = 9 * 7 = 63

program r_a_d;
var
a, b, c : integer;
r, d : real;

begin
a:=5;
b:=20;
c:=-7;
d:=25;

r := a + (4 * b * c ) * d;
a := a+4;
d := a*7;

writeln('r=', r:10:4, ', a=', a, ', d=', d:10:4);
end.

0 0

1 год назад

15 БАЛОВ! СРОЧНО! "Шифр Цезаря". Этот шифр реализует следующее преобразование текста: каждая буква исходного текста заменяется т

алексейqqq

_____КРИПТОГРАФИЯ____

0 0

4 года назад

Напишите программу которая ищет в нем все значения равные введенному числу

Alexander1 [61]

Const n=20;
var
a:array[1..n] of integer;
i,j,t,x,i1,i2:integer;
begin
Randomize;
Writeln('Исходный массив:');
for i:=1 to n do begin
a[i]:=Random(21);
Write(a[i],' ')
end;
Writeln;
for i:=1 to n-1 do
for j:=1 to n-i do
if a[j]<a[j+1] then begin
t:=a[j];
a[j]:=a[j+1];
a[j+1]:=t
end;
Writeln('Отсортированный массив:');
for i:=1 to n do Write(a[i],' ');
Writeln;
write('x = ');
readln(x);
i1:=1;
i2:=n;
repeat
i:=(i1+i2) div 2;
if a[i]>x then i1:=(i1+i2) div 2+1;
if a[i]<x then i2:=(i1+i2) div 2-1;
until (a[i]=x)or(i1>i2);
if a[i]=x then begin
writeln('Искомый(ые) номер(а) элемента(ов):');
while (i>0)and(a[i]=x) do
i:=i-1;i:=i+1;
while (i<=n)and(a[i]=x) do begin
write(i,' '); i:=i+1; end;
end
else writeln('Элемент не найден');
writeln;
end.
Pascal ABC.

0 0

3 года назад