Re: 3 задачи Pascal
Добавлено: 18 май 2008, 16:33
чет не одна не получилать напишите полностью
Страница 2 из 4
Re: 3 задачи Pascal
Добавлено: 18 май 2008, 19:13
fosbery, лудше ты покажы своё а мы поможем что у тебя не получаеца !!!
Re: 3 задачи Pascal
Добавлено: 18 май 2008, 20:09
я их даже не начинал делать у меня других много, ну просто сделайте
Re: 3 задачи Pascal
Добавлено: 18 май 2008, 20:22
На счет преобразования строчных в прописные:
[syntax='Delphi']
for i:=1 to Length(S) do
if S in ['a'..'z'] then
S:=UpCase(S);
[/syntax]
С матрицей - нужно считать примерно так:
[syntax='Delphi']
for i:=1 to N do
Sum1:=Sum+M[I,I];{главная}
for I:=1 to N do
Sum2:=Sum2+M[N-I+1,I];{симметричная}
[/syntax]
[syntax='Delphi']
for i:=1 to Length(S) do
if S in ['a'..'z'] then
S:=UpCase(S);
[/syntax]
С матрицей - нужно считать примерно так:
[syntax='Delphi']
for i:=1 to N do
Sum1:=Sum+M[I,I];{главная}
for I:=1 to N do
Sum2:=Sum2+M[N-I+1,I];{симметричная}
[/syntax]
Re: 3 задачи Pascal
Добавлено: 19 май 2008, 08:33
MOTOCoder писал(а):На счет преобразования строчных в прописные:
[syntax='Delphi']
for i:=1 to Length(S) do
if S in ['a'..'z'] then
S:=UpCase(S);
[/syntax]
С матрицей - нужно считать примерно так:
[syntax='Delphi']
for i:=1 to N do
Sum1:=Sum+M[I,I];{главная}
for I:=1 to N do
Sum2:=Sum2+M[N-I+1,I];{симметричная}
[/syntax]
это, все по этим задачам?
Re: 3 задачи Pascal
Добавлено: 19 май 2008, 09:21
Это циклы которые тебе нужны. Осталось лишь объявить переменные и строки. - Все это стандартные действия любой задачи.
Re: 3 задачи Pascal
Добавлено: 19 май 2008, 10:12
сделал спасибо
и может еще
Единицы длины пронумерованы следующим образом: 1 — дециметр, 2 — километр, 3 — метр, 4 — миллиметр, 5 — сантиметр. Дан номер единицы длины и длина отрезка L в этих единицах (вещественное число). Вывести длину данного отрезка в метрах.
тока напишите от program до end пожалуйска
и может еще
Единицы длины пронумерованы следующим образом: 1 — дециметр, 2 — километр, 3 — метр, 4 — миллиметр, 5 — сантиметр. Дан номер единицы длины и длина отрезка L в этих единицах (вещественное число). Вывести длину данного отрезка в метрах.
тока напишите от program до end пожалуйска
Re: 3 задачи Pascal
Добавлено: 19 май 2008, 11:33
MOTOCoder писал(а):На счет преобразования строчных в прописные:
[syntax='Delphi']
for i:=1 to Length(S) do
if S in ['a'..'z'] then
S:=UpCase(S);
[/syntax]
Можно и без проверки, все равно upcase не обрабатывает небуквенные символы.
По длинам отрезков: объявить const len: array[1..5]of longint=[100, 1000000, 1000, 1, 10];, потом для каждого отрезка считать его длину и номер единицы измерения (допустим, l и num), тогда l*len[num] даст абсолютную длину в миллиметрах. Получается массив целых чисел, в нем надо найти максимум (раздел "Алгоритмы"), перевести этот максимум из миллиметров в метры (разделить на 1000) и вывести
fosbery писал(а):тока напишите от program до end пожалуйска
Это требование выполнить не смог, поскольку никогда не пишу программы со словом program
Re: 3 задачи Pascal
Добавлено: 19 май 2008, 12:11
Хыиуду писал(а):Можно и без проверки, все равно upcase не обрабатывает небуквенные символы.
Я че-то забыл, что русские символы не обрабатывает.
Re: 3 задачи Pascal
Добавлено: 19 май 2008, 12:42
у я 2 месяца паскаль изучаю вот ипрошу все сразу