-Музыка

 -Интересы

спорт и творчество!

 -Сообщества

Читатель сообществ (Всего в списке: 2) Томас_Кромвель street_of_art

 -Статистика

Статистика LiveInternet.ru: показано количество хитов и посетителей
Создан: 26.07.2008
Записей:
Комментариев:
Написано: 1930

Выбрана рубрика Горе программист.


Другие рубрики в этом дневнике: Язык через песни(14), Тесты(14), Спортивное(15), Размышления(161), Поэзия(27), Они(3), Музыкальное(30), Мои художники(1), Любимые стихотворения(17), Личное(171), Видеоуроки(3), Будничное(205)

условность где-то рядом

Дневник

Воскресенье, 05 Сентября 2010 г. 01:22 + в цитатник
Program quadratic_equation;
Uses Crt;
Var
a, b, c, d: integer;
x1, x2: real;
Begin
clrscr;
Writeln('Введите переменные:');
Writeln('a, b, c:');
Readln(a, b, c);
if (a=0) and (b=0) then
writeln('Неправильный ввод данных:')
else
if (a=0) then begin
x1:=-c/b;
Writeln('Корень линейного уравнения:');
Writeln('x1=', x1:0:3);
end
else
begin
d:=sqr(b)-4*a*c;
if d<0 then
Writeln('Действительных корней нет:')
else
begin
x1:=(-b-sqrt(d))/(2*a);
x2:=(-b+sqrt(d))/(2*a);
Writeln('Корни уравнения равны:');
Writeln('x1=', x1:0:3);
Writeln('x2=', x2:0:3);
end;
end;
readln;
Readkey;
End.
Рубрики:  Горе программист

Метки:  

я сошёл с ума

Дневник

Суббота, 21 Августа 2010 г. 16:01 + в цитатник
1).

Program P4;
Uses Crt;
Var
h, v, g, u: integer;
Y: real;
Begin
clrscr;
Writeln('Введите значения h, v, g, u:');
Readln(h, v, g, u);
Y:=h/2+v*g-12*u;
Writeln('Конечный результат равняется:');
Writeln(Y);
Readln;
Readkey;
End.

2).

Program okrujnosti;
Uses Crt;
const
pi=3.14;
Var
R: integer;
L: real;
Begin
clrscr;
Writeln('Введите радиус окружности:');
Readln(R);
L:=2*pi*R;
Writeln('Длина окружности равняется:');
Writeln(L);
Readkey;
End.

3).

Program P5;
Uses Crt;
Var
F, G, P: integer;
Y: real;
Begin
clrscr;
Writeln('Введите значения F, G, P:');
Readln(F, G, P);
Y:=4.3*F-sin(3*G)+P;
Writeln('Результат равен:');
Writeln(Y);
Readkey;
End.

4).

Program sfera;
Uses Crt;
const
pi=3.14;
Var
R: integer;
S: real;
Begin
clrscr;
Writeln('Введите радиус R:');
Readln(R);
S:=4*pi*sqr(R);
Writeln('Площадь сферы равняется:');
Writeln(S);
Readkey;
End.

5).

Program P6;
Uses Crt;
Var
d, i, l, p: integer;
Y: real;
Begin
clrscr;
Writeln('Введите значения d, i, l, p:');
Readln(d, i, l, p);
Y:=7*d+i/l+2.3*p;
Writeln('Результат:');
Writeln(Y);
Readkey;
End.

6).

Program sqr3;
Uses Crt;
Var
a, b, h: integer;
S: real;
Begin
clrscr;
Writeln('Введите целые числа a, b, h:');
Readln(a, b, h);
S:=0.5*h*(a+b);
Writeln('Площадь трапеции равняется:');
Writeln(S);
Readkey;
End.

7).

Program P7;
Uses Crt;
Var
h, t: integer;
Y: real;
Begin
clrscr;
Writeln('Введите значения h, t:');
Readln(h, t);
Y:=9/T-H+5*T;
Writeln('Конечный результат равняется:');
Writeln(Y);
Readln;
Readkey;
End.

8).

Program P8;
Uses Crt;
Var
U, F, M: integer;
Y: real;
Begin
clrscr;
Writeln('Введите значения U, F, M:');
Readln(U, F, M);
Y:=7.2*U-F/2+cos(M);
Writeln('Результат равен:');
Writeln(Y);
Readkey;
End.

9).

Program P9;
Uses Crt;
Var
J, F: integer;
Y: real;
Begin
clrscr;
Writeln('Введите значения F, J:');
Readln(F, J);
Y:=sin(4*J)+6.7/F-1.5*J;
Writeln('Результат равен:');
Writeln(Y);
Readkey;
End.

