VPF::помогите написать программки - Форум программистов

nikitoz88

Дата 6.4.2006, 13:05 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 6.4.2006

Репутация: нет
Всего: нет

Надеюсь на понимание и отклик!!! Срочно (до понедельника) нужно написать тексты трех программ на Паскале (версия - турбо Паскаль 7.1):
1) Организовать ввод предложения, оканчивающегося точкой. Посчитать количество слов в предложении. Слова разделены пробелом.
2) Организовать ввод n-чисел до первого отрицательного. Найти минимальное число.
3) Организовать ввод n-чисел. Найти среднее арифметическое положительных чисел.

Заранее благодарен!!!

LesnoyChelovek

Дата 6.4.2006, 21:02 (ссылка)

(нет голосов)

Загрузка ...

странник Интернета

Профиль
Группа: Участник
Сообщений: 346
Регистрация: 27.2.2006
Где: Русь

Репутация: 2
Всего: 10

Для первой задачи:

Код


var stroka:string;
    i,kol:integer;
begin
writeln('Vvedite stroku');
readln(stroka);
kol:=1;
for i:=1 to length(stroka) do
if stroka[i]=' '
then inc(kol);
writeln('Kolichestvo slov ravno: ',kol);
readln;
end.

--------------------

Делай добро и бросай его в воду... оно не утонет.. добром к тебе вернеться.
http://picasaweb.google.com/LesnoyChelovek/Photo

LesnoyChelovek

Дата 6.4.2006, 21:25 (ссылка)

(нет голосов)

Загрузка ...

странник Интернета

Профиль
Группа: Участник
Сообщений: 346
Регистрация: 27.2.2006
Где: Русь

Репутация: 2
Всего: 10

Вторая, но надо код оптимизировать, уж сам как-то, а то я уже спать хочу.

Код


const n=5;
var ar: array[1..n] of integer;
    i,k,min:integer;
begin
k:=0;
for i:=1 to n do
begin
    inc(k);
    writeln('Vvedite chislo:');
    readln(ar[i]);
    if ar[i]<0
    then break;
end;
min:=ar[1];
for i:=2 to k-1 do
if ar[i]<min
then min:=ar[i];
writeln;
writeln('Minimum=',min);
readln;
end.

--------------------

Делай добро и бросай его в воду... оно не утонет.. добром к тебе вернеться.
http://picasaweb.google.com/LesnoyChelovek/Photo

LesnoyChelovek

Дата 6.4.2006, 21:47 (ссылка)

(нет голосов)

Загрузка ...

странник Интернета

Профиль
Группа: Участник
Сообщений: 346
Регистрация: 27.2.2006
Где: Русь

Репутация: 2
Всего: 10

И, наконец, третья:

Код


const n=5;
var ar: array [1..n] of real;
    sum,srednee: real;
    i,k: integer;
begin
for i:=1 to n do
begin
    writeln('Vvedite chislo');
    read(ar[i]);
    if ar[i]>=0 then
    begin
        sum:=sum+ar[i];
        inc(k);
    end;
end;
writeln;
srednee:=sum/k;
writeln('Srednee=',srednee:4:2);
readln;
end.

С тебя "+"ю smile

--------------------

Делай добро и бросай его в воду... оно не утонет.. добром к тебе вернеться.
http://picasaweb.google.com/LesnoyChelovek/Photo

Pakshin A. S.

Дата 6.4.2006, 22:03 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 5
Всего: 61

nikitoz88,

M
Pakshin A. S.

ЧИТАЙТЕ ПРАВИЛА ФОРУМА!!!
1) Название темы не отражает ее суть.
2) В теме задано более одного вопроса.

Впредь будьте внимательнее при создании темы в Колледже.

offtopic:
LesnoyChelovek, а он не сможет плюс влепить, так как прав нету...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »