|
для тех кто разбирается в информатике
|
|
| [N1ke]Medved | Дата: Субота, 09.04.2011, 21:29 | Сообщение # 1 |
![[N1ke]Medved](/avatar/82/7026-893844.jpg "[N1ke]Medved")
a.k.a [SaDist]Medved
Маршал
Группа: V.I.P
|
Найдите количество положительных чисел
числа:0,-2,0
решать с помощью программы
ник [N1ke]Medved занят
Сообщение отредактировал [N1ke]Medved - Субота, 09.04.2011, 21:30 |
| |
|
|
| Dreadlol | Дата: Субота, 09.04.2011, 22:46 | Сообщение # 2 |
Скаут
Группа: V.I.P
|
[N1ke]Medved, не понял твоего запроса. <_<
|
| |
|
|
| [N1ke]Medved | Дата: Субота, 09.04.2011, 22:58 | Сообщение # 3 |
a.k.a [SaDist]Medved
Маршал
Группа: V.I.P
|
Dreadlol, надо найти количество положительных чисел
вот сами числа:0,-2,0
ник [N1ke]Medved занят
|
| |
|
|
| [N1ke]Medved | Дата: Субота, 09.04.2011, 23:01 | Сообщение # 4 |
a.k.a [SaDist]Medved
Маршал
Группа: V.I.P
|
я вам показал задачку
а так я её решил 
ник [N1ke]Medved занят
|
| |
|
|
| Skippi | Дата: Неділя, 10.04.2011, 12:12 | Сообщение # 5 |
Капрал
Группа: Пользователи
|
Quote (|N1ke|Medved) я вам показал задачку
а так я её решил и горд собой?
задача элементарна
иди на тимус, от тех задач радость пропадет 
|
| |
|
|
| [N1ke]Medved | Дата: Неділя, 10.04.2011, 12:24 | Сообщение # 6 |
a.k.a [SaDist]Medved
Маршал
Группа: V.I.P
|
Quote (Skippi) и горд собой?
я такие задачи решаю каждый день почти
как я уже говорил,я просто показал вам задачу
ник [N1ke]Medved занят
|
| |
|
|
| Skippi | Дата: Неділя, 10.04.2011, 16:38 | Сообщение # 7 |
Капрал
Группа: Пользователи
|
ну тогда
1) нет считывания этих самых трех чисел
2) сравниваются только а и б, как следствие - с может быть хоть 1оо5оо, а его всеравно не выведет
3) в условии у тебя сказано найти КОЛИЧЕСТВО положительных чисел, ты же находишь какое из а и б больше
4) чем ты это выводишь интересно знать? где write\writeln
Quote (|N1ke|Medved) ('введите несколько чисел')
5) какого *** здесь делает оператор присваивания?!
Quote (|N1ke|Medved) var a,b,c,max:=integer;
6) ладно перед end'ами можно точку с запятой не ставить, НО ГДЕ В ДРУГИХ МЕСТАХ ТОЧКА С ЗАПЯТОЙ столько ошибок на 10 строк кода.....
отсюда вывод - это тупо набор слов, на программу даже не походит, поставленную задачу не выполняет...значит хлам и проще новую писать чем эту исправлять Добавлено (10.04.2011, 16:38)
---------------------------------------------
тру прогеры пишут программы на 200+ строк 
и не по 6+ ошибок на 10 строк
|
| |
|
|
| [N1ke]Medved | Дата: Неділя, 10.04.2011, 16:43 | Сообщение # 8 |
a.k.a [SaDist]Medved
Маршал
Группа: V.I.P
|
Skippi, мне такую програму дал препод по информатике
сказал примерно так решать
ник [N1ke]Medved занят
|
| |
|
|
| KingMaximax | Дата: Неділя, 10.04.2011, 19:41 | Сообщение # 9 |
Скаут
Группа: Пользователи
|
Quote (|N1ke|Medved) program qq
var a,b,c,max:=integer;
begin ('введите несколько чисел')
if a>b then begin
max:=a
else begin
max:=b
end;
writeln ('максимальное число',max)
end.
Точно free Pascal или Турбо.. Добавлено (10.04.2011, 19:41)
---------------------------------------------
Code
program qq;
uses crt;
var a,b,c,max:integer;
begin
clrscr;
write('введите несколько чисел a,b,c:=');Readln(a,b,c);
if (a>b) and (a>c) then max:=a;
if (b>a) and (b>c) then max:=b;
if (c>a) and (c>b) then max:=c;
writeln ('максимальное число',max);Readln;
end.
Была подпись, да всплыла.
Сообщение отредактировал KingMaximax - Неділя, 10.04.2011, 19:42 |
| |
|
|
| Skippi | Дата: Вівторок, 12.04.2011, 21:09 | Сообщение # 10 |
Капрал
Группа: Пользователи
|
KingMaximax, зачем readln; в конце, не проще ли уж сразу readkey;
[N1ke]Medved, ну дал тебе препод задачку по информатике, ну а у меня курсовик - программа с поддержкой drag and drop, которая форматирует паскалевские исходники (в красивый код с пробелами, вобщем почти что написать компилятор, только ошибки не надо показывать) вот это да, это еще можно показать....но программу, которая 1 - ищет какое а или б больше, а не наибольшее из трех + тот код который ты написал, его даже компилятор не поймет....помойму ты просто что в голову пришло, то сразу и кинул
|
| |
|
|
