<u>PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
type
tТовар=record
Название:string[32];
Цена:real;
Количество:real; // может быть в килограммах или тоннах
Поставщик:string[32]
end;
begin
var b:tТовар;
var f:file of tТовар;
// создаем (или чистим), а затем заполняем файл
Rewrite(f,'Товары.typ');
loop ReadlnInteger('Количество товаров:') do begin
Writeln('Введите информацию по очередному товару');
b.Название:=ReadlnString('Название:');
(b.Цена,b.Количество):=ReadlnReal2('Цена товара и его количество:');
b.Поставщик:=ReadlnString('Поставщик:');
Write(f,b)
end;
f.Close;
// работаем с файлом
Reset(f);
var nf:=Trim(ReadlnString('Какой поставщик интересует?'));
while not eof(f) do begin
Read(f,b);
if Trim(b.Поставщик)=nf then
Println(b.Название,b.Цена,b.Количество)
end;
f.Close
end.
Var
x:real;
Begin
x:=-5;
repeat
writeln('y = ',sqr(x));
x:=x+0.5;
until(x>5)
End.
1.Имя,Фамилия
2.Какой класс
3.Где родился
4.Сколько лет
5.Чем увлекаешься
6.Какие-то победы или награды в занятии
7.Можно немного о будущей профессии
8.Расскажи про родителей,может какой то талант от них у тебя
1) 1 - 1 - 3 - 4 значит диаграмма 4
2) 1 - 2 - 3 - 4 диаграмма 1
3) 1 - 2 - 1 - 2 диаграмма 4
777*143=111111
777*286=222222
777*429=333333
777*572=444444
777*715=555555
777*858=666666
777*1001=777777
777*1144=888888
777*1287=999999
----
Зависимость такая:
143*1=<em>143</em>
143*2=<em>286</em>
143*3=<em>429</em>
143*4=<em>572</em>
...
143*9=<em>1287</em>
т.е. 143*(n+1)
