Собственно история. Нужно написать курсовой проект по информатике на языке паскаль. Написать написал, но вот чтобы она работала, не получается довести. Хотелось бы чтобы опытные программисты (Если вас не затруднит), глянули одним глазом что у меня не так. Очень нужно, специально выбрал теги чтоб не мешать другим просматривать веселые картинки и шутки.
Вот собственно условие: Узнать, насколько изменится диаметр пузырьков d0, если верхний уровень масляно-охлодительного вещества Ϭ(сигма) возрастает от 0,02 до 0,08 г/см с шагом
0,02 г/см, а плотность p (ро) от 0,5 до 2г/см3 с шагом 0,5г/см3
D0=0,2*w*sqrt(g/p) где угол становит w = 50°. Нужно написать программу чтобы можно было подставлять любые числа и шаги.
Вот собственно программа.
PROGRAM 1
CONST W=50
VAR KG, KP: INTEGER;
G, d0, p, g0, p0, qg, qp: real;
Begin
Writeln (‘Введите начальное значение натяжения g0”)
Readln (g0);
Writeln (“Введите шаг изменения натяжения qg”)
Readln (qg);
Writeln (“Введите количество переходов натяжения kg”)
Readln (kg);
Writeln (“Введите начальную плотность p0”)
Readln (p0);
Writeln (“Введите шаг изменения плотности qg”)
Readln (qg);
Writeln (“Введите количество переходов плотности kp”)
Readln (kp);
G:=g0;
Repeat
P:=p0;
Repeat
G:=g+qg;
D0=0,2*w*3.14*sqrt(g/p)/180
Writeln (“при p=”, p:6:2, “g=”, g:6:2, “d0=”, d0:6:2
Until g