heeeelp!!!!please!!! ....очень надоюююзадача в паскале - Форум
Пятница, 09.12.2016, 16:30
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » heeeelp!!!!please!!! ....очень надоюююзадача в паскале
heeeelp!!!!please!!! ....очень надоюююзадача в паскале
strikeДата: Пятница, 01.10.2010, 19:04 | Сообщение # 1
Сержант
Группа: Новичок
Сообщений: 7
[ 0 ]
Статус: Offline
Пожалуйста, помогите! Срочнооо!

№ 1. Дан перечень животных небольшого зоопарка. Указаны порода, кличка, вес и еда (мясо, рыба, овощи или сено) для каждого животного. Вывести на экран списки травоядных и плотоядных животных и сосчитать их количество.
№ 2. Взяв исходные данные из предыдущей задачи, упорядочить животных по убыванию весов. Вывести исходную и упорядоченную таблицу на экран.
Спасибо!!

Сообщение отредактировал strike - Суббота, 02.10.2010, 19:48
 
ВахаДата: Суббота, 02.10.2010, 20:14 | Сообщение # 2
Подполковник
Группа: Новичок
Сообщений: 28
[ 6 ]
Статус: Offline
№1
-------------------------
uses CRT;
type
TAnymal= record
breed: string;
name: string;
weight: word;
food: string;
end;
var
anymals: array [1..20] of TAnymal;
i, j: integer;
procedure Init;
begin
with anymals[1] do
begin
breed:='крокодил';
name:='кусака';
weight:=150;
food:='мясо';
end;
with anymals[2] do
begin
breed:='крокодил';
name:='cocун';
weight:=140;
food:='мясо';
end;
with anymals[3] do
begin
breed:='лев';
name:='лёва';
weight:=220;
food:='мясо';
end;
with anymals[4] do
begin
breed:='лев';
name:='пушок';
weight:=250;
food:='мясо';
end;
with anymals[5] do
begin
breed:='дельфин';
name:='малыш';
weight:=150;
food:='рыба';
end;
with anymals[5] do
begin
breed:='морской лев';
name:='яна';
weight:=300;
food:='рыба';
end;
with anymals[6] do
begin
breed:='китайский кабан';
name:='кеба';
weight:=100;
food:='овощи';
end;
with anymals[7] do
begin
breed:='обезьяна';
name:='обезяна';
weight:=70;
food:='овощи';
end;
with anymals[8] do
begin
breed:='лошадь';
name:='белёк';
weight:=400;
food:='сено';
end;
with anymals[9] do
begin
breed:='лошадь';
name:='козырь';
weight:=450;
food:='сено';
end;
with anymals[10] do
begin
breed:='зебра';
name:='полосатик';
weight:=350;
food:='сено';
end;
end;
BEGIN
Init;
ClrScr;
j:=0;
WriteLn ('Травоядные:');
for i:=1 to 10 do
if anymals[i].food='hay' then
begin
inc (j);
WriteLn (Anymals[i].breed, ' ', anymals[i].name, ' ', anymals[i].weight);
end;
WriteLn ('количество травоядных: ', j);
j:=0;
WriteLn ('плотоядные:');
for i:=1 to 10 do
if anymals[i].food='greenstaf' then
begin
inc (j);
WriteLn (Anymals[i].breed, ' ', anymals[i].name, ' ', anymals[i].weight);
end;
WriteLn ('количество плотоядных: ', j);
readkey;
END.

Добавлено (02.10.2010, 20:14)
---------------------------------------------
№2
------------------
uses CRT;
type
TAnymal= record
breed: string;
name: string;
weight: word;
food: string;
end;
var
anymals: array [1..20] of TAnymal;
i, j: integer;
BufAnymal: TAnymal;
procedure Init;
begin
with anymals[1] do
begin
breed:='крокодил';
name:='кусака';
weight:=150;
food:='мясо';
end;
with anymals[2] do
begin
breed:='крокодил';
name:='cocун';
weight:=140;
food:='мясо';
end;
with anymals[3] do
begin
breed:='лев';
name:='лёва';
weight:=220;
food:='мясо';
end;
with anymals[4] do
begin
breed:='лев';
name:='пушок';
weight:=250;
food:='мясо';
end;
with anymals[5] do
begin
breed:='дельфин';
name:='малыш';
weight:=150;
food:='рыба';
end;
with anymals[5] do
begin
breed:='морской лев';
name:='яна';
weight:=300;
food:='рыба';
end;
with anymals[6] do
begin
breed:='китайский кабан';
name:='кеба';
weight:=100;
food:='овощи';
end;
with anymals[7] do
begin
breed:='обезьяна';
name:='обезяна';
weight:=70;
food:='овощи';
end;
with anymals[8] do
begin
breed:='лошадь';
name:='белёк';
weight:=400;
food:='сено';
end;
with anymals[9] do
begin
breed:='лошадь';
name:='козырь';
weight:=450;
food:='сено';
end;
with anymals[10] do
begin
breed:='зебра';
name:='полосатик';
weight:=350;
food:='сено';
end;
end;

BEGIN
Init;
ClrScr;
WriteLn (Anymals[1].breed, ' ', Anymals[1].name, ' ', Anymals[1].Weight, ' ', Anymals[1].food);
for i:=2 to 10 do
begin
WriteLn (Anymals[i].breed, ' ', Anymals[i].name, ' ', Anymals[i].Weight, ' ', Anymals[i].food);
for j:=1 to i do
if anymals[j].weight<anymals[i].weight then
begin
BufAnymal.breed:=Anymals[j].Breed;
Anymals[j].Breed:=Anymals[i].breed;
Anymals[i].breed:=BufAnymal.breed;
BufAnymal.Weight:=Anymals[j].Weight;
Anymals[j].Weight:=Anymals[i].Weight;
Anymals[i].Weight:=BufAnymal.Weight;
BufAnymal.Name:=Anymals[j].Name;
Anymals[j].Name:=Anymals[i].Name;
Anymals[i].Name:=BufAnymal.Name;
BufAnymal.food:=Anymals[j].food;
Anymals[j].food:=Anymals[i].food;
Anymals[i].food:=BufAnymal.food;
end;
end;
WriteLn;
For i:=1 to 10 do
WriteLn (Anymals[i].breed, ' ', Anymals[i].name, ' ', Anymals[i].Weight, ' ', Anymals[i].food);
readkey;
END.


Гвардия умирает но не сдается
 
strikeДата: Суббота, 02.10.2010, 20:26 | Сообщение # 3
Сержант
Группа: Новичок
Сообщений: 7
[ 0 ]
Статус: Offline
Спасибо ОРОМНОЕ!!!!
 
ignorerДата: Воскресенье, 03.10.2010, 16:04 | Сообщение # 4
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
Ваха, красава! я бы умер пока печатал такое кол-во буков smile
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » heeeelp!!!!please!!! ....очень надоюююзадача в паскале
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016