Главная Регистрация Вход Электротермические Установки и Системы Понедельник, 24.07.2017, 13:31
  лабы по инфе - Страница 7 - Форум Пишите нам на el-03@mail.ru | Приветствую Вас Гость | RSS

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 7 из 7«12567
Модератор форума: DEADalus 
Форум » Дела учебные » Помощь » лабы по инфе (помогите написать программы по информатике Комарова ни чего!)
лабы по инфе
FedinMAДата: Воскресенье, 01.03.2009, 18:06 | Сообщение # 91
Асс. каф. ФЭМАЭК
Группа: Модераторы
Сообщений: 227
Награды: 1
Репутация: 11
Статус: Offline
Кстати, программа в таком виде различает заглавные и прописные буквы. Чтобы, к примеру, символ "В" и символ "в" воспринимался программой как одно и то же, необходимы некоторые изменения. Но, поскольку в условии про это ничего не сказано, пока можно всё оставить без изменений.

Учиться надо так, чтобы это было тебе в радость.
 
Fanstar77Дата: Воскресенье, 01.03.2009, 18:07 | Сообщение # 92
Абитуриент
Группа: Проверенные
Сообщений: 36
Награды: 0
Репутация: -20
Статус: Offline
Спасибо сейчас этим и займусь!

Давай те ка мы поучимся!
 
ИринаДата: Воскресенье, 22.03.2009, 21:48 | Сообщение # 93
Группа: Удаленные





Задание1.
Список фамилий упорядочить по алфавиту.
Задание2.
Для заданой группы вывести фамилии студентов,не получающих степендии.Вычислить скадько из них имеет все положительные оценки.
Зарание спасибо.
angel
 
FedinMAДата: Понедельник, 23.03.2009, 13:22 | Сообщение # 94
Асс. каф. ФЭМАЭК
Группа: Модераторы
Сообщений: 227
Награды: 1
Репутация: 11
Статус: Offline
Код для программы №1 (упорядочивание списка фамилий по алфавиту).

procedure TForm1.Button1Click(Sender: TObject);
var
n, i, j, k, s: integer;
spisok1, spisok2: array[1..50] of string;
fam, fam2: string;
begin
Memo2.Clear;
n:=Memo1.Lines.Count;

for i:=1 to n do
spisok1[i]:=Memo1.Lines[i-1];

for i:=1 to n do
begin
k:=1;
fam:=spisok1[1];
for j:=2 to n-i+1 do
begin
fam2:=spisok1[j];
if fam2[1]<fam[1] then begin fam:=fam2; k:=j; end;
if fam2[1]=fam[1] then if fam2[2]<fam[2] then begin fam:=fam2; k:=j; end;
if fam2[1]=fam[1] then if fam2[2]=fam[2] then if fam2[3]<fam[3] then begin fam:=fam2; k:=j; end;
end;

spisok2[i]:=spisok1[k];
for s:=k to n-1 do
spisok1[s]:=spisok1[s+1];
Memo2.Lines.Add(spisok2[i]);
end;

end;

Программу написал в Delphi, ТР нет под рукой. Ирина, просьба немного переработать самой. Вместо компонентов memo1,2 осуществи обычный ввод/вывод массива типа string. Все остальное без изменений.

Программу прикрепил, можно скачать и поиграть немного.

Программу №2 недавно объяснял пользователю Fanstar77. Напишите ему в личку, пусть он выложит.

Прикрепления: Project1.exe(396Kb)


Учиться надо так, чтобы это было тебе в радость.
 
ИринаДата: Понедельник, 23.03.2009, 20:26 | Сообщение # 95
Группа: Удаленные





Спасибо FedinMA! good
 
DimanДата: Вторник, 24.03.2009, 22:02 | Сообщение # 96
Школьник
Группа: Пользователи
Сообщений: 2
Награды: 1
Репутация: 0
Статус: Offline
Как же быстро у меня прошла инфа, я прям ничего и не запомнил... Почему-то у нас все проще было..

