|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
27.06.2012, 12:01 | #1 (permalink) |
Member
Регистрация: 06.02.2012
Сообщений: 46
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Паскаль. Задача по преобразованию
вот как у меня получилось решить эту задачу var a: array [1..30] of integer; i,n,min,imin: integer; begin writeln ('ввод кол-ва элементов массива'); readln (n); writeln ('ввод элементы массива'); for:=1 to n do readln (a[i]); writeln; min:=a[1]; imin:=1; for:i=2 to n do if a[i]<min then min:=a[1]; imin:=i; a [imin]:=a[1]; a[1]:=min; for:=1 to n do writeln ('a[i]='); readln end. но к сожалению программа не выполняет условие в ответе у меня появляется: а[i]:= а[i]:= а[i]:= помогите, разобраться! |
27.06.2012, 12:01 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Сейчас вам самое время посмотреть на эти темы Задача на Паскаль Задача, Паскаль Задача. Паскаль Задача на языке Паскаль Задача на файлы, Паскаль АВС |
27.06.2012, 12:17 | #3 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,794
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
У меня вообще ваш код минимум 2 ошибки выдал на этапе компиляции. Вы зачем после for двоеточие ставите?
Правильно писать надо так: Код:
for i:=1 to n do |
27.06.2012, 12:25 | #5 (permalink) |
Member
Регистрация: 06.02.2012
Сообщений: 46
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
27.06.2012, 12:26 | #6 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,794
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Вот исправленный листинг программы
Код:
var a: array [1..30] of integer; i,n,min,imin: integer; begin writeln ('ввод кол-ва элементов массива'); readln (n); writeln ('ввод элементы массива'); for i:=1 to n do readln (a[i]); writeln; min:=a[1]; imin:=1; for i:=2 to n do if a[i]<=min then begin min:=a[i]; imin:=i; end; a [imin]:=a[1]; a[1]:=min; for i:=1 to n do writeln ('a[i]=',a[i]); readln end. |
27.06.2012, 12:35 | #7 (permalink) |
Member
Регистрация: 06.02.2012
Сообщений: 46
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
и подумайте логически, если я пишу что у меня получилось в ответе, то значит у меня в программке нет синтаксических ответов! я послушалась вас Владимир и теперь проверяю на компе. вопрос не в синтаксисе, я когда набирала могла пропустить, вопрос в решении. демагогия ник чему
|
27.06.2012, 12:37 | #8 (permalink) | |
Member
Регистрация: 06.02.2012
Сообщений: 46
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Цитата:
|
|
27.06.2012, 12:41 | #10 (permalink) | |
Member
Регистрация: 06.02.2012
Сообщений: 46
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Цитата:
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|