Type tbank=record name:string; curs:real; end; var banks:array[1..15] of tbank; max,dollars:real; i,mi:longint; Begin Write('You have: '); readln(dollars); for i:=1 to 15 do Begin Write('Bank name: '); readln(banks[i].name); write('Curs: '); readln(banks[i].curs); end; max:=dollars*banks[1].curs; mi:=1; for i:=2 to 15 do Begin if(dollars*banks[i].curs>max) then Begin max:=dollars*banks[i].curs; mi:=i; end; end; writeln('Best bank name: ',banks[mi].name,', curs is :',banks[mi].curs:2:2,', we will get: ',max:2:2,', rub.'); end.
1)Компьютер может обрабатывать числовую,текстовую,графическую,звуковую и видеоинформацию. 2)Микрофон - звуковая информация ; сканер - графическая информация ; цифровая камера- видеоинформация. 3)Клавиатура- важнейшее устройство ввода информации в память компьютера. 4) Алфавитно-цифровые,функциональные,блок редактирования, служебные, клавиши Windows, дополнительная цифровая клавиатура. 5) Для удобства. 6) Курсорные стрелки нужны для перемещения курсора по тексту. 7)Главное это запомнить эти два слова: «фыва» и « олдж». Указательный левый палец должен находиться на букве «А», правый на «О». Если присмотреть, то на этих буквах есть выпуклые чёрточки. Средний левый должен находиться на букве «В», правый на «Л».Оба больших пальца на пробел. Остальными пальцами вы набираете текст.
name:string;
curs:real;
end;
var banks:array[1..15] of tbank;
max,dollars:real;
i,mi:longint;
Begin
Write('You have: ');
readln(dollars);
for i:=1 to 15 do Begin
Write('Bank name: ');
readln(banks[i].name);
write('Curs: ');
readln(banks[i].curs);
end;
max:=dollars*banks[1].curs;
mi:=1;
for i:=2 to 15 do
Begin
if(dollars*banks[i].curs>max) then Begin
max:=dollars*banks[i].curs;
mi:=i;
end;
end;
writeln('Best bank name: ',banks[mi].name,', curs is :',banks[mi].curs:2:2,', we will get: ',max:2:2,', rub.');
end.