Var s:real;
begin
write('s='); readln(s);
if s>1000 then s:=s-0.01*s;
writeln('S=',s);
end.
Пример:
s=1200
S=1020
Блок-схема - в прилагаемом файле
#include <cstdio>
using namespace std;
class Clock
{
int h, m, s;
int isPM(int hour) {
if ( (hour > 12) && (hour < 24) )
return 1;
else
return 0;
}
public:
Clock() : h(0), m(0), s(0) {}
void setTime(int ph, int pm, int ps) {
try {
if ( !( (ph < 0) || (ph > 23) ) )
h = ph;
else
throw "Неверный час";
if ( !( (pm < 0) || (pm > 59) ) )
m = pm;
else
throw "Неверные минуты";
if ( !( (ps < 0) || (ps > 59) ) )
s = ps;
else
throw "Неверные секунды";
} catch (const char* e) {
printf("Ошибка: %s", e);
}
}
Clock(int ph, int pm, int ps) {
setTime(ph, pm, ps);
}
int hour() { return h; }
int min() { return m; }
int sec() { return s; }
void print1() {
printf("%d часов %d минут %d секунд\n", h, m, s);
}
void print2() {
char a_p;
int ph;
if (isPM(h)) {
a_p = 'p';
ph = h - 12;
} else {
a_p = 'a';
ph = h;
}
printf("%d %c. m. %d минут %d секунд\n", ph, a_p, m, s);
}
};
/* Проверка некоторых функций */
int main()
{
Clock clock1(23, 11, 07), clock2;
clock1.print2();
clock2.print1();
return 0;
}
Файл - структура данных, распознаваемых ПК. Каталог - список файлов с указанием места хранения на винчестере.
Uses
graphabc;
const
W = 600;
H = 600;
function F(x: real): real;
begin
F := sqr(x);
end;
var
x0, y0, x, y, xLeft, yLeft, xRight, yRight: integer;
a, b, fmin, fmax, x1, y1, mx, my: real;
begin
window.Init(0, 0, 800, 500, clwhite);
window.IsFixedSize := true;
xRight := 590;
yRight := 590;
a := -15;
b := 6;
fmin := -10;
fmax := 20;
mx := (xRight - xLeft) / (b - a);
my := (yRight - yLeft) / (fmax - fmin);
x0 := 380;
y0 := 490;
x1 := a;
while x1 <= b do
begin
y1 := F(x1);
x := x0 + round(x1 * mx);
y := y0 - round(y1 * my);
if (y >= 10) and (y <= 590) then SetPixel(x, y, clblack);
x1 := x1 + 0.001 ;
end;
end.