|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
26.12.2008, 12:43 | #1 |
Пользователь
Регистрация: 18.11.2008
Сообщений: 26
|
Циклы(паскаль)
Что неправильно в программе?Всё? Как исправить ошибки? Дано 100 вещественных чисел. Вычислить разницу между максимальным и минимальным из них.
Program Cikl; var ai, i, R: integer; begin writeln ('введите ai'); readln (i); max :=a1; min := a1; For i:= 2 to 100 do If ai> max then max := ai else if ai< min then min :=ai writeln('max := ', min := ', min); R:= max-min writeln ('R := ',R); readln end. |
26.12.2008, 13:01 | #2 |
Участник клуба
Регистрация: 30.07.2008
Сообщений: 1,601
|
1. Объявление массива
var v:array[1..100]of integer; 2. Обращение к элементу массива v[i] Код:
"SPACE.THE FINAL FRONTIER.This's a voyage of starship Enterprise. It's 5-year mission to explore strange new worlds,to seek out new life and civilizations,to boldly go where no man has gone before"
Последний раз редактировалось challengerr; 26.12.2008 в 13:06. |
26.12.2008, 13:10 | #3 |
Форумчанин
Регистрация: 13.10.2008
Сообщений: 714
|
Код:
|
26.12.2008, 13:10 | #4 |
Пользователь
Регистрация: 18.11.2008
Сообщений: 26
|
спасибо,но мне с массивами нельзя делать..(((
|
26.12.2008, 13:13 | #5 |
Форумчанин
Регистрация: 13.10.2008
Сообщений: 714
|
тогда, сделай считание из файла!
ЗЫ:предупреждай, вначале, что нельзя использовать! |
26.12.2008, 13:17 | #6 |
Участник клуба
Регистрация: 30.07.2008
Сообщений: 1,601
|
в цикле считываешь число и на лету сравниваешь (без файла)
У тебя в цикле нет считывания числа. Код:
"SPACE.THE FINAL FRONTIER.This's a voyage of starship Enterprise. It's 5-year mission to explore strange new worlds,to seek out new life and civilizations,to boldly go where no man has gone before"
Последний раз редактировалось challengerr; 26.12.2008 в 13:21. |
26.12.2008, 13:37 | #7 |
Пользователь
Регистрация: 18.11.2008
Сообщений: 26
|
спасибо,вот так наверно можно =))
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Циклы. Паскаль. Срочно. | Кирилл17 | Помощь студентам | 1 | 05.12.2008 22:21 |
Циклы! | vlad1991 | Паскаль, Turbo Pascal, PascalABC.NET | 15 | 28.10.2008 22:07 |
Паскаль(задача на итерационные циклы) | TheKnyazz | Помощь студентам | 1 | 27.10.2008 02:35 |