3 задачи Pascal

[fosbery]

чет не одна не получилать напишите полностью

[Vovchik]

fosbery, лудше ты покажы своё а мы поможем что у тебя не получаеца !!!

[fosbery]

я их даже не начинал делать у меня других много, ну просто сделайте

[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]

[fosbery]

На счет преобразования строчных в прописные:
[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]

это, все по этим задачам?

[BHy4ok]

Это циклы которые тебе нужны. Осталось лишь объявить переменные и строки. - Все это стандартные действия любой задачи.

[fosbery]

сделал спасибо

и может еще

Единицы длины пронумерованы следующим образом: 1 — дециметр, 2 — километр, 3 — метр, 4 — миллиметр, 5 — сантиметр. Дан номер единицы длины и длина отрезка L в этих единицах (вещественное число). Вывести длину данного отрезка в метрах.

тока напишите от program до end пожалуйска

[Хыиуду]

На счет преобразования строчных в прописные:
[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) и вывести

тока напишите от program до end пожалуйска

Это требование выполнить не смог, поскольку никогда не пишу программы со словом program

[MOTOCoder]

Можно и без проверки, все равно upcase не обрабатывает небуквенные символы.

Я че-то забыл, что русские символы не обрабатывает.

[fosbery]

у я 2 месяца паскаль изучаю вот ипрошу все сразу