|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
08.06.2007, 20:10 | #1 |
Пользователь
Регистрация: 14.12.2006
Сообщений: 26
|
Простые програмки на TPascal
Помогите пожалуйста кто чем сможет...
Задание №1. Заполнить массив из 12 элементов случайными целыми числами от -100 до 100 и подсчитать количество неотрицательных значений, включая ноль. Написать программу на языке Турбо Паскаль. Задание №2. Заполнить двухмерный массив 5 на 6 по формуле I*I-А*J и подсчитать количество неотрицательных элементов, включая ноль. Коэффициент А запросить с клавиатуры. Написать программу на языке Турбо Паскаль. Задание №3. Заполнить массив из 5 строк произвольными словами. Найти самое длинное и короткое слова и поменять их местами. Задать с клавиатуры комбинацию из двух символов которую заменить во всех словах на три символа А. Написать программу на языке Турбо Паскаль. |
08.06.2007, 22:57 | #2 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
-=1=-
program Massiv; var i,kolvo:integer; a:array[1..12]of integer; begin Randomize(); kolvo:=0; {заполняем массив значениями} for i:=1 to 12 do begin a[i]:=Random(100)-Random(100); end; {ищем кол-во значений больших нуля} for i:=1 to 12 do begin {при нахождении очередного большего нуля значения kolvo увеличиваем на 1} if a[i]>=0 then inc(kolvo); end; {вывод на экран результатов} if k>0 then Writeln('Кол-во чисел, больших нуля '+kolvo) else Writeln('Нету чисел, больших нуля!!!'); end.
Life is too short, play more...
Как правильно задавать вопросы |
08.06.2007, 23:03 | #3 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
-=3=-
Че то было здесь http://www.programmersforum.ru/showthread.php?t=4431
Life is too short, play more...
Как правильно задавать вопросы Последний раз редактировалось Alex21; 08.06.2007 в 23:07. |
08.06.2007, 23:03 | #4 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
-=2=-
programm massiv_2d; var i,j,kolvo:integer; A:real; M:array[1..5,1..6]of integer; begin kolvo:=0; Write('Введите А '); Read(A); {заполняем массив} for i:=1 to 5 do begin for j:=1 to 6 do begin M[i,j]:=(i*i-A*j); end; end; {считаем} for i:=1 to 5 do begin for j:=1 to 6 do begin if M[i,j]>=0 then inc(kolvo); end; end; {вывод на экран результатов} if k>0 then Writeln('Кол-во чисел, больших нуля '+kolvo) else Writeln('Нету чисел, больших нуля!!!'); end.
Life is too short, play more...
Как правильно задавать вопросы |
10.06.2007, 03:00 | #5 |
Пользователь
Регистрация: 14.12.2006
Сообщений: 26
|
Alex21 спасибо большое!
Помогите пожалуйста ещё с несколькими задачками.. 1. Запросить строку с клавиатуры и подсчитать в ней количество цифр, букв, пробелов. Написать программу на языке Турбо Паскаль. 2. Запросить с клавиатуры данные о студенте: фамилия, имя, отчество, год рождения. Запомнить их в типизированном файле. Написать программу на языке Турбо Паскаль. 3. Организовать поиск студентов по заданному году рождения в существующем типизированном файле (фамилия, имя, отчество, год рождения). Написать программу на языке Турбо Паскаль. |
10.06.2007, 10:56 | #6 |
Форумчанин
Регистрация: 26.04.2007
Сообщений: 440
|
1. все кроме знаков препинания?
|
10.06.2007, 15:56 | #7 |
JAVA BEAN
Участник клуба
Регистрация: 22.04.2007
Сообщений: 1,329
|
1.
Код:
|
12.06.2007, 14:18 | #8 |
Пользователь
Регистрация: 14.12.2006
Сообщений: 26
|
Carbon спасибо.
Остальное помогите плиз. 2. Запросить с клавиатуры данные о студенте: фамилия, имя, отчество, год рождения. Запомнить их в типизированном файле. Написать программу на языке Турбо Паскаль. 3. Организовать поиск студентов по заданному году рождения в существующем типизированном файле (фамилия, имя, отчество, год рождения). Написать программу на языке Турбо Паскаль. |
12.06.2007, 23:38 | #9 | |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
Цитата:
Life is too short, play more...
Как правильно задавать вопросы Последний раз редактировалось Alex21; 10.11.2007 в 16:02. |
|
13.06.2007, 16:32 | #10 |
Пользователь
Регистрация: 14.12.2006
Сообщений: 26
|
Alex21, благодарю. Сейчас буду тестить
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Нужна помощь в написании програмки на с++ | Jondeer | Общие вопросы C/C++ | 11 | 10.06.2008 17:54 |
Помогите сдать экзамен!!! Нужен код деревьев двоичного поиска и еще 2 програмки | Девчонка | Помощь студентам | 8 | 18.01.2008 19:02 |
Програмки в Паскаль. Помогите решить...а то зачета никогда не видать | Верчик | Помощь студентам | 4 | 21.12.2007 10:50 |
помогите в написании одной програмки | Илюха | Общие вопросы Delphi | 17 | 12.10.2007 07:55 |