Const
USD=64.05; // Официальный курс доллара США к рублю на 08.07.2016
EUR=70.95; // Официальный курс евро к рублю на 08.07.2016
var
RUR:real; // сумма в российских рублях
begin
Writeln('Введите сумму в российских рублях: ');
Read(RUR);
Writeln('В долларах США: ',RUR/USD:0:2);
Writeln('В евро: ',RUR/EUR:0:2);
end.
<u><em>Тестовое решение:</em></u>
Введите сумму в российских рублях:
15200.76
В долларах США: 237.33
В евро: 214.25
<em>// PascalABC.NET 3.2, сборка 1359 от 11.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a,b:integer;
var h:real;
Write('Введите a,b,h: '); Read(a,b,h);
var x:=real(a);
while x<=b do begin
Writeln(x,' ',x*x);
x:=x+h
end;
end.
<u>Пример</u>
Введите a,b,h: 10 20 0.5
10 100
10.5 110.25
11 121
11.5 132.25
12 144
12.5 156.25
13 169
13.5 182.25
14 196
14.5 210.25
15 225
15.5 240.25
16 256
16.5 272.25
17 289
17.5 306.25
18 324
18.5 342.25
19 361
19.5 380.25
20 400
А как следующая программа выдаст ответ, если она неправильно написана? ))
Program task2;
var R, x, y : real;
begin
writeln('Введите значения R, x, y:');
read(R, x, y);
if (((x >= 0) and (y >= 0) and (x * x + y * y <= R * R)) or ((x < 0) and (y < 0) and (y >= -x - R))) then
writeln('Точка с координатами x: ', x, ', y: ', y, ' принадлежит заданной области.')
else
writeln('Точка с координатами x: ', x, ', y: ', y, ' не принадлежит заданной области.');
<span>end.</span>
Построение логических схем и таблиц истинности к ним.