10).

Program shar;
Uses Crt;
const
pi=3.14;
Var
R: integer;
V: real;
Begin
clrscr;
Writeln('Введите радиус шара:');
Readln(R);
V:=4/3*pi*(sqr(R)*R);
Writeln('Объём шара равен:');
Writeln(V);
Readkey;
End.
Рубрики:  Горе программист

Метки:  

по лабораторной

Дневник

Пятница, 20 Августа 2010 г. 01:33 + в цитатник
1).

Program P1;
Uses Crt;
Var
k, l, p: integer;
Y: real;
Begin
clrscr;
Writeln('Введите целые числа k, l, p:');
Readln(k, l, p);
Y:=sin(k)-cos(l)+p/3;
Writeln('Результат уравнения:');
Writeln(Y);
Readln;
Readkey;
End.

2).

program Krug;
uses crt;
const
pi=3.14;
Var
s, r: real;
Begin
clrscr;
Writeln('Введите число r:');
Readln( r);
s:=pi*sqr(r);
Writeln('Площадь круга:');
Writeln(s);
Readkey;
End.

3).

Program P2;
Uses Crt;
const
pi=3.14;
Var
R, H: integer;
V: real;
Begin
clrscr;
Writeln('Введите значения:');
Readln(R, H);
V:=pi*sqr(R)*H;
Writeln('Объём цилиндра равен:');
Writeln(V);
Readkey;
End.

4).

Program P3;
Uses Crt;
Var
K, G, Z: integer;
Y: real;
Begin
clrscr;
Writeln('введите значения K, G, Z:');
Readln(K, G, Z);
Y:=K/5-2.7*G+sin(Z);
Writeln('Полученное произведение:');
Writeln(Y);
Readkey;
End.
Рубрики:  Горе программист

Метки:  

ABC

Дневник

Пятница, 20 Августа 2010 г. 15:20 + в цитатник

1).

Program sqr;
Uses Crt;
Var
a, b, S: integer;
Begin
clrscr;
Writeln('Введите значения a, b:');
Readln(a, b);
S:=a*b;
Writeln('Площадь прямоугольника:');
Writeln(S);
Readkey;
End.
 

2).

Program formula;
Uses Crt;
Var
x, h, k, y: real;
Begin
clrscr;
Writeln('Введите значения x, h, k:');
Readln(x, h, K);
Y:=5*X+7*H-8*sin(k);
Writeln('Результат уравнения равен:');
Writeln(Y);
Readkey;
End.
 

3).

Program sqr2;
Uses Crt;
Var
a, h: integer;
S: real;
Begin
clrscr;
Writeln('Введите целые числа a, h:');
Readln(a, h);
S:=0.5*A*H;
Writeln('Площадь треугольника равняется:');
Writeln(S);
Readkey;
End.
 

4).

Program obiem;
USES Crt;
Var
s, h: integer;
v: real;
Begin
clrscr;
Writeln('Введите целые числа s, h:');
Readln(s, h);
V := 1/3*S*h;
Writeln('Результат уравнения равен:');
Writeln(V);
Readkey;
End.
 

Рубрики:  Горе программист

Метки:  

Балуюсь Паскалем

Дневник

Четверг, 19 Августа 2010 г. 15:43 + в цитатник

Азы.

1). 

Program P44;
Uses CRT;
Var
x, y, z, s: integer;
g, j, t, p: real;
Begin
clrscr;
writeln ('Vvedite celye cisla x, y, z:');
readln (x, y, z);
s:=x+y+z;
Writeln('summa vvedenyx cisel:');
writeln(s);
Writeln ('Vvedite cisla g, j, t:');
readln (g, j, t);
p:=g-j+t ;
Writeln ('summa cisel:');
writeln (p);
Writeln (' Vvedite cisla x, y, z, g, j, t:') ;
readln (x, y, z, g, j, t);
p:=(x+y)*z-g+j*t;
writeln ('Summa cisel:') ;
writeln (p);
Writeln ('Hello World:');
readkey;
end.

2).

Program P2;
Uses Crt;
Begin
clrscr;
Writeln('MaxInt=', MaxInt);
readkey;
end.


3).

Program P3;
Uses Crt;
Var
x, s: integer;
Begin
clrscr;
Writeln ('Vvedite cislo:');
Readln(x);
S:=sqr (x);
Writeln('rezultat :');
Writeln (s);
S:=sqr (x)*x;
Writeln(' rezultat:');
Writeln (s);
readkey;
end.
 

 

:) Как вычислить куб числа одной строкой без использования рекурсий, функций и тому подобной хрени я ещё не догадался.



 

 

Рубрики:  Горе программист

Метки:  

 Страницы: [1]