Кто может нарисовать Блок Схему к этой задачки
procedure TForm1.Button1Click(Sender: TObject);
var a:array[0..19] of real;
i:integer; max,min:real;
begin
max:=-32000;
min:=32000;
for i:=0 to 19 do
a[i]:=StrToInt(Memo1.lines[i]);
for i:= 0 to 19 do
begin
if a[i]>max then
max:=a[i];
if a [i] end;
edit1.text:=floatToStr(max);
edit2.text:=floatToStr(min);
end;
end.
1. Традиционное решение.
// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
var
s:string;
i,k:integer;
begin
Write('Введите строку: '); Readln(s);
k:=0;
for i:=1 to Length(s) do
if s[i]=' ' then Inc(k);
Writeln('Количество слов равно ',k+1)
end.
Результат выполнения программы:
Введите строку: А роза упала на лапу Азора
Количество слов равно 6
2. Решение срeдствами PascalABC.Net 3.1
// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
var s:=ReadlnString('Введите строку:');
Writeln('Количество слов равно ',s.ToWords.Count)
end.
Результат выполнения программы:
Введите строку: А роза упала на лапу Азора
Количество слов равно 6
а) var x,y: real;
б) var a,b,s: real;
(a,b - стороны прямоугольника, s - площадь прямоугольника)
в) var k:integer;
ct,co,s: real;
(k - количество тетрадей, ct,co - стоимость 1 тетради и 1 обложки (соответственно), s - стоимости покупки)
г) var kt,kk,kr:integer;
ct,ck,cr,s: real;
(kt,kk,kr - количество тетрадей, карандашей и ручек (соответственно), ct,ck,cr - стоимость 1 тетради, 1 карандаша и 1 ручки (соответственно), s - стоимость покупки)
Данные вещественного (real) типа используются значительно чаще целого типа. Они необходимы в тех случаях, когда числовые значения могут содержать дробные части.
Данные целочисленного (integer) типа используются для представления целых чисел.