Turbo Pascal

Mr.47

Member
Написать программу, которая выдает следующую информацию:
- список студентов, имеющих задолженность за всеми предметами;
- название предмета и фамилии студентов, которые не сдали экзамен;
- По названию предмета и группой - средний балл по предмету.

переделайте плиз у меня вот есть пример как нужно,мне просто помогите расписать моё задание.Буду благодарна.Спасибо
Вот поиск пример:unit poisk;
interface
uses Crt;
type student=record
fam,group:string;
vidmitka1,vidmitka2,vidmitka3:real;
end;
var f:file of student;
z:student;
vidmitka1,vidmitka2,vidmitka3,v:real;
i,j,k:integer;
n_group:string;
a:string;
procedure poisk1;
implementation
procedure poisk1;
begin
clrscr;
assign(f, 'student.dat');
reset(f);
writeln('Введите номер групы ');
k:=0;
readln(n_group);
reset(f);
writeln;
while not (eof(f)) do
begin
read(f, z);
if n_group=z.group then k:=k+1
end;
close(f);
reset(f);
if k=0 then write('Takogi grupy net')
else
begin
begin
writeln('Spisok studentov ', n_group, ' gropy');
while not (eof(f)) do
begin
read(f, z);
v:=z.vidmitka1+z.vidmitka2+z.vidmitka3;
begin
if (n_group=z.group) and (v>=4)then
begin
write(z.fam);
end;
end;
end;
end;
readkey;
end;
end;
end.


И поэтому примеру сделайте прошу мои задания три.Спасибо
 

win.95an

New Member
народ, нужна помощь!!! вообще не шарю в турбо поскале - зачет горит. задание такое: 1.Скласти та виконати на ЕОМ програму на мові TPascal обчислення значення вказаної змінної за заданими формулами та вхідними даними.Обчислити X=(Y+Z)2 , де y=0,5; z=7.8•10-4.
 

Storm_10

Member
народ, нужна помощь!!! вообще не шарю в турбо поскале - зачет горит. задание такое: 1.Скласти та виконати на ЕОМ програму на мові TPascal обчислення значення вказаної змінної за заданими формулами та вхідними даними.Обчислити X=(Y+Z)2 , де y=0,5; z=7.8•10-4.
а как же одногрупники?:? .... пишите программу, поможем исправить...
 

win.95an

New Member
одногрупников всего 5 и все немолодые, делали под заказ. тот человек сейчас занят и не может помочь. у нас была всего одна пара и я вообще не знаю даже с чего начнать, не говоря уже о том, что писать программу. Если бы я написал програму, то подошёл бы к преподователю и она помогла бы исправить, а тут совсем темный лес - только теорию и эксель сделал.
 

Alexsandr

Well-Known Member
обычно легче всего взять готовую программу и подправить её.
 
народ, нужна помощь!!! вообще не шарю в турбо поскале - зачет горит. задание такое: 1.Скласти та виконати на ЕОМ програму на мові TPascal обчислення значення вказаної змінної за заданими формулами та вхідними даними.Обчислити X=(Y+Z)2 , де y=0,5; z=7.8•10-4.
сложный вариант
program calculate_formula;

function Pow(A,B:Real):Real;
var T:Real;
Begin
T := Abs(A);
If A < 0 Then Pow := (-1)*Exp(B*Ln(T))
Else Pow := Exp(B*Ln(T));
end;

var
x,y,z : real;
begin
y := 0.5;
z := 7.8*Pow(10,-4);
x := (Y+Z)*(Y+Z);
writeln(x);
end.
простой вариант
program calculate_formula;

var
x,y,z : real;
begin
y := 0.5;
z := 0.00078;
x := (Y+Z)*(Y+Z);
writeln(x);
end.
ето если правильно понял что X=(Y+Z)2 ето (Y+Z) в квадрате но если ето умножение на 2 то
program calculate_formula;

var
x,y,z : real;
begin
y := 0.5;
z := 0.00078;
x := (Y+Z)*2;
writeln(x);
end.
 

win.95an

New Member
Тарас, большое спасибо!!! только возник вопрос: я все вписал в паскаль, вибрал в меню (run), в смысле выполнить, но ничего не происходит. я так понимаю должно показать какие-то вычисления или результат?
 

ViRT

куда хочу - туда лечу :)
Тарас, большое спасибо!!! только возник вопрос: я все вписал в паскаль, вибрал в меню (run), в смысле выполнить, но ничего не происходит. я так понимаю должно показать какие-то вычисления или результат?
Alt+F5
 
Зверху