101010100101101010+10101000010101110100101-
1010100100101+1000100010101010101001 - сколько?:)
 
FedinMAДата: Среда, 25.03.2009, 13:03 | Сообщение # 97
Асс. каф. ФЭМАЭК
Группа: Модераторы
Сообщений: 227
Награды: 1
Репутация: 11
Статус: Offline
Quote (Diman)
Почему-то у нас все проще было..

По идее все задания из того же сборника, который и у нас был. Сборник в принципе неплохой, задания разноплановые. Основное его предназначение - научить студентов размышлять аналитически, разрабатывать алгоритмы.


Учиться надо так, чтобы это было тебе в радость.
 
DEADalusДата: Пятница, 27.03.2009, 15:35 | Сообщение # 98
Админище
Группа: Администраторы
Сообщений: 98
Награды: 2
Статус: Offline
FedinMA, хватит выдавать исходные коды направо-налево. Пускай думают, приводят свои разработки, будем искать ошибки, а то прям и проверить нечего cry

Свобода - это когда ты одинок, молод и безвестен.
(Фредерик Бегбедер "Windows on the World")
 
Fanstar77Дата: Воскресенье, 29.03.2009, 20:21 | Сообщение # 99
Абитуриент
Группа: Проверенные
Сообщений: 36
Награды: 0
Репутация: -20
Статус: Offline
код программы

Добавлено (29.03.2009, 20:21)
---------------------------------------------
через процедуру

Прикрепления: 9549115.jpg(431Kb)


Давай те ка мы поучимся!
 
FedinMAДата: Воскресенье, 29.03.2009, 23:16 | Сообщение # 100
Асс. каф. ФЭМАЭК
Группа: Модераторы
Сообщений: 227
Награды: 1
Репутация: 11
Статус: Offline
Quote (Fanstar77)
код программы
Добавлено (29.03.2009, 20:21)
---------------------------------------------
через процедуру
Прикрепления: 9549115.jpg(431Kb)

Я, конечно, понимаю, что краткость - сестра таланта, но из данного поста даже не вполне ясна суть вопроса! Такое впечатление, что автор очень торопился и не захотел потратить чуть больше времени, чтобы нормально сформулировать задачу и представить свои (пусть неправильные) наработки. В следующий раз ответы на вопросы, поставленные таким образом, даваться НЕ БУДУТ!

По поводу самой задачи: она - элементарная, подобные примеры уже несколько раз обсуждались в этой ветке.

Program conv;
type
mass=array[1..10] of real;
var
c, p: mass;
i: integer;
procedure c_to_p(var x,y: mass);
var
i: integer;
begin
y[1]:=x[1];
for i:=2 to 10 do
y[i]:=y[i-1]+x[i];
end;

begin
for i:=1 to 10 do
readln(c[i]);

c_to_p(c,p);

for i:=1 to 10 do
writeln(p[i]:9:0);

readln;
end.


Учиться надо так, чтобы это было тебе в радость.
 
PersonalJesusДата: Среда, 21.10.2009, 20:42 | Сообщение # 101
Группа: Удаленные





Тема еще жива? Срочно нужна ваша помощь :/
 
Fanstar77Дата: Среда, 21.10.2009, 20:56 | Сообщение # 102
Абитуриент
Группа: Проверенные
Сообщений: 36
Награды: 0
Репутация: -20
Статус: Offline
какая помощь нужна?

Добавлено (21.10.2009, 20:45)
---------------------------------------------
отпишись или оставь номер аси или телефона!

Добавлено (21.10.2009, 20:46)
---------------------------------------------
моя ася 474369822

Добавлено (21.10.2009, 20:56)
---------------------------------------------
если что-то надо пиши в асю


Давай те ка мы поучимся!
 
Форум » Дела учебные » Помощь » лабы по инфе (помогите написать программы по информатике Комарова ни чего!)
Страница 7 из 7«12567
Поиск:

 

Copyright DEADalus © 2008-2017 Случайным встречам посвящается...
Яндекс цитирования