Информатика,помогите.

1. ЕГОР (07.09.2010 / 08:46)
Вобщем парни помогите нужно объяснить что это означает:Var E,R1,R2,R3,R23,K,I1,U2:real Write ('tekst E(B)='); Read (E);

2. Андрей (07.09.2010 / 08:52)

Var E,R1,R2,R3,R23,K,I1,U2:real

объявление переменных E,R1,R2,R3,R23,K,I1,U2 типа: real (числа с плавающей точкой)

-Write ('tekst E(B)=');

вывод строки на экран: tekst E(B)=

Read (E);

считывание переменной E с клавиатуры

3. Андрей (07.09.2010 / 08:52)
но явно видно что ты намудрил в коде
UPD: выкладывай что от тебя хотят преподы

4. ЕГОР (07.09.2010 / 08:58)
В том то и дело что хотят что бы я объяснил что значат эти строчки.ЩА парни еще напишу пару строк,за помощь в долгу не отстануся

5. ЕГОР (07.09.2010 / 09:04)
if E>0; Then Begin R23:=R2*R3/(R2+R3); U2:=R23*E/(R1+R23);
End
Else
U2:=R3*E/(R1+R3);
Что в целом означает эта запись?

6. Андрей (07.09.2010 / 09:09)

if E>0; Then Begin

точка с запятой не нужна после E>0
читается так: если E больше нуля то...

R23:=R2*R3/(R2+R3);
U2:=R23*E/(R1+R23);
End;

ну тут и ежу понятно, какието арифметические действия...

Else
U2:=R3*E/(R1+R3);

Если условие E>0 не выполняется, то "else" (иначе) выполняется следующее действие U2:=R3*E/(R1+R3)

7. ЕГОР (07.09.2010 / 09:12)
И ВОТ ЕЩЕ.Что значит эта функция?
function U2t(e,R3:real):real;
begin {U2,t}
if e>0
then
begin
R23:=R2*R3/(R2+R3);
U2t:=R23+e/(R1+R23);
end;
U2t:=R23*e/(R1+R3);
end;{u2t}

8. Андрей (07.09.2010 / 09:17)

function U2t(e,R3:real):real;

объявление функции с именем U2t, типом входных значений real и выходных тоже real

9. Андрей (07.09.2010 / 09:19)
всё что между begin и end называется тело функции

10. Андрей (07.09.2010 / 09:22)
чот мне кажется функция какаято корявая( помню толкьо на си что выход: return(); а на делфи/паскале забыл уже

URL: https://visavi.net/topics/13424