Обсуждение:Итоговая таблица 2ВМК-3: различия между версиями

Материал из wiki.nntc.nnov.ru
Перейти к навигации Перейти к поиску
(РЕШЕНИЯ)
Строка 8: Строка 8:
 
Однозначно ботаннннн!!!!!!!!!!Паша Клим!!!
 
Однозначно ботаннннн!!!!!!!!!!Паша Клим!!!
 
Будующая офисная крыса!!!!!!!!!!!!!
 
Будующая офисная крыса!!!!!!!!!!!!!
 +
 +
== РЕШЕНИЯ ==
 +
 +
6 ВАРИАНТ ЛАБЫ №4 ПО КАЛЕНЬТЬЕВОЙ
 +
 +
 +
 +
 +
№1
 +
Выведите сведения о багаже, в котором только одна вещь, а вес ее больше среднего веса среди всех багажей
 +
 +
 +
 +
 +
 +
 +
 +
 +
uses crt;
 +
const n=3;
 +
type pass=record
 +
fio:string;
 +
ves:real;
 +
kol:integer;    end;
 +
grupp=array [1..n] of pass;
 +
var g:grupp;
 +
i:integer;
 +
s:real;
 +
 +
begin
 +
clrscr;
 +
s:=0;
 +
for i:=1 to n do with g[i] do begin
 +
writeln ('vvedite FIO passajirea');
 +
readln(fio);
 +
writeln('obshii ves bagaja');
 +
readln(ves);
 +
writeln('kol-vo vesei');
 +
readln(kol);
 +
s:=s+ves;
 +
end;
 +
s:=s/n;
 +
for i:=1 to n do with g[i] do
 +
if (ves>s) and (kol=1) then
 +
writeln (fio,'  -ves bagja-  ',ves:4:2);
 +
readln;
 +
end.

Версия 15:46, 1 апреля 2008

LOL сам LOL

!!!!!!!!!!!!!!!!

И все же он ботан!!!!!!!!!!!1

Однозначно ботаннннн!!!!!!!!!!Паша Клим!!! Будующая офисная крыса!!!!!!!!!!!!!

РЕШЕНИЯ

6 ВАРИАНТ ЛАБЫ №4 ПО КАЛЕНЬТЬЕВОЙ



№1 Выведите сведения о багаже, в котором только одна вещь, а вес ее больше среднего веса среди всех багажей





uses crt; const n=3; type pass=record fio:string; ves:real; kol:integer; end; grupp=array [1..n] of pass; var g:grupp; i:integer; s:real;

begin clrscr; s:=0; for i:=1 to n do with g[i] do begin writeln ('vvedite FIO passajirea'); readln(fio); writeln('obshii ves bagaja'); readln(ves); writeln('kol-vo vesei'); readln(kol); s:=s+ves; end; s:=s/n; for i:=1 to n do with g[i] do if (ves>s) and (kol=1) then 

writeln (fio,'   -ves bagja-  ',ves:4:2);
readln;

end.

Источник — https://wiki.nntc.nnov.ru/index.php?title=Обсуждение:Итоговая_таблица_2ВМК-3&oldid=2254