четверг, 17 декабря 2015 г.
четверг, 29 октября 2015 г.
понедельник, 26 октября 2015 г.
понедельник, 19 октября 2015 г.
§6, №5
1. Можно ли следующие объекты считать информационными моделями:
- расписание уроков
Объект моделирования: таблица
- программа телевидения
Объекст моделирования: таблица
- рецепт на получение лекарства
Объект моделирования: список
2.
понедельник, 12 октября 2015 г.
понедельник, 5 октября 2015 г.
четверг, 17 сентября 2015 г.
вторник, 12 мая 2015 г.
Основы программирования на языке Turbo Pascal
Program Eight;
var x, y, t:integer;
begin
writeln('Vvedite peremennie x i y');
readln(x);
readln(y);
t:=x;
writeln('t=',t);
x:=y;
writeln('x=',x);
y:=t;
writeln('y=',y);
readln;
end.
var x, y, t:integer;
begin
writeln('Vvedite peremennie x i y');
readln(x);
readln(y);
t:=x;
writeln('t=',t);
x:=y;
writeln('x=',x);
y:=t;
writeln('y=',y);
readln;
end.
вторник, 5 мая 2015 г.
Программирование на языке Turbo Pascal
(Сумма чисел)
Program One;
var a,b,c,d, e: integer; begin
writeln ('Vvedite 4 chisla');
readln (a);
readln (b);
readln (c);
readln (d);
e:=a+b+c+d;
writeln ('Summa chisel=',e);
readln;
end.
(Разность чисел)
Program Two;
var a,b,c,d, e: integer;
begin
writeln ('Vvedite 4 chisla');
readln (a);
readln (b);
readln (c);
readln (d);
e:=a-b-c-d;
writeln ('Rasnost chisel=',e);
readln;
end.
(Произведение чисел)
Program Three;var a,b,c,d: integer;
begin
writeln ('Vvedite 4 chisla');
readln (a);
readln (b);
readln (c);
readln (d);
e:=a*b*c*d;
writeln ('Proisvedenie chisel=',e);
readln;
end.
(Частное чисел)
Program Three;
var a,b,c,d: intenger;
var e: real;
begin
writeln ('Vvedite 4 chisla');
readln (a);
readln (b);
readln (c);
readln (d);
e:=a/b/c/d;
writeln ('Chastnoe chisel=',e);
readln;
end.
Подписаться на:
Комментарии (Atom)






