Pascal. Периметр многоугольника, строки, графика

[Shady]

спасибо за ответ!а код дельфи на паскале пойдет?!

[MOTOCoder]

а код дельфи на паскале пойдет?!

Delphi тут не при чем, просто я выбрал подсветку синтаксиса Delphi.
Код на чистом паскале.

[Shady]

ааа понял!а втам ты написал до Var это ж надо писать?!

[Shady]

все понял спс!

[Tranei_srael]

а можно эту задачу по проще решите,а то я не понял?

[MOTOCoder]

В принципе наверное можно, мое решение далеко не идеально, но что именно непонятно?

[Tranei_srael]

я вот эту задачу можите решить :
Создать прогу, которая содержит сведения об игрушках (наименование, цена, возрастные огранич от 3 до 10 лет). Надо вывести название игрушек, упорядоченых в порядке возр.цены (цена не должна привышать 200 р. и преднозначеных для детей 5 лет.) вывести цену самой дорогой. (всего 4 игрушки)

[Shady]

Найдите ошибку плз!!!!!
Вот мое решение посмотриите!
program cpu;
uses crt;
var
summa:integer;
begin
clrscr;

writeln('Введите сумму');
readln(summa);

if summa > 5999 then begin
writeln('Под ваш запрос подходят все процессоры');
writeln('');
writeln('');
writeln('Лучшим выбором является:');
writeln('Intel Core Xeon');
writeln('Частота 8000 МГц');
writeln('Стоимость 6000 рублей');
writeln('');
writeln('');
writeln('Также доступны следующие модели:');
writeln('');
writeln('Intel Pentium 4');
writeln('Частота 3200 МГц');
writeln('Стоимость 4000 рублей');
writeln('');
writeln('Intel Celeron');
writeln('Частота 2000 МГц');
writeln('Стоимость 1500 рублей');
writeln('');
writeln('Intel Pentium 3');
writeln('Частота 800 МГц');
writeln('Стоимость 500 рублей');
end;
if summa < 6000 then begin
if summa > 4499 then begin
writeln('Лучшим выбором является:');
writeln('Intel Pentium 4');
writeln('Частота 3200 МГц');
writeln('Стоимость 4000 рублей');
writeln('');
writeln('');
writeln('Также доступны следующие модели:');
writeln('');
writeln('Intel Celeron');
writeln('Частота 2000 МГц');
writeln('Стоимость 1500 рублей');
writeln('');
writeln('Intel Pentium 3');
writeln('Частота 800 МГц');
writeln('Стоимость 500 рублей');
end;
end;

if summa < 4500 then begin
if summa > 1499 then begin
writeln('Лучшим выбором является:');
writeln('Intel Celeron');
writeln('Частота 2000 МГц');
writeln('Стоимость 1500 рублей');
writeln('');
writeln('');
writeln('Также доступны следующие модели:');
writeln('');
writeln('Intel Pentium 3');
writeln('Частота 800 МГц');
writeln('Стоимость 500 рублей');
end;
end;

if summa < 1500 then begin
if summa > 499 then begin
writeln('Лучшим выбором является:');
writeln('Intel Pentium 3');
writeln('Частота 800 МГц');
writeln('Стоимость 500 рублей');
writeln('');
writeln('');
writeln('Других доступных моделей нет =(');
readln;
end;
end;

if summa < 499 then
writeln('Других доступных моделей нет');
end.

[Vovchik]

Shady, в коде нет ошыбки но когда я запйскаю программу и пишу какое не буть число то прга моментально вакидует на код !!!!!!!!!!!!!!

[Хыиуду]

А у меня все работает. Только, имхо, код надо оптимизировать жутко.
Ну хотя бы на уровне:

Код: Выделить всё

program cpu;
uses crt;
const proc: array[1..4] of string=('Intel Xeon '+#13+#10+'Тактовая частота 8000 МГЦ'+#13+#10+'Стоимость 6000 рублей', '...', '...', '...'); {НЕ ЗАБУДЬТЕ ЗАПОЛНИТЬ!}
prices: array[1..5] of integer=(6000, 4000, 1500, 500, 0);
var summa, i:integer;
begin
clrscr;

writeln('Введите сумму');
readln(summa);
i:=1;
while summa<prices[i] do inc(i);
if i=1 then writeln('Все модели доступны');
if i=5 then begin
  writeln('Доступных моделей нет');
  exit;
end;
writeln('Лучший выбор: ');
writeln(proc[i]);
while i<4 do
begin
   inc(i);
   writeln(proc[i]);
end;
writeln('Других доступных моделей нет');
readln;