вылезает ошибка:
unit1.pas(80,5) Note: Local variable "I" is assigned but never used
Вот код:
procedure TForm1.Button2Click(Sender: TObject);
var I,U,R,t,Q:double;
begin
I:=StrToFloat(Edit2.Text);
U:=StrToFloat(Edit3.Text);
R:=StrToFloat(Edit4.Text);
t:=StrToFloat(Edit5.Text);
Q:=StrToFloat(Edit6.Text);
if CheckBox1.Checked
then begin
if RadioButton1.Checked
then
end;

end.

Блок-схему с телефона сделать не могу, вот текстом: Начало Ввод а Ввод b a>b? Если да, вывод a В другом случае вывод b (подразумевается, что a и b никогда не равны) Конец Аналогичная программа на Qbasic: DIM a AS INTEGER, b AS INTEGER INPUT a INPUT b IF a > b THEN PRINT a ELSE PRINT b END IF На C#: Using system; class Compare{ public static void main(String[] args){ int a = int.Parse(Console.ReadLine()); int b = int.Parse(Console.ReadLine()); if (a>b){ Console.WriteLine(a); }else{ Console.WriteLine(b); } Console.ReadLine(); //чтобы программа не закрылась после выполнения } }

№1

var x, F: real;
begin
write('Введите х: ');
readln(x);
if ( x > -2.4 ) AND ( x < 5.7 ) then F := sqr(x)
else F := 4;
writeln('F = ', F);
end.

№2

var x, F: real;
begin
write('Введите х: ');
readln(x);
if ( x > 0.2 ) AND ( x < 0.9 ) then F := sin(x)
else F := 1;
writeln('F = ', F);
end.

№3

var a,b,c: real;
begin
write('Введите а: ');
readln(a);
write('Введите b: ');
readln(b);
write('Введите c: ');
readln(c);
if ( a < b ) AND ( b < c ) then writeln('a < b < c')
else
if ( b > a ) AND ( a > c ) then writeln('b > a > c')
else
writeln('Неравенства не выполняются');
